Son Satırı Bulmada Sorun

[zlatanobo]

Saygıdeğer Üstadlar;

Sizlerin sayesinde kendimce bir şeyler yazabiliyorum artık.

Yine sizlerden öğrendiklerim sayesinde bir irsaliye programı yaptım. Ancak şöyle bir sorunum var:

Son satır bulma ile ilgili makroyu sitede buldum ve yazarak çalıştırdım. Fakat, 1. sayfada B sütununda bulduğum son satıra irsaliyemin 1. malını yazıyorum, 2. malı yazmak için gerekli olan satıra inmesi için de son satırı bulma makrosunun son satırı tekrar bulması gerekiyor.

Sitede bununla ilgili 2 gündür arama yapıyorum ancak bir şey bulamadım. Dosya ekte...

Yardımlarınız için şimdiden teşekkür ediyor, iyi çalışmalar diliyorum...

 

[Levent Menteşoğlu]

Bu tipte birden fazla veri girişinde benzer textbox ve comboboxların isimlerini ardışık gidecek şekilde belirleyin. Böylece bir döngü ile kolayca işleminizi yapabilirsiniz. Örneğin, Tüm miktar yazdığınız textboxların Tip1,Tip2,Tip3.... şeklinde, birim seçtiğiniz comboboxların combobox1,combobox2,combobox3,...... şeklinde, ürün adlarınında tiptxt1,tiptxt2,..... şeklinde isimlendirildiğini kabul edelim. Bu durumda verileri aşağıdaki gibi bir döngü ile kaydedebilirsiniz.

for a=1 to 17
sonstr = [B29].End(xlUp).Row+ 1
If controls("Tip" & a)="" then exit for
sheets("Yazd").Range("B" & sonstr) = controls("tiptxt" & a)
Sheets("Yazd").Range("E" & sonstr) = controls("Tip" & a) + " " + controls("ComboBox" & a)
next

 

[zlatanobo]

Bu tipte birden fazla veri girişinde benzer textbox ve comboboxların isimlerini ardışık gidecek şekilde belirleyin. Böylece bir döngü ile kolayca işleminizi yapabilirsiniz. Örneğin, Tüm miktar yazdığınız textboxların Tip1,Tip2,Tip3.... şeklinde, birim seçtiğiniz comboboxların combobox1,combobox2,combobox3,...... şeklinde, ürün adlarınında tiptxt1,tiptxt2,..... isimlendirildiğini kabul edelim. Bu durumda verileri aşağıdaki gibi bir döngü ile kaydedebilirsiniz.

for a=1 to 17
sonstr = [B29].End(xlUp).Row+ 1
If controls("Tip" & a)="" then exit for
sheets("Yazd").Range("B" & sonstr) = controls("tiptxt" & a)
Sheets("Yazd").Range("E" & sonstr) = controls("Tip" & a) + " " + controls("ComboBox" & a)
next

Sayın Menteşoğlu Üstadım;

Öncelikle verdiğiniz bilgiler için ne kadar teşekkür etsem azdır. Burada yaptığınız gerçektende paha biçilemeyecek kıymettedir. Çünkü siz bilginizi paylaşıyorsunuz.

Dediklerinizi aynen yaptım ve tam söylediğiniz gibi çalıştır. Fakat bu kez de şöyle bir sorunum oldu:

Tip1 ekledim, Tip2 ekledim, bunları yazıyor, gayet güzel.

Ancak örneğin Tip3 ü boş geçip Tip4 yazarsam Tip3 değerini boş gördüğünden for'u sonlandırıyor ve sonraki Tip'lere bakmıyor.

Yardımlarınız için tekrar teşekkür ederim.

İyi Çalışmalar...

 

[Levent Menteşoğlu]

Rica ederim. Güzel sözleriniz için teşekkür ederim. Kodu aşağıdaki gibi kullanırsanız sanıyorum tam olarak isteğinizi karşılayacaktır.

for a=1 to 17
sonstr = [B29].End(xlUp).Row+ 1
If controls("Tip" & a)<>"" then
sheets("Yazd").Range("B" & sonstr) = controls("tiptxt" & a)
Sheets("Yazd").Range("E" & sonstr) = controls("Tip" & a) + " " + controls("ComboBox" & a)
end if
next

 

[zlatanobo]

Teşekkür

Sayın Üstadım,

Söylediğiniz gibi çalıştı.

Verdiğiniz bilgiler için tekrar teşekkür ederim...

İyi çalışmalar...

 

[relaxim]

Bu değerli bilgiler için emeği geçenlere teşekkürü borç bilirim. Saygılarımla.