Textbox a Otomatik Sayı Oluşturma

[yanginci34]

Merhaba arkadaşlar örnek dosyamda userformun içinde textbox4 için şöyle bir isteğim olacaktı; Ben textbox2 ye tarih olarak 17.12.2020 textbox4 e 7070 yazdım diyelim aktarırken şöyle yazsın "ISN2020000007070" yani otomatik olarak ISN den sonra textbox2 deki tarihin yılını ve ardındaki ben 1 yazsam bile otomatik olarak 000000001 şeklinde dokuz basamak arttırsın. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

a.Cells(son + 1, 4).Value = "ISN" & Format(DateValue(TextBox2.Value), "yyyy") & wf.Rept("0", 9 - Len(TextBox4.Value)) & TextBox4.Value

 

[yanginci34]

Hocam çok teşekkür ederim ellerinize sağlık tam istediğim gibi olmuş.