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