Soru Boş Satırları Ön İzle Yazdır ve PDF Yapma

[Hsn55]

İyi günler;
İyi günler ekli dosyada veri girişi sayfasında I4:I11 hücreleri arasında tik işaretini seçtiğimde J4:J11 hücre aralığındaki sayfaları Ön İzle, Yazdır ve PDF yapıyorum. Fakat Arıza Tespit Raporu,Tamir Sonrası Form,Fiyasa Araştırma ve Muayene Kabul sayfalarında F19:F118 hücre aralığındaki boş olan satırları gizleyerek bu işlemleri yapmak isiyorum. Yani bu hücreler arasında boş olan satırlar gizlenerek ön izle, yazdır ve pdf yapılacak .Yardımcı olursanız sevinirim.

Teklif.rar dosyasını indir - download

Teklif.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[halit3]

kodlar

Sub gizle()
With Application
.Calculation = xlManual '-4135
.ScreenUpdating = False
.EnableEvents = False
End With
For k = 19 To 118
If Cells(k, "F").Value = "" And Cells(k, "G").Value = "" Then
Rows(k).EntireRow.Hidden = True
End If
Next k

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With

MsgBox "işlem tamam"
End Sub


Sub goster()
With Application
.Calculation = xlManual '-4135
.ScreenUpdating = False
.EnableEvents = False
End With

Rows("19:118").EntireRow.Hidden = False

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With

MsgBox "işlem tamam"
End Sub