olmayanı ve adet yazdır

[Kemal Demir]

Arkadaslar merhaba

Zannedersem anlamsız başlık oldu.

Aşagıdaki Kodda Kırmız İle yazılan yere Adet Yazdırmak istiyorum ama

Bana :Msgboxları saydırıyor.

Ben ise MsgBox'ta kaç tane varsa yazsın istiyorum.

Sub saydır_boya_yaz()
adet = CountA
For c = 2 To 13
If Cells(c, 2).Value = "" Then
Cells(c, 1).Value = c
MsgBox (adet)
Else
End If
Next
End Sub

Saygılar.

 

[Kemal Demir]

2 kolonda arama yaptığım değerler yok ise

belirtmeyı unutmusum

Sub saydır_boya_yaz()
adet = CountA
For c = 2 To 13
If Cells(c, 2).Value = "deneme" Then
Cells(c, 1).Value = c
MsgBox (adet)
Else
End If
Next
End Sub