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

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
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
Niye ısrar ediyorsunuz anlamadım.Öyle olsa idi öyle yapacaktım.Niye uğraşayım ki.Gizli satırlar olduğu için o sayfadaki görünür hücreleri alıp boş sayfaya yapıştırması 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
Birleştirilmiş hücre varsa aşağıdaki kodu kullanınız.:cool:
Kod:
Sub doluyazdir2_59()
Dim sh As Worksheet
Sheets("YAZDIR").Cells.UnMerge
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
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Hocam sana sağlam bir soru sorayım
boş ise satır gizleniyor ya rows. = hidden :) bunu hidden yerine daha sağlam gizleyen hiç hiçine pasife eden bir deli hidden yok mu. yazdırma alanında gözükmez 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
Hocam sana sağlam bir soru sorayım
boş ise satır gizleniyor ya rows. = hidden :) bunu hidden yerine daha sağlam gizleyen hiç hiçine pasife eden bir deli hidden yok mu. yazdırma alanında gözükmez o zaman :)
Yoktur.
hücre içinin font rengini beyaz yaparsanız hücre içindeki veri gözükmez,ama satır gözükür.Boş satır olarak gözükür.
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Hocam senin bana verdiğin formül yemin ederim bir harikaymış aslında usanmadan yol gösterdiğin için çok teşekkür ederim. Birleştirilmiş hücreler için vermiş olduğun en son formül mükemmel şekilde çalıştı. Bitirdim sayende. Çok Teşekkür ederim. İyi iş çıkarttın. :)
 

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
Hocam senin bana verdiğin formül yemin ederim bir harikaymış aslında usanmadan yol gösterdiğin için çok teşekkür ederim. Birleştirilmiş hücreler için verdiş olduğun en son formül mükemmel şekilde çalıştı. Bitirdim sayende. Çok Teşekkür ederim. İyi iş çıkarttın. :)
Onlar formül değil.
VBA Kodları.
İyi çalışmalar.:cool:
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Çok Teşekkür ederim... Saat geç oldu ama çok deydi.. .. İyi geceler..
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Dim sh As Worksheet
Sheets("Görev Oluru").Cells.UnMerge
Sheets("Görev Oluru").Range("A:eek:").Clear
Set sh = Sheets("GorevOluru")
If sh.Range("A1:eek:544").SpecialCells(xlCellTypeVisible).Count > 0 Then
sh.Range("A1:eek:544").SpecialCells(xlCellTypeVisible).Copy Sheets("Görev Oluru").Range("A1")
End If
Sheets("Görev Oluru").Select

Hocam Formül kopyalama yaparken hücrede yazanı değil, hücrenin başka biğerden aldığı değeri gösteren eğer formülünü kopyalıyor ve yapıştırıyor.. sorun ne olabilir. Neden hücrede yazan değeri kopyalamıyor...
 

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
Yalnızca değerler için aşağıdaki kodu kullanın.
Not:Bunlar formül değil vba kodudur.
Kod:
Dim sh As Worksheet
Sheets("Görev Oluru").Cells.UnMerge
Sheets("Görev Oluru").Range("A:eek:").Clear
Set sh = Sheets("GorevOluru")
If sh.Range("A1:eek:544").SpecialCells(xlCellTypeVisible).Count > 0 Then
sh.Range("A1:eek:544").SpecialCells(xlCellTypeVisible).Copy
    Sheets("Görev Oluru").Range("A1").PasteSpecial xlValues
End If
Sheets("Görev Oluru").Select
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
Hocam kodu uyguladım ama bu seferde biçimlendirilmiş hücreleri almıyor Tablolar bozuluyor
 
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
Hocam kodu uyguladım ama bu seferde biçimlendirilmiş hücreleri almıyor Tablolar bozuluyor
Range("A5").PasteSpecial xlPasteFormats
aşağıdaki gibi ekleyin kodunuza
Rich (BB code):
Sheets("Görev Oluru").Range("A1:eek:544").PasteSpecial xlValues
Sheets("Görev Oluru").Range("A1:eek:544").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
 
Katılım
12 Ekim 2010
Mesajlar
224
Excel Vers. ve Dili
2013 türkçe
https://www.dosyayukle.biz/36d

hocam bakarmısınız lütfen dosyaya bir gariplik var

ayarlayamıyorum bir türlü döngüye girmiş gibi takılıyor ve işlem yapmıyor,,

Kodu GorevOluru sayfasının Worksheet Activite Sub bölümünün sonuna kopyalıyorum sonra Olur Sayfasına geçmesini sağlıyorum

Dün akşam göndermiş olduğunuz son kod problemsiz çalışıyordu ama o da gorev oluru sayfasındaki değerleri formülleri ile birlikte aldığından sayfada hücreler boş gözüküyordu o koda küçük bir işlem uyfulayamazmıyız bilemiyorum..
 

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
GörevOluru sayfasındaki modüle çok fazla satır kod yazmışsınız.
Ben bir modüle en fazla 1000 satır kod yazılır diye biliyorum.
Ondan activate kodunda hata oluşuyor.
Hem bu 1000 satır kod yazmakta ne oluyor?Onun kontrolüde zor olur,hatta olmaz.:cool:
 
Üst