• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tek ve Çift Sayıya Göre Renklendirme

SER973

Altın Üye
Katılım
3 Mart 2005
Mesajlar
84
Excel Vers. ve Dili
Excel-2007
İ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...
 

Ekli dosyalar

Selamlar,

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

Kod:
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
 
bunuda sayılarınızı girdikten sonra deneyebilirsiniz

Kod:
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
 
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...
 
Geri
Üst