2 Sayfa Tek PDF Dosyası Hk.

[emre311]

Merhaba;
Aşağıdaki vba kod ile 2 ayrı sayfanın belirli hücre aralığını tek pdf dosyasına dönüştürmek istemekteyim. Fakat "For Each" satırında "Type Mismatch" hatası almaktayım. Eski sorulardan kendime uyarladım kodu. Yardımlarınız için şimdiden teşekkürler.


Sub KOD_PDF()
Dim Sayfa As Worksheets
Application.DisplayAlerts = False
yol = ThisWorkbook.Path
isim = Format(Range("AE1").Value - 1, "dd.mm.yyyy") & " Genel"
For Each Sayfa In ThisWorkbook.Worksheets(Array("Gnl. Özt", "Bnk. Özt"))
Sayfa.Range("A1:AH125").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Next
Application.DisplayAlerts = True
End Sub

 

[necati]

Merhaba,
Dim Sayfa As Worksheets yazan satırı şu şekilde dener misiniz:
Dim Sayfa As Worksheet

 

[emre311]

Aşağıdaki gibi düzenleyince oldu teşekkürler .

Sub KOD_PDF()
Application.DisplayAlerts = False
yol = ThisWorkbook.Path
isim = Range("AI2").Value & " Genel"
ThisWorkbook.Worksheets(Array("Gnl. Özt", "Bnk. Özt")).Select
Selection.Range("A1:AH125").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=False
Application.DisplayAlerts = True
End Sub