Çözüldü MAKRO İLE FARKLI BİR SHEETİ PDF OLARAK KAYDETME

[ttb]

Merhaba,
Yanıtlarınız için şimdiden teşekkür ederim.
Excelde dosyası içindeki bir sheetin pdf olarak kaydedilmesi için aşağıdaki kodu kullanıyorum.
Bu örnekte, EK2A isimli sheetin F30 hücresindeki bilgiyi ve tarih/saat bilgisini dosya adı olarak kullanıyor ve pdf dosyayı desktopa kaydediyor.

Ben bu makroyu, Excel tablsondaki "VERGİ" sheetine koyduğum bir butonla çalıştırmak istiyorum; ancak o durumda "VERGİ" sheetini pdf olarak kaydediyor. Benim istediğim, buton "VERGİ" sheetinde olsun ama çıktısı alınan "EK2A" sheeti olsun.

Umarım doğru şekilde ifade edebilmişimdir.

Tekrar teşekkürler.

Private Sub EK2A() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/EK2A" & Sheets("EK2A").Range("F30") & Format(Now(), "-dd.mm.yyyy-hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Application.ScreenUpdating = True End Sub

 

[Korhan Ayhan]

Merhaba,

Şu bölümü;

ActiveSheet.ExportAsFixedFormat

Aşağıdaki gibi değiştirip deneyiniz.

Sheets("EK2A").ExportAsFixedFormat

 

[ttb]

Merhaba,

Şu bölümü;

ActiveSheet.ExportAsFixedFormat

Aşağıdaki gibi değiştirip deneyiniz.

Sheets("EK2A").ExportAsFixedFormat

Çok teşekkür ederim. Elinize sağlık.