Tek ve Çift Sayıya Göre Renklendirme

[SER973]

İyi Akşamlar

Ekte örneği verilen dosyada A Sutunudaki Değerlere Göre A Sütündaki sayı tek ise A:X Arası mavi renk; Tek ise Yeşil Renk Dolguyu macro nasıl yapılabilir.
Yardımlarınız için Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. A sütununa sayısal veriler girip deneyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If (Target Mod 2) = 0 Then
    Range("A" & Target.Row, "X" & Target.Row).Interior.ColorIndex = 4
    Else
    Range("A" & Target.Row, "X" & Target.Row).Interior.ColorIndex = 41
    End If
End Sub

 

[Erdem Akdemir]

bunuda sayılarınızı girdikten sonra deneyebilirsiniz

Sub renk()
Dim i As Byte
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) Mod 2 = 0 Then
Cells(i, 1).Interior.ColorIndex = 4
Else
Cells(i, 1).Interior.ColorIndex = 5
End If
Next i
End Sub

 

[SER973]

Teşekkürler

Sn. Korhan Ayhan

Çok Teşekkür Ederim Tam istediğim Gibi Olmuş.. Elinize Sağlık..
Not: Bu Arada Hızınıza Hayran Kaldım...