Soru Excel Seçili Alan Yazdırma

[engin12]

Merhaba

Benim ekteki örnek dosya gibi bir dosyam var. Bu dosya 500 satır.

K sayfasına liste ekleniyor. Sayfa 1 de A sütununa girilen veriyi B sütununda düşeyara ile K sayfasından çekiyor. Bu bazen 10 tane oluyor bazen 100.

Değer gelmediği zaman yok değerini de eğerhata ile iptal ettim.

Birde barkod sayfası var. Sayfa 1 den B sütunundaki veriyi bu sayfayanın B sütununa barkod şeklinde getiriyor.

Sayfa 1 kısmında Buton var buna basınca barkod sayfasının b sütünunu yazdırıyor. Asıl sorunum burada. B sütünundaki bütün hücreleri yazdırıyor. Sadece dolu olanları yazdırmasını istiyorum.

Aşağıdaki kodu kullanıyorum.

Sub CommandButton1_Click()

Worksheets("barkod").PageSetup.PrintArea = "$B:$B"
Worksheets("barkod").PrintOut Copies:=1


End Sub

Yardımlarınız için teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Sub CommandButton1_Click()
    Worksheets("BARKOD").PageSetup.PrintArea = "B1:B" & cells(rows.count,"B").end(xlup).row
    Worksheets("BARKOD").PrintOut Copies:=1
End Sub

 

[Cengiz Demir]

Merhabalar. Kodunuzu böyle düzenleyebilirsiniz.


Ek: Muzaffer üstad benden önce göndermiş.

Üstadım sizin kodunuzda son satırı B sütunundan aldığı ve orda formüller bulunduğu için;
en son formül yazılı satırı en son satır olarak görüyor.
Sayfa1 de A sütununa elle giriş yapıldığı için; ben orasını referans almıştım.
Tabi bu durum sizin kodunuza uygulanırsa daha kısa bir çözüm olur

Dim SonSat As Long
Dim Aln As String

Sub CommandButton1_Click()

SonSat = Sheets("Sayfa1").Cells(Rows.Count, 1).End(xlUp).Row

Aln = "$B1:$B" & SonSat

Worksheets("BARKOD").PageSetup.PrintArea = Aln
Worksheets("BARKOD").PrintOut Copies:=1

End Sub

 

[Muzaffer Ali]

O zaman şöyle olacak.

Sub CommandButton1_Click()
    Worksheets("BARKOD").PageSetup.PrintArea = "B1:B" & cells(rows.count,"A").end(xlup).row
    Worksheets("BARKOD").PrintOut Copies:=1
End Sub

 

[engin12]

Merhaba

Hepinize teşekkür ediyorum. Çıktı aldığımda düzgün görünüyor. Yarın barkod yazıcıda da deneyeceğim.