Sütundaki Dolu Hücre sayısını nasıl alırım

[gokay5959]

Merhaba arkadaşlar foruma yeni katıldım ve yarın sınavım var size bi sorum olucak. A sütunundaki 1 den 1000 e kadar olan satırlarda kaç dolu hücre var bunun kodunu arıyorum. bendeki çalışmıyor. eksik var sanırım.
Private Sub CommandButton1_Click()
Dim i, icerik As Integer
icerik = 0
If Cells(i, 1).Value <> Empty Then
icerik = icerik + 1
End If
Next i
MsgBox "a sutununda " & icerik & "adet dolu hucre bulunuyor"
End Sub

Bu kodu yazıyorum Next i kısmında hata veriyor.

 

[Muzaffer Ali]

Private Sub CommandButton1_Click()
    Dim i, icerik As Integer
    icerik = 0
    [COLOR="Red"]For i = 1 To 1000[/COLOR]
        If Cells(i, 1).Value <> Empty Then
            icerik = icerik + 1
        End If
    Next i
    MsgBox "a sutununda " & icerik & " adet dolu hucre bulunuyor"
End Sub

 

[gokay5959]

Private Sub CommandButton1_Click()
    Dim i, icerik As Integer
    icerik = 0
    [COLOR="Red"]For i = 1 To 1000[/COLOR]
        If Cells(i, 1).Value <> Empty Then
            icerik = icerik + 1
        End If
    Next i
    MsgBox "a sutununda " & icerik & " adet dolu hucre bulunuyor"
End Sub

Eyvallah usta nasıl atlamışım ben bu detayı çok sağolasın.

 

[Ziynettin]

Alternatif olarak,

Private Sub CommandButton1_Click()
MsgBox "A sutununda " & WorksheetFunction.CountA([A1:A1000]) & " adet dolu hucre bulunuyor"
End Sub