Çek Adat Userform

[celikomerh]

Selamlar
ekli dosyadaki gibi bir userform yapmak istiyorum ama hatalar var
textboxlar ile hücrelere yazdırıyorum fakat temizle ile tamamını silemiyorum
yardımlarınızı rica ederim

Cek_Adat.xlsm dosyasını indir - download

Cek_Adat.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Private Sub CmdTemizle4_Click()
    Dim X As MSForms.Control
    
    For Each X In Me.Controls
        If TypeName(X) = "TextBox" Then X.Value = ""
    Next
    
    TbTarih1.SetFocus
End Sub

 

[celikomerh]

Merhaba,

Deneyiniz.

Private Sub CmdTemizle4_Click()
    Dim X As MSForms.Control
   
    For Each X In Me.Controls
        If TypeName(X) = "TextBox" Then X.Value = ""
    Next
   
    TbTarih1.SetFocus
End Sub

değişen bişey olmadı Korhan bey

 

[Korhan Ayhan]

Siz nereyi temizlemek istiyorsunuz?

 

[celikomerh]

excel deki satırları temizlemek istiyorum.

 

[Korhan Ayhan]

Böyle deneyiniz..

Private Sub CmdTemizle4_Click()
    Dim X As MSForms.Control
    
    Sheets("Hesaplamalar").Range("L2:M6").ClearContents
    
    For Each X In Me.Controls
        If TypeName(X) = "TextBox" Then X.Value = ""
    Next
    
    TbTarih1.SetFocus
End Sub

 

[celikomerh]

Böyle deneyiniz..

Private Sub CmdTemizle4_Click()
    Dim X As MSForms.Control
   
    Sheets("Hesaplamalar").Range("L2:M6").ClearContents
   
    For Each X In Me.Controls
        If TypeName(X) = "TextBox" Then X.Value = ""
    Next
   
    TbTarih1.SetFocus
End Sub

çok teşekkür ederim Korhan bey

UserForm_Initialize ye "TbOrtaGün = Format(Date, "dd.mm.yyyy")" yazmama rağmen hesapla dediğimde "4/1/2025 12:00:00 PM" bu formatta çıkıyor
bu konu hakkında da yardım edebilirmisiniz ?