Gizli Satırları Yoksayarak Yazdırma İşlemi

Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#1
Aslında ilk önce kendi belirlediğim ( mesala a5 c6 d8 ) gibi bu hücreler arasında ilk dolu olan hücreye git formülü verebilirmisiniz

Diğeri ise Sayfada alt alta yazılı bir çok veri var ve yaklaşık bütün sayırlar dolu olduğunda sayfa sayısı düşüyor ama yazdır dediğimizde 15 sayfa boş olarak gözüküyor.
Boş saytır ve sayfaları göstermeyen bir yazdırma seçeneyi yapabilirmiyiz.
 
Son düzenleme:
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#2
A sütununda veri varsa yazıyor,yoksa yazmıyor.:cool:
Kod:
Sub doluyazdir_59()
Dim sh As Worksheet
For Each sh In Worksheets
    If WorksheetFunction.CountA(sh.Range("A:A")) > 0 Then
        sh.PrintOut
    End If
Next
End Sub
 
Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#5
Hocam çok afedersin, ben exel sayfasında crtl p yaptığımda satırlar gizli dahi olsa 1 sayfalık veri 15 sayfa olarak gözüküyor ve 14 sayfa boş kağıt çıkartıyor yazıcı.. o yüzden bu sorun dert oldu benim için.

Birde rica etsem kendi belirlediğim aralıktaki hücre değerine göre ilk dolu hücreyi seç formülü verebilirmisin
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#6
Bunu deneyin.A1:A100 arasında gizli satır varsa yazdırmıyor.Görünür satırları yazdırıyor.:cool:
Kod:
Sub doluyazdir2_59()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Count > 0 Then
        sh.PrintOut
    End If
Next
End Sub
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#7
O zaman şöyle yapın boş bir sayfa yapın.Sayfadan görünür sayfaları kopyalayıp o sayfaya yapıştırın,Görünür satırları o sayfada yazdırın.:cool:
Sanırım istediğiniz cevap bu.:cool:
 
Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#8
hocam özür dilerim. Bir sayfaya girdiğimde kendi belirlediğim hücre aralığındaki dolu olan ilk hücreyi seçecek bir formüle ihtiyacım var. yardımcı olabilirmisiniz. Bu sorunu çözmem gerekiyor.
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#9
Ekteki dosyayı inceleyiniz.:cool:

DOSYAYI INDIR

Kod:
Sub doluyazdir2_59()
Dim sh As Worksheet
Sheets("YAZDIR").Range("A:A").ClearContents
For Each sh In Worksheets
    If sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Count > 0 Then
        sat = Sheets("YAZDIR").Cells(Rows.Count, "A").End(xlUp).Row
        sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Copy Sheets("YAZDIR").Range("A" & sat + 1)
    End If
Next
Sheets("YAZDIR").PrintOut
End Sub
 
Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#13
Hücre gizlendiğinde formül hata veriyor... bana göndermiş olduğunuz dosyada herhangi bir satırı gizleyin ve a1 ile a100 aralığında hata alırsınız. formül çalışmıyor o zaman...
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#14
Vediğin formül kitaplıkta kaç tane sayfa varsa hepsini tek tek yazdırrıyor.
ben çalışma sayfamı yazdırmak istiyorum
lütfen yardımcı olabilirimin..
çalışma sayfam sayfa1 olunca .
Yazdığım kodu bu şekilde değiştirip yazdırın.:cool:
Kod:
Sub doluyazdir2_59()
Dim sh As Worksheet
Sheets("YAZDIR").Range("A:A").ClearContents
Set sh = Sheets("Sayfa1")
If sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Count > 0 Then
    sat = Sheets("YAZDIR").Cells(Rows.Count, "A").End(xlUp).Row
    sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Copy Sheets("YAZDIR").Range("A" & sat + 1)
End If

Sheets("YAZDIR").PrintOut
End Sub
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#15
zaten sayfa1-sayfa2-sayfa3 te gizlenmiş satırlar var.Yazdır sayfasına gizli satır yapmıyacaksınız.
Olduğu gibi çalıştırın.:cool:
 
Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#16
Hocam ben bir vba tabanlı exel programı kullanıyorum ve yazdıracağım sayfada ki satırları gizleyip gizlememek benim elimde değil..

bak yazdırmak istediğim sayfa A1 den I540 a kadar dolu ve zaman zaman bu aralıkta bazı hücreler gizleniyor. bazen 20 satıra kadar da düşüyor.

ben manuel olarak yazdırmak istediğimde satırlar gizlensede 20 sayfa gözüküyor boş olarak

bir kod olcak gizlenen satırları yazdırmayacak sectiğim yazdırma alanında ki gizli olmayan satırları yazdıracak...
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#18
Benim yazdığım kodlar sayfada gizli satırları yazdırmıyor.Görünen satırları yazdırıyor.
Onu nasıl yapıyor,son verdiğim kodda Sayfa1 adlı sayfadan gizli olmayan satırları,yani görünür satırları copyalayıp yazdır sayfasına yapıştırıyor.
Linkteki dosyayı inceleyin.

DOSYAYI INDIR

Kod:
Sub doluyazdir2_59()
Dim sh As Worksheet
Sheets("YAZDIR").Range("A:A").ClearContents
Set sh = Sheets("Sayfa1")
If sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Count > 0 Then
    sh.Range("A1:A100").SpecialCells(xlCellTypeVisible).Copy Sheets("YAZDIR").Range("A1")
End If
Sheets("YAZDIR").PrintOut
End Sub
 
Katılım
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#19
Sayfa1 de 3ncü satırdan 9ncu satıra kadar gizlenmiş gözüküyor.
sayfa1.jpg

Yazdır sayfasındada sayfa3 ten sayfa9 a kadar gizlenen hücreleri değil gözüken hücreleri var.
Yani kod çalışmış.
Ve bunlar yazdırılıyor.

yazdır.jpg
 
Katılım
12 Ekim 2010
Mesajlar
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#20
Hocam Formülü kendime göre uyarladım ama hata veriyor.. Benim sayfalarımda tablo var birleştirilmiş hücre var
Yani sadece sayfayı yazdırmak istiyorum. onu ordan alıp oraya niye kopyalatmaya çalıştığımızı hiç anlamış değilim. benim yazdırmak istediğim bir tane sayfa var o sayfayı göründüğü gibi yazdıracak hepsi bu
sadece tek satırlık bir kod lazım bana
 
Üst