Renkli hücre adeti bulunması

[metinavci23]

Arkadaşlar ekteki dosyada izah etmeye çalıştığım gibi makronun bir satırda kaç adet renkli hüçre olduğunu bulması mümkün mü acaba? yardımınız için şimdiden teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Sub rentopla()
Dim sat As Byte
Dim sut As Byte
[h2:h7] = ""
For sat = 2 To 7
For sut = 1 To 6
    If Not Cells(sat, sut).Interior.ColorIndex = xlNone Then
        Cells(sat, "h") = Cells(sat, "h") + 1
    End If
Next
Next
End Sub

 

[Merhum İdris SERDAR]

Arkadaşlar ekteki dosyada izah etmeye çalıştığım gibi makronun bir satırda kaç adet renkli hüçre olduğunu bulması mümkün mü acaba? yardımınız için şimdiden teşekkür ederim

.

Dosyanız ekte.

.

 

[metinavci23]

Teşekkürler Ziya bey.