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

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
#21
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.
 
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
#22
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
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#23
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 :)
 
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
#25
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
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#26
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. :)
 
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
#27
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
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#29
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...
 
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
#30
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
1 Mart 2005
Mesajlar
21,346
Beğeniler
328
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#32
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
78
Beğeniler
2
Excel Vers. ve Dili
2003 türkçe
#33
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..
 
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
#34
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