Kayıt için sıra arttırımı?

[massgrave]

CommandButon1'tıkladıgında listbox1 'de gösterilen A sutunundaki sıra numarasının 1 fazlasını textbox1'de otomatik gösteren kod nedir acaba? (yeni kayda hazırlık için, çok fazla sipariş girildiğinden son sıra numarasınıda elle yazmak gerekiyor.

Excel tablo adı: siparisler

 

[cems]

VBA üzerinde userform'un kod bölümünü açın...

Userform intialize altında " end sub " dan önce

 TextBox1 = Worksheets("siparisler").Cells(Rows.Count, "A").End(3).Row+1

yazın save edin, dosyayı kapatıp yeniden açın.

Userform açıldığında ilk boş satırın sıra numarası gelecektir. Diğer textboxları doldurup kaydete basınca bu no başa yazılır.

textbox numarasına dikkat edin.

Dosya ya da tablo adı değil , sayfa adı siparişler olmalıdır .

Tavsiye : Kaydet butonundaki kodlar sonuna textboxları boşaltacak kodlar ekleyin ( textbox1="" çoğaltın ) ve en sonunda

userform_initialize ekleyin.

Bu şekilde form boşalır ve yenilenir , boş formda ilk boş satırı +1 sıra no gelir

 

[massgrave]

Ayrıca sadece TEXTBOX1'de A sutununun en latındaki sıra numarasının 1 fazlasını göstermek istiyorum.Kayda hazırlık için.

 

[massgrave]

VBA üzerinde userform'un kod bölümünü açın...

Userform intialize altında " end sub " dan önce

 TextBox1 = Worksheets("siparisler").Cells(Rows.Count, "A").End(3).Row+1

yazın save edin, dosyayı kapatıp yeniden açın.

Userform açıldığında ilk boş satırın sıra numarası gelecektir. Diğer textboxları doldurup kaydete basınca bu no başa yazılır.

textbox numarasına dikkat edin.

Dosya ya da tablo adı değil , sayfa adı siparişler olmalıdır .

Teşekkürler söylediğinizi yaptım sorun halloldu. 1 fazlasını gösteriyordu oda başlıktan dolayı imiş +1 'i silince istediğim gibi oldu.

 

[cems]

Tavsiye kısmını ekledim , onu da uygulayın, kolay gelsin