yazdır maksorunda sheets hatası

[fatih34]

iyi çalışmalar arkadaşlar burada öğrendiğim ve üstadlarımın yardımıyla bir program yapmaya çalıştım makroyu çalıştırıp yazdıra bastırınca "Sheets("bankalistesi").PageSetup.PrintArea = "Yazdırma_Alanı1" hatası veriyor
kodu üstadlarım verdi kendi çalışmama uyguladım ancak bu hatayı verdi bu konuda bir yardımcı olursanız sevinirim

 

[Mahir64]

iyi çalışmalar arkadaşlar burada öğrendiğim ve üstadlarımın yardımıyla bir program yapmaya çalıştım makroyu çalıştırıp yazdıra bastırınca "Sheets("bankalistesi").PageSetup.PrintArea = "Yazdırma_Alanı1" hatası veriyor
kodu üstadlarım verdi kendi çalışmama uyguladım ancak bu hatayı verdi bu konuda bir yardımcı olursanız sevinirim

Merhaba
Dosyanızda Yazdıma_alanı1 tanımlaması mevcut değil.

 

[Orion1]

Bunun için önceden tırnak içine aldığınız adla bir alan oluşturmanız lazım.
Alanı excelin özelliği olan ad tanımlama yöntemi ile oluşturabilirsiniz.
ben alan adı oluşturmadan direk alanı yazarak kodladım.
Kolay gelsin.

Sheets("bankalistesi").PageSetup.PrintArea = "bankalistesi!B4:F55"

 

[Mahir64]

Görünen tablo yazdırılacaksa
koddaki satırı bununla değiştirin
Yada aralık belirleyin

Sheets("bankalistesi").PageSetup.PrintArea = [COLOR=Red]"$B$1:$F$55"[/COLOR]

 

[fatih34]

satır gizleme

sayın üstadlarım yardımlarınızdan dolayı teşekkür ediyorum örnek tablomda 50 satır var mesela bir ödemede 20 satır doluyor diğer ödemede 1 tek kişi için banka listesi çıkartıyorum ancak satırların hepsi çıkıyor yazdır butonuna bastığımda sadece dolu olan satırların çıkması boş olan satırların çıkmamasını istiyorum bu konuda da bir yardımcı olursanız sevinirim

Private Sub CommandButton1_Click()
Sheets("bankalistesi").Activate
Sheets("bankalistesi").PageSetup.PrintArea = "bankalistesi!B4:F55"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Private Sub CommandButton7_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Sheets("bankalistesi").Select
Range("A1:G63").CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = ActiveSheet.ChartObjects.Add(, , genislik, yukseklik)
grafik.Chart.Paste
grafik.Chart.Export ThisWorkbook.Path & "\xxresimxx.jpg"
Frame1.Picture = LoadPicture(ThisWorkbook.Path & "\xxresimxx.jpg")
grafik.Delete
Kill ThisWorkbook.Path & "\xxresimxx.jpg"
End Sub