Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.