Gizli olan sayfaları pdf kaydetme.

[kutman]

Gizli olan sayfalarıda pdf olarak kaydetmek istiyorum.
Şuan kullandığım kod var ama sayfalar açık iken pdf alıyor.
Şuanki makrom normal pdf çıktı alıyor sayfalardan birtanesi gizli olsun çalışmıyor. Bu konuda yardım istiyorum. Teşekkür ederim.

Şuanki makrom bu .

Sub mac2()

If Worksheets("ISI KAYBI").Range("AH26") = 1 Then
Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

 Dim son As Integer
    With Sheets("VERİ GİRİŞ")
        son = .Range("C65536").End(3).Row
        .PageSetup.PrintArea = "$C$2:$U$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty
  
    With Sheets("ISI KAYBI")
        son = .Range("C65536").End(3).Row
        .PageSetup.PrintArea = "$C$2:$R$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty
 
    With Sheets("ISITICI SEÇİMİ")
        son = .Range("B65536").End(3).Row
        .PageSetup.PrintArea = "$B$2:$T$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty

Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", "ISITICI SEÇİMİ")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"
Else


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

 
    With Sheets("VERİ GİRİŞ")
        son = .Range("C65536").End(3).Row
        .PageSetup.PrintArea = "$C$2:$U$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty
 
    With Sheets("ISI KAYBI")
        son = .Range("C65536").End(3).Row
        .PageSetup.PrintArea = "$C$2:$R$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty
 
    With Sheets("ISITICI SEÇİM")
        son = .Range("B65536").End(3).Row
        .PageSetup.PrintArea = "$B$2:$T$" & son
        '.PrintOut Copies:=1
    End With
    son = Empty


Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", "ISITICI SEÇİM")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"
End If

End Sub

 

[halit3]

VERİ GİRİŞ sayfası için aşağıdaki gibi yapabilirsiniz diğer gizli sayfalar içinde ekleme yapabilirsiniz.

kodunuzuda kısalttım.

Sub mac2()


Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

[COLOR="red"]Sheets("VERİ GİRİŞ").Visible = True[/COLOR]

Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

Dim son As Integer
With Sheets("VERİ GİRİŞ")
.PageSetup.PrintArea = "$C$2:$U$" & .Range("C65536").End(3).Row
'.PrintOut Copies:=1
End With

With Sheets("ISI KAYBI")
.PageSetup.PrintArea = "$C$2:$R$" & .Range("C65536").End(3).Row
'.PrintOut Copies:=1
End With
son = Empty


[COLOR="Blue"]If Worksheets("ISI KAYBI").Range("AH26") = 1 Then[/COLOR]

With Sheets("ISITICI SEÇİMİ")
.PageSetup.PrintArea = "$B$2:$T$" & .Range("B65536").End(3).Row
End With
[COLOR="blue"]isi_sayfasi = "ISITICI SEÇİMİ"[/COLOR]

[COLOR="blue"]Else[/COLOR]

With Sheets("ISITICI SEÇİM")
.PageSetup.PrintArea = "$B$2:$T$" & .Range("B65536").End(3).Row
End With
[COLOR="blue"]isi_sayfasi = "ISITICI SEÇİM"[/COLOR]

[COLOR="blue"]End If[/COLOR]

Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", [COLOR="blue"]isi_sayfasi[/COLOR])).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

[COLOR="Red"]Sheets("VERİ GİRİŞ").Visible = False[/COLOR]

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub

 

[kutman]

sayfayı gizleyince pdfye çevirmiyor hata veriyor.

3 sayfa açık iken pdfye çeviriyor.

sadece veri giriş sayfası açık diğeleri gizli olduğunda hata veriyor.

HATA: sheets sınıfının select yönetimi başarısız.
runtime error 1004

Debuga tıkladığımda götürüdüğü hata satırı.

Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", isi_sayfasi)).Select

 

[kutman]

Sorunu çözecek varmı yadım ??

 

[halit3]

sayfayı gizleyince pdfye çevirmiyor hata veriyor.

3 sayfa açık iken pdfye çeviriyor.

sadece veri giriş sayfası açık diğeleri gizli olduğunda hata veriyor.

HATA: sheets sınıfının select yönetimi başarısız.
runtime error 1004

Debuga tıkladığımda götürüdüğü hata satırı.

Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", isi_sayfasi)).Select

iki nolu mesajdaki kodu incelemediğiniz anlaşılıyor

kodun kırmızı renkli bölümlerini inceleyiniz ve kendi ekliyeceğiniz sayfalar içinde aynısını yapınız.

 

[kutman]

Halit bey teşekkür ederim dikkat eksikliği.