Yazdır kodu

[nadirornek]

UserForm1 yardımı ile Sayfa1'in B sutunundaki verileri Listbox1'e aldırıp diğer sayfalara yapıştırmak sureti ile sayfaları yazdırıyorum.
Ançak Sayfa1'in B sutununda 1 veri olduğunda döngü fazla dönüyor gereksiz sayıda sayfa çıkarıyor.B sutununda 2 tane veri olduğu zaman sorun yok 2 tane çıktı alabiliyorum.

Sayfa1'in B sutununda 1 veri varsa bir sefer yazdıracak
kodlarda değişiklik yapabilirmisiniz.

 

[Ömer]

Merhaba,

Initialize kodlarındaki, sonadr kodunu aşağıdakiyle değiştirerek deneyin.

sonadr = Cells(Rows.Count, "B").End(xlUp).Address(False, False)

.

 

[nadirornek]

Kodu ekledim hata veriyor çalışmıyor
Kodun tamamını ekleyebilirmisiniz

 

[Ömer]

Eski satırı silip, aynı bölüme yeni kodu ilave etmeniz gerekiyor.

.

 

[nadirornek]

Teşekkürler şimdi oldu