Hücreleri sayıp komut butonda gösteren kodlar

[hakki83]

Merhaba

A sütununda A1 hariç A2’den itibaren isimlerin adedini komut butonda gösteren kodları rica ederim.

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
Say = WorksheetFunction.CountA(Range("A:A")) - 1
CommandButton1.Caption = Say
End Sub

 

[hakki83]

Emeğinize sağlık ÖmerFaruk hocam.