gradyan liste yapmak

[mehdin82]

Arkadaşlar excelde sık yapılan bir kullanım olan gradyen ile alakalı bir sorum olacak
normalde alt alta olan tüm satırların rengini biri beyaz biri gri yapmak kolay ancak benim istediğim şu eğer alt alta gelen hücrelerde aynı değer varsa onların hepsini aynı renk yapsın kısacası grup olarak gradyen yapımı
dosya ektedir

 

[Huseyinkis]

Arkadaşlar excelde sık yapılan bir kullanım olan gradyen ile alakalı bir sorum olacak
normalde alt alta olan tüm satırların rengini biri beyaz biri gri yapmak kolay ancak benim istediğim şu eğer alt alta gelen hücrelerde aynı değer varsa onların hepsini aynı renk yapsın kısacası grup olarak gradyen yapımı
dosya ektedir

Ekli Kodları denermisiniz.

Sub Renklendir()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i, 1).Interior.Color = Cells(i - 1, 1).Interior.Color
Else
If Cells(i, 1).Interior.Color <> Cells(i - 1, 1).Interior.Color Then
Cells(i, 1).Interior.Color = vbWhite
Else
Cells(i, 1).Interior.Color = vbRed
End If
End If
Next i
End Sub

 

[Ömer]

Merhaba,

Alternatif olarak koşullu biçimlendirme kullanarak yapabilirsiniz.

A1:A25 arasını fare ile seçin, koşullu biçimlendirmeden/formül kullanarak,

=VE($A1<>"";MOD(TOPLA(EĞER(SIKLIK(EĞER($A$1:$A1<>"";KAÇINCI($A$1:$A1;$A$1:$A1;0));EĞER($A$1:$A1<>"";KAÇINCI($A$1:$A1;$A$1:$A1;0)))>0;1));2)=0)

yazın ve biçimden istediğiniz rengi seçerek tamam ile işlemi bitirin.

.

 

[mehdin82]

ömer bey çok teşekkür ederim kodlar sorunsuz çalışmakta sadece ilk satır çalışmıyor oda döngü ile alakalı olduğu için kesinlikle sorun değil

 

[baydeniro]

Merhaba, kod için teşekkürler. Buna bir de şöyle bir örnek yapılabilir mi ?
Her veri grubunun ilk hücresini renklendirsin gibi !