hücreler aynı oldukça sütunda sırayla renklendirme

[ahmet uysal]

eğer her satır farklı olsaydı herbir satır için 2 renk yetecekti.

örnekte:

3.
4. satırlar sarı
5. satır yeşil
6. sarı
7. yeşil
8.
9. sarı
...
.
.
.
yani sarı ve yeşil renler olacak. satır değiştikçe renk değişecek...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub RENKLENDIR()
    Dim Veri As Range, Renk As Byte
    
    Range("A3:A" & Rows.Count).Interior.ColorIndex = xlNone
    Renk = 6
    
    For Each Veri In Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)
        If Veri.Value <> Veri.Offset(-1, 0).Value Then
            If Veri.Offset(-1, 0).Interior.ColorIndex = Renk Then
                Veri.Interior.ColorIndex = IIf(Renk = 6, 43, 6)
            Else
                Veri.Interior.ColorIndex = Renk
            End If
        Else
            Veri.Interior.ColorIndex = Veri.Offset(-1, 0).Interior.ColorIndex
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ahmet uysal]

Benim excel turkçe.
rica etsem turkçeleştirebilir misiniz formülü ?

 

[Korhan Ayhan]

Merhaba,

Önerdiğim formül değildir. Makrodur.

Dosyanızı açın.
ALT+F11 tuşlarına basın.
INSERT menüsünden MODULE seçeneğini seçin.
Açılan beyaz pencereye verdiğim kodu uygulayın.
Daha sonra dosyanızı "MAKRO İÇEREN DOSYA" formatında kayıt edin.
Dosyanızı kapatın. Tekrar açtığınızda makro uyarısı verecektir. Etkinleştir dedikten sonra ALT+F8 tuşlarına basın.
RENKLENDİR seçeneğini seçip ÇALIŞTIR butonuna tıklayın.

Bu şekilde istediğiniz sonuca ulaşmış olacaksınız.

 

[ahmet uysal]

Şu an cepten yaziyorum. Musait oldugum ilk anda deneyecegim. Hersey icin tesekkurler.

 

[ahmet uysal]

işlem tamam. tekrar teşekkürler.
peki bunun makrosuz olanı yok mu ?