Check Box temizleme

[FarukFf]

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

 

[FarukFf]

Sub ClearCheckboxes()

Dim ws As Worksheet
Dim cb As CheckBox

' Çalışma sayfasını ayarlayın

Set ws = ThisWorkbook.Sheets("Sheet1") ' "Sheet1" yerine kendi sayfanızın adını yazın

' CheckBox'ları temizle

For Each cb In ws.CheckBoxes

cb.Value = xlOff Next cb

MsgBox "Onay kutuları temizlendi."

End Sub

Lazim olan kullanabilir!