pdf yapma kodu:

'hy Sayfayı Pdf olarak kaydet

dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"

Sheets("barajtablo").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

    Filename:=dosyaAdıAdresi, _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=True

Excel yapma kodu

'hy Sayfayı yeni Excel Yap

Dim wb As Workbook

dosyaAdıAdresi = ThisWorkbook.Path & "\ExcelYap.xlsx"



    Set wb = Workbooks.Add

    ThisWorkbook.Sheets("barajtablo").Copy Before:=wb.Sheets(1)

    wb.SaveAs dosyaAdıAdresi