Merhabalar
Excel çalışma kitabımın Order_List sekmesinde Sipariş Formu yüklendiğinde TextBox_SiparisKodu.value değerinin bugünün tarihinden örnek verirsem
SP-210301 şeklinde olmasını ve aynı gün eğer ikinci sipariş girilirse sondaki 01 değerinin SP-210302 olması ve her seferinde 1 artmasını sağlamak istiyorum. Revize ettiğim kodda tarihi araya almadan dikkate almadan çözmeye çalıştım fakat daha sonra tarihide işin içine katmanın daha iyi olacağını düşündüm. Yardımlarınız için teşekkür ederim.

Private Sub UserForm_Initialize()



TextBox_SiparisTarihi = Format(Date, "dd.mm.yyyy")

With TextBox_SiparisTarihi

    .SelStart = 0

    .SelLength = .TextLength

End With



son_dolu_satir = Sheets("ORDER_LIST").Range("A10000").End(xlUp).Row



 TextBox_SiparisKodu.Value = "SP-" & Format(Mid(Sheets("ORDER_LIST").Range("H2").Value, 4, 5) + 1, "00000")



 Sheets("ORDER_LIST").Range("H2").Value = TextBox_SiparisKodu.Text



 bos_satir = son_dolu_satir + 1

 Sheets("ORDER_LIST").Range("A" & bos_satir).Value = TextBox_SiparisKodu.Text





End Sub