- Katılım
- 27 Mayıs 2024
- Mesajlar
- 7
- Excel Vers. ve Dili
- Microsoft® Excel® für Microsoft 365 MSO (Version 2308 ) 32 Bit
Herkese merhabalar,
Olusturmus oldugum Excelde toplanti listesi icin checkboxlar koydum ve sonrasinda Pdf olarak arsiv alacak sekilde ayarladim. Geldi Gec geldi Gelmedi seklinde üc kutudan herhangi birine bassip arsiv aldiktan sonra Checkboxi otomatik bos hale getirmesi icin nasil bir yol izleyebilirim. Arsiv icin yazdigim koda mi eklemek mantikli olacaktir yoksa yeni bir buton mu eklemeliyim? Simdiden herkese tesekkür ederim. Kullanmak isteyen olursa Pdf seklinde kaydetmek icin böyle bir kod olusturdum.
Sub aktiveSeiteAlsPDFSpeichern()
Dim dateiname As String
Dim pfad As String
dateiname = "Anwesenheit IT "
pfad = "D:\Arsivlenmek istenen yer"
Dim datumString As String
datumString = Format(Date, "yyyyMMdd") ' Format: JJJJMMTT
Dim dateiname2 As String
dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen
ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q19").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2
End Sub
Olusturmus oldugum Excelde toplanti listesi icin checkboxlar koydum ve sonrasinda Pdf olarak arsiv alacak sekilde ayarladim. Geldi Gec geldi Gelmedi seklinde üc kutudan herhangi birine bassip arsiv aldiktan sonra Checkboxi otomatik bos hale getirmesi icin nasil bir yol izleyebilirim. Arsiv icin yazdigim koda mi eklemek mantikli olacaktir yoksa yeni bir buton mu eklemeliyim? Simdiden herkese tesekkür ederim. Kullanmak isteyen olursa Pdf seklinde kaydetmek icin böyle bir kod olusturdum.
Sub aktiveSeiteAlsPDFSpeichern()
Dim dateiname As String
Dim pfad As String
dateiname = "Anwesenheit IT "
pfad = "D:\Arsivlenmek istenen yer"
Dim datumString As String
datumString = Format(Date, "yyyyMMdd") ' Format: JJJJMMTT
Dim dateiname2 As String
dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen
ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q19").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2
End Sub