Excel Form Otomatik Sipariş No

[wolff]

merhaba basit birşey yapmaya çalışıyorum 3 tane textbox var mesela adı soyadı bire sipairş no istediğim her kaydet dediğimde yeni sipariş numarası atsın mesela 6 haneli 000001 gibi kapatıp açtığımdada en son dan devam edecek bir örnek verdim yardımcı olurmusunuz

 

[programer]

Sizi yanlış anlamadı isem, kaydet butonundaki kodu aşağıdaki gibi değiştirin.

 Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
 TextBox3.Text = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
                        Bos_Satir = Son_Dolu_Satir + 1
                        Sheets("Sayfa1").Range("A" & Bos_Satir).Value = _
                    Application.WorksheetFunction.Max(Sheets("Sayfa1").Range("A:A")) + 1
                        Sheets("Sayfa1").Range("b" & Bos_Satir).Value = TextBox2.Text
                        Sheets("Sayfa1").Range("c" & Bos_Satir).Value = TextBox1.Text

 

[baykan_m]

Bu şekilde yaptım umarım işinizi görür.

İyi çalışmalar

 

[wolff]

hepinize çok teşekkür ederim tam istediğim gibi ancak ben mesela "ONL00001" BİRŞEY YAPMAK İSTİYORUM NASIL YAPABİLİRİM

 

[programer]

Kodu aşağıdaki gibi değiştiriniz.

D1 hüceresine "ONL00001" yazınız

 Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
 
 TextBox3.Text = "ONL" & Format(Mid(Sheets("Sayfa1").Range("D1").Value, 4, 5) + 1, "00000")
 
 Sheets("Sayfa1").Range("D1").Value = TextBox3.Text
 
 Bos_Satir = Son_Dolu_Satir + 1
 Sheets("Sayfa1").Range("A" & Bos_Satir).Value = TextBox3.Text
 Sheets("Sayfa1").Range("b" & Bos_Satir).Value = TextBox2.Text
 Sheets("Sayfa1").Range("c" & Bos_Satir).Value = TextBox1.Text

 

[baykan_m]

Dosyanız ek'tedir.

İyi çalışmalar

 

[wolff]

kodu aşağıdaki gibi değiştiriniz.

D1 hüceresine "onl00001" yazınız

 son_dolu_satir = sheets("sayfa1").range("a65536").end(xlup).row
 
 textbox3.text = "onl" & format(mid(sheets("sayfa1").range("d1").value, 4, 5) + 1, "00000")
 
 sheets("sayfa1").range("d1").value = textbox3.text
 
 bos_satir = son_dolu_satir + 1
 sheets("sayfa1").range("a" & bos_satir).value = textbox3.text
 sheets("sayfa1").range("b" & bos_satir).value = textbox2.text
 sheets("sayfa1").range("c" & bos_satir).value = textbox1.text

çok teşekkür ederim

 

[wolff]

dosyanız ek'tedir.

Iyi çalışmalar

çok teşekkür ederim