renge göre saydırma

[sandokan]

istedigim su yukarıda griye boyali olanların sayısını e11 sutununa yazsın mesala 2 tane var
a sutunda 60000 veri sılalı
dosya ekte

teşekkürler

 

[halit3]

bu kodu denermisiniz

Sub aktar()
say = 0
For i = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
If Worksheets(ActiveSheet.Name).Cells(i, 1).Interior.ColorIndex = 15 Then
say = say + 1
End If
Next i
Worksheets(ActiveSheet.Name).Cells(11, 5).Value = say
MsgBox "toplam " & say & " adt var"
End Sub

 

[sandokan]

Uyguladım ama olmadı.f11 le modul kısmına yapıstırdım ama olmadı

 

[halit3]

Uyguladım ama olmadı.f11 le modul kısmına yapıstırdım ama olmadı

dosya ekte

 

[sandokan]

teşekkü-r ederim olmus

eline saglik