Sıralı metinin ardına değişebilen veri yaratma

[ulucd]

PM.uluc.uluc.06.05.154

PM.uluc. kısmı sabit değişkenimiz.
06.05 değişkeninin 05.06 i günü ve ayı göstermekte.
154 değişkeni de sipariş nosunu girmekte.
Ben excelde bir buton ve bir de textbox ekliyorum.
Buton görevi: CLİCK YORDAMI İLE Birkerede tarih değişkenini bulunduğumuz ayı ve günü ayarlayacak aynı zamanda 154 değişkenini 1 arttırarak 155 yapacak.
Dolayısı ile ben clik yapınca PM.uluc.06.05.154 = PM.uluc.06.05.155 olmuş olacak.
Bunu nasıl bir yazılımla halledebiliriz. yardımınızı rica ediyorum arkadaşlar çok acil. Yardımcı olursanız çok mutlu olacağım
Uluc :dua:

 

[Akuma]

Day (Date)
Month (Date)
Dim i As Integer
For i = 1 To 154
Text1.Text = i
Next i

 

[ALPEN]

Day (Date)
Month (Date)
Dim i As Integer
For i = 1 To 154
Text1.Text = i
Next i

Ne şimdi bu?

 

[ulucd]

Bu ne şimdi hakikaten ??? :?:

 

[zafer]

Merhaba

sonu 3 haneli değişkenler için

Private Sub CommandButton1_Click()
uzunluk = Len(TextBox1)
son = Right(TextBox1, 3) + 1
ilk = Mid(TextBox1, 1, uzunluk - 3)
TextBox1 = ilk & son
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("sayfa1").Range("a1")
End Sub

 

[ulucd]

Teşekkür ederim değerli açıklamalarınız için çok saolun.. :hey: