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

Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
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:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
224
Excel Vers. ve Dili
2013 türkçe
Gizli satırları da yazdırıyor mu. gizli olan satırları yazdırmaması lazım
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Gizli satırlar zaten yazdırılmazdefault olarak.gözüken satırlar yazdırılır.:cool:
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
224
Excel Vers. ve Dili
2013 türkçe
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.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
224
Excel Vers. ve Dili
2013 türkçe
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..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
9 nolu mesaja baktınızmı?
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
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...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
224
Excel Vers. ve Dili
2013 türkçe
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
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Konu o kadar uzadı ki başka biri tenezzül edipte yorum yapar mı bilmiyorum... :/
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
224
Excel Vers. ve Dili
2013 türkçe
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