Textbox Değer artırma...

[Hikmet26]

Veriler "C" stünuna alt alta userformdan aktarılarak yazılıyor. Verilen son kod numarası 07-5547 diyelim bir sonraki kod nomurasının 07-5548 olmasını ve bu kod numarasının textbox ta görünmesini istiyorum. Nasıl yapabilirim.

 

[Exelans]

Diyelim ki TextBox1 sizin bahsettiğiniz kod numarası olsun

Sub SizinKodlarınız()
.......
........
........
Textbox1=Left(TextBox1,3) & Right(TextBox1,4)*1)+1
End Sub

 

[Hikmet26]

Teşekkürler. Güzel Çalışıyor... Yanlız en sondaki parantez sanırım fazlalık onu sildim öyle çalıştı yoksa çalışmadı o kesimi hata olarak gösteriyor... Ayrıca 07-15348 olursa kod 07-5349 yapıyor bunun çözümü var mıdır? Tekrar Teşekkürler...

 

[Exelans]

Textbox1=Left(TextBox1,3) & Mid(TextBox1,4,Len(TextBox1)-3)*1+1
dener misiniz ?

 

[Hikmet26]

kod çok güzel çalışıyor Teşekkür ederim...