aliakgul
Altın Üye
- Katılım
- 9 Mayıs 2005
- Mesajlar
- 402
- Excel Vers. ve Dili
- Ofis 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 03-08-2025
Kod:
Private Sub CommandButton2_Click()
a = Range("d8") 'e8,f8,gh............ah8'e kadar
b = Range("d7") 'e8,f8,gh............ah8'e kadar
c = Range("aj2")
'//////////////////////////////
'Bu aradakiler sabit...
g1 = Sheets("liste").Range("e2:e26").Value
g2 = Sheets("liste").Range("f2:f26").Value
g3 = Sheets("liste").Range("g2:g26").Value
g4 = Sheets("liste").Range("h2:h26").Value
g5 = Sheets("liste").Range("ı2:ı26").Value
Range("d36").Value = Date
Range("aj2").Value = Month(Date)
Range("d9:ah33").Value = ""
'/////////////////////////////
If a = 1 Then
Sheets("ekders").Range("d9:d33").Value = g1 'bu satırlardaki ("D9:D33")lerdeki D'lerin de
End If 'değişken olması gerekiyor. d9:d33, e9:e33, f9:f33.......ah9:ah33 şekilde.
If a = 2 Then
Sheets("ekders").Range("d9:d33").Value = g2
End If
If a = 3 Then
Sheets("ekders").Range("d9:d33").Value = g3
End If
If a = 4 Then
Sheets("ekders").Range("d9:d33").Value = g4
End If
If a = 5 Then
Sheets("ekders").Range("d9:d33").Value = g5
End If
If a < 1 Or a > 5 Or b > c Then
Sheets("ekders").Range("d9:d33").Value = "X"
End If
End Sub
Yeni bir düzenleme yaptım ve tabir yerindeyse zurnanın zırt dediği yere geldim.
Kodların içinde sabitleri belittim zaten..Burada D8 ve D7'nin durumuna göre D9:d33 aralığında bir uygulama yapıyor.
Benim yapmak istediğim;
Düğmeye tıklayınca ( ya da çalışma kitabını açınca ) bu düzenlemeyi, sadece D sütununda değil, D:AH aralığındaki sütunlarda gerçekleştirsin...
(e7 ve e8'in durumuna göre E9:E33, F7 ve F8'in durumuna göre F9:f33......diye devam edecek)
Herkese kolay gelsin.....