textbox a otomatik 1 er artan sayı verdirmek

[maras321]

arkadaşlar mrb.ekteki örnekte textboxa otomatik 1 er artan sayı nasıl verdiririm.userform kapandığı zaman örnegin 12 de kaldı bir dahaki açtığım sefer 13den devam etsin istiyorum acaba bunu nasıl yaparım.....

 

[Ayhan Ercan]

Merhaba Sn maras321

Aşağıdaki kodları UserForm_Initialize'e yazarak deneyiniz..

Private Sub UserForm_Initialize()
Dim son As Long
son = Sayfa1.[b65536].End(3).Row+1
TextBox2081 = Sayfa1.Cells(son, 1)
End Sub

 

[maras321]

teşekkürler. işe yaradı

 

[Ayhan Ercan]

Rica ederim.
İyi Çalışmalar.. k::