sıra numarasını TextBox ta gösterme

[Hacı Bayram ÖZKAN]

Merhaba arkadaaşlar ekli dosyamda bulunan zimmet programında Userform üzerinde buluan TextBox10 kutusuna kayıt ettiğim en son verinin bir fazlasını burada görmek istiyorum, buna bir bakarmısınız.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz. Dilerseniz +1 diyerek sıra numarasını arttırabilirsiniz.

    If Sheets("Liste").Cells(Rows.Count, 1).End(3) > 2 Then
    TextBox10 = Sheets("Liste").Cells(Rows.Count, 1).End(3)
    End If
[/CODE9

 

[kan-nas]

Sheets("Liste").Range("a55536").End(3).Select
TextBox10.Value = ActiveCell + 1

bu da olabilir.

 

[Hacı Bayram ÖZKAN]

Bu kodları nereye ekleyeceğim bunu anlamadım

 

[Hacı Bayram ÖZKAN]

Private Sub UserForm_Initialize()
Bunun en altına ekledim oldu teşekkürler.