DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
cevap verecek kimse yokmuMerhaba,
arkadaşlar lütfen yardım edin.
ekte gerekli açıklamayı yaptım.
saygılar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:c10]) Is Nothing Then Exit Sub
If Target = 1 Then Target.Interior.ColorIndex = 3
If Target = 2 Then Target.Interior.ColorIndex = 4
If Target = 3 Then Target.Interior.ColorIndex = 5
End Sub
seyit bey ekte 2003 olarak kaydettim.ilginize teşekkür ederim.Dosyanız 2007 olduğu için açamadık, olayı bu şekilde anladım, kodları kendinize göre uyarlayınız.
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a1:c10]) Is Nothing Then Exit Sub If Target = 1 Then Target.Interior.ColorIndex = 3 If Target = 2 Then Target.Interior.ColorIndex = 4 If Target = 3 Then Target.Interior.ColorIndex = 5 End Sub