...' Eğer aynı isimde bir dosya yoksa PDF olarak kaydet
If Dir(dosyaAdi) = "" Then
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard
MsgBox "Fatura PDF olarak kaydedildi.", vbInformation
Else
MsgBox "Aynı isimde bir...
...ElseIf ws.Name = "Fazla Mesai" Then
Set rng = ws.Range("B2:S47")
End If
If Not rng Is Nothing Then
ws.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False...
...rng = ws.Range("B2:S47")
End If
If Not rng Is Nothing Then
ws.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _...
...değişmesini burada yapacaksınız
Next i
Application.DisplayAlerts = False
wb.Worksheets(1).Delete
Application.DisplayAlerts = True
wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Egitim_Belgesi.pdf", OpenAfterPublish:=False
wb.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
...'Burayı siz kendi bilgisayarınızdaki masa üstüne göre değiştirin
fileName = currentDate & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard
MsgBox "PDF dosyası başarıyla oluşturuldu: " & fileName, vbInformation
End Sub
...If
Next
Sheets(2).Select
For Each sh In Sheets
If sh.Name <> s1.Name Then sh.Select False
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _
OpenAfterPublish:=True
Application.DisplayAlerts = False
For Each sh In...
...s1.Range("A" & i & ":AJ" & i).Copy s2.Range("A" & son2)
End If
Next i
s2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & tc & uzanti
son2 = s2.Cells(Rows.Count, 1).End(3).Row
s2.Range("A3:AJ" & son2 + 1).Clear
Next x
MsgBox "İşlem tamamlandı."...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.