Çözüldü Dolgu rengini değiştirmek

[k0081]

Merhaba arkadaşlar;

B5:CF105 aralığında bir tablom var.

ilk satır B5:CF5 in dolgu rengi sarı.
B6:CF6 ın dolgu rengi beyaz.

... bu şekilde 105 e kadar sarı-beyaz şeklinde mevcut.

Yapmak istediğim;

Yine bu aralıkta B5:CF105 ilk satırın renginin Gri olması. sonraki satır beyaz, sonra yine Gri.

Bunu nasıl yapabilirim. Command buton ile tetiklemek istiyorum.


Yardımcı arkadaşa şimdiden teşekkürler.

 

[veyselemre]

Sub test()
    Dim r
    With Range("B5:CF105")
        For Each r In .Rows
            If (-1) ^ r.Row < 0 Then r.Interior.Color = rgbSilver
        Next
    End With
End Sub

 

[k0081]

Evet hocam aynen bu şekilde. Teşekkür ederim. Yalnız bir noktayı söylemeyi unutmuşum;

bu kod yeni sayfa kopyalama butonunda çalışacak... dolayısı ile yeni oluşturulan sayfada işlem yapmalıdır. Mevcut yani command butonun bulunduğu sayfayı değiştirmemelidir. ( bu sayfanın adı da : GIRISLER dir. )

- yardımcı olması açısından : yeni sayfada başlık rengini bu şekilde değiştirmiştim;
Sheets(syfname).Tab.Color = RGB(230, 230, 230)

 

[veyselemre]

Sub test()
    Dim r, syfName
    syfName = "VERİ"
    With Sheets(syfName).Range("B5:CF105")
        For Each r In .Rows
            If (-1) ^ r.Row < 0 Then r.Interior.Color = RGB(230, 230, 230)
        Next
    End With
End Sub

 

[k0081]

Tek kelime ile Süper !

Çok teşekkür ediyorum. Tamamdır. Elinize sağlık.