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