(20/08/2020, 00:01)berduş yazdı: pdf yapma kodu:Sadece baraj tabloları yapar
Excel 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
'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
Sadece şuan boş bir Excel sayfası oluşturuyor Excel kodu. Pdf kodu da bozuk pdf diye hata veriyor. Arkadaşın koyduğu comboboxlar ile alınacak verilerin seçilmsei gerek.