Renkli satır toplamı alma

[seddur]

Merhabalar.Liste sayfasında rengi Interior.ColorIndex = 45 olan satırların "F" sutununda bulunan değerlerini VBA kodu ile toplamak istiyorum.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Hücreler rengi nasıl alıyor.

Elle mi?
Koşullu biçimlendirme ile mi?

 

[seddur]

VBA Kodu kullanarak renklendirme yapılıyor.Kullandığım kod:
Dim a As Byte
For a = 2 To 50
If Cells(a, "G") = "NAKİT" Or Cells(a, "G") = "VİSA" Then
With Range("A" & a & ":G" & a)
.Interior.ColorIndex = 45
.Font.ColorIndex = 2
.Font.Bold = True
End With
end if
next

 

[Korhan Ayhan]

Peki hücre rengi 45 olduğu anda hemen altına bir değişken ekleyip hücre değerini toplatsanız işinize yaramaz mı?

Toplam = Toplam + Range("F" & a).Value

 

[seddur]

Aşağıda yazılı kodu uyguladım sonuç verdi.İlgi için Teşekkürler.
For a = 2 To 50
If Range("A" & a & ":G" & a).Interior.ColorIndex = 45 Then
toplam = toplam + Range("F" & a).Value
TextBox1 = toplam
End If
Next