pdf kaydetme 2nci sayfada veri yoksa 1 sayfa pdf

[netvolxxx]

merhaba excel çalışma kitabımda buton ile pdf kaydet dediğim zaman 4 sayfa olarak kayıt yapıyor ama 2 nci sayfamda veri yoksa sadece ilk sayfayı kaydetsin istiyorum

b sütün satır 43 2 inci sayfa oluyor ben eyer b sütün 43 nolu satırda veri yoksa pdf kaydet dediğimde 1 sayfa kaydetsin pdf
bu işem b sütün 71 satır ve 99 satır da tekrarlasın


yada bu işlemi pdf kaydet dediğimde hangi sayfaları kaydetmek istersin gibi bir şey yapabilirmiyiz...

şöyle bir kodum var kullandığım

Sub Düğme10_Tıklat()
UserForm1.Show
End Sub
Sub pdf_kaydet()
If [A3] = "" Then
MsgBox ("MÜŞTERİ ADI SOYADI ALANI BOŞ KONTROL EDİN")
Exit Sub
End If
Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[necati]

Merhaba, A:E arasını baz alarak bir örnek.
Aralıkları kendinize uyarlamalısınız.

Sub pdf_kaydet()
If [A3] = "" Then
    MsgBox ("MÜŞTERİ ADI SOYADI ALANI BOŞ KONTROL EDİN")
    Exit Sub
End If
If Range("B43") = "" Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$e$42"
ElseIf Range("B71") = "" Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$e$42,$A$43:$e$70"
ElseIf Range("B99") = "" Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$e$42,$A$43:$e$70,$A$71:$e$98"
Else
    ActiveSheet.PageSetup.PrintArea = "$A$1:$e$42,$A$43:$e$70,$A$71:$e$98,$A$99:$e$147"
End If

Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[netvolxxx]

hocam süpersiniz işlem tamamdır istediğim gibi oldu çalıştı....