Label de isimlerin sırasıyla sayılması

[ocamsul]

arkadaşlar merhaba benim öğrenmek istediğim, çalışma sayfamızda bulunan bir userform üzerindeki label in bir butona tıklama ile mesela;
a1 ali
a2 mehmet
a3 salih
a4 oktay
a5 melih
a6soner

şeklinde hiç durmadan bu isimler sıralamada bitinceye kadar sayması mümkünmü?

 

[veyselemre]

Saymasına sayar da sizin görebileceğinizi zannetmem.
[vb:1:23403afedb]Private Sub CommandButton1_Click()
For b = 1 To [a65536].End(3).Row
Label1 = Cells(b, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & " " & Cells(b, 1)
Next
End Sub[/vb:1:23403afedb]

 

[ocamsul]

Bu şekilde yaptım labelde A1oktay diyo sadece a sütunundaki a2.a3......... niye göremiyorum. sayarken?

Private Sub CommandButton1_Click()
For b = 1 To [a1:a11].End(3).Row
Label1 = Cells(b, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & " " & Cells(b, 1)
Next
End Sub

 

[veyselemre]

[vb:1:fd6cbee20f]Private Sub CommandButton1_Click()
For b = 1 To [a65536].End(3).Row
Label1 = Cells(b, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & " " & Cells(b, 1)
For t = 1 To 2000: DoEvents: Next t
Next
End Sub[/vb:1:fd6cbee20f]

 

[ocamsul]

Peki isimleri başında yer alan hücre adlarını nasıl göstermemesini sağlayabiliriz? yani sadece isimler görünecek. Bu arada ilginize teşekkür ederim veyselemre.

 

[veyselemre]

Label1 = Cells(b, 1)

 

[ocamsul]

bu kodu ne yapmam lazım.

 

[veyselemre]

[vb:1:a8ab05b452]Private Sub CommandButton1_Click()
For b = 1 To [a65536].End(3).Row
Label1 = Cells(b, 1)
For t = 1 To 2000: DoEvents: Next t
Next
End Sub[/vb:1:a8ab05b452]

 

[ocamsul]

Veyselemre teşekkür ederim kardeş.