Soru Dolgu rengini değiştirme hk.

[murat_fidan]

Değerli arkadaşlar paylaşmış olduğum örnek tabloya makrolar yardımı ile veri çekiyorum. Her veri çekmemde satır sayısı değişebiliyor. Yapmak istediğim A2 satırından başlayarak A sütununun dolgu rengini yeşil TOPLAM hücresinide sarı dolgu yapmak istiyorum. Ben her veri çektiğimde değişen satır sayısına göre bu renkleri hücrelere atamasını istiyorum. Yardımlarınız için teşekkürler

 

[askm]

Aşağıdaki kodlar ile sayfa değiştirip tekrar ilgili sayfayı açınca dediğiniz olacak.

Private Sub Worksheet_Activate()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For i = 2 To son - 1
    Cells(i, 1).Interior.Color = RGB(146, 208, 80)
Next i
Cells(son, 1).Interior.Color = vbYellow
End Sub

 

[murat_fidan]

Aşağıdaki kodlar ile sayfa değiştirip tekrar ilgili sayfayı açınca dediğiniz olacak.

Private Sub Worksheet_Activate()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
For i = 2 To son - 1
    Cells(i, 1).Interior.Color = RGB(146, 208, 80)
Next i
Cells(son, 1).Interior.Color = vbYellow
End Sub

Teşekkürler sayın askım gayet güzel çalışıyor