Önizleme ve yazdırma makrosu

[xpluns]

Ekteki , sayfada düğmelerden birine yazdırma , diğerinide baskı önizleme makrosu oluşturmak istiyorum.

Fakat değerlerin 0 olduğu hücrelerin bulunduğu satırları gizleyerek çıksın istiyorum.
Hem önizlemede , hem yazdırma da bu sıfır (0) bulunan satırları gizleyerek görünmesini ve çıktı alınmasını sağlayabilirmiyiz.

 

[kombo]

Sayın xpluns
Dosyanız ekte. Makro bilgim fazla olmadığı için biraz acemice oldu ama bir inceleyin, belki işe yarar.

 

[xpluns]

Sn. Kombo

Olmuş aslında ama benim istediğim gibi değil

Ben sayfa 1 de bazı şeyler giriyorum ve sayfa 2 de A sutununda 0 olan hücrelerin satırlarının gizlenmesini ve bunu bir düğmeye atayarak sadece önizleme almam yeterli olacak bunu yapabilirmisiniz.

 

[kombo]

Sn xpluns
Alt + F11 tuşu ile VBA penceresini açıp;
Yazdır Makrosuna aşağıdaki kırmızı satırı satırı ilave edin.

Sub YAZDIR()
'EXCEL.WEB.TR
Application.ScreenUpdating = False
For Each hücre In Range("IV1:IV" & Cells(65536, 1).End(xlUp).Row)
If hücre.Value = "." Then
Rows(hücre.Row).EntireRow.Hidden = True
End If
Next hücre
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:65536").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Gizle ve göster makrolarını ve butonlarını silebilirsiniz.
Önizleme zaten istediğiniz gibi. sadece C sütununda 0 olan hücreleri gizliyor. A sütununda 0 olanları gizlemek için IV (gizlidir) sütunundaki
=EĞER(C15=0;".";"")
Formülündeki C leri A yapın.
Şu anda çalıştığım makinede Excel biraz sorunlu olduğu için yapıp gönderemiyorum.

 

[xpluns]

Sn xpluns
Alt + F11 tuşu ile VBA penceresini açıp;
Yazdır Makrosuna aşağıdaki kırmızı satırı satırı ilave edin.

Sub YAZDIR()
'EXCEL.WEB.TR
Application.ScreenUpdating = False
For Each hücre In Range("IV1:IV" & Cells(65536, 1).End(xlUp).Row)
If hücre.Value = "." Then
Rows(hücre.Row).EntireRow.Hidden = True
End If
Next hücre
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:65536").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Gizle ve göster makrolarını ve butonlarını silebilirsiniz.
Önizleme zaten istediğiniz gibi. sadece C sütununda 0 olan hücreleri gizliyor. A sütununda 0 olanları gizlemek için IV (gizlidir) sütunundaki
=EĞER(C15=0;".";"")
Formülündeki C leri A yapın.
Şu anda çalıştığım makinede Excel biraz sorunlu olduğu için yapıp gönderemiyorum.

Sayfa 1 deki bir düğmeden Sayfa 2 yi yazdıracağım için , bu kodla olmuyor ve ben önizleme ile ilgili olan kodu sayfa 2 ye uyarlıyamadım bu konuda yardımınızı istiyorum.

 

[zipeko]

Kodları şöyle düzenleyin
Sub İZLE()
'EXCEL.WEB.TR
Application.ScreenUpdating = False
Sheets("OPSİYON 5").Select 'Ön izleme yapacağınız sayfa
For Each hücre In Range("IV1:IV" & Cells(65536, 1).End(xlUp).Row)
If hücre.Value = "." Then
Rows(hücre.Row).EntireRow.Hidden = True
End If
Next hücre
Range("A1:F47").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$47"
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sayfa1").Select 'Sayfa 1 yerineButon koyacağınız sayfanın adını yazın
Application.ScreenUpdating = True
End Sub

 

[xpluns]

Olmadı Sn. zipeko

Hata veriyor.

Sayfa 1 e bir düğme koydum. Bu düğmeye şöyle bir makro atamak istiyorum

Sayfa 2 de bulunan bir yazdırma alanı (A1:F47) içerisinde A sutununda sıfır (0) bulunan boş olan değil (0) bulunan satırların gizlenerek, alanın önizlemesinin karşıma gelmesini istiyorum.

Yardımcı olursanız sevinirim.

 

[xpluns]

Arkadaşlar sorunu çözdüm sağolun.