TextBox sorunu

[suskun127]

textbox a girdiğim veri tanımlı hücrede sabit kalıyor ancak ben userformdan çıktığımda silinsin istiyorum
ekli dosyada sorunumu anlatmaya çalıştım sağolun

 

[Orion1]

Dosyanız ekte.

Private Sub TextBox1_Change()
On Error Resume Next
Range("Sayfa1!E8") = CDbl(TextBox1.Text)
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Range("Sayfa1!E11") = CDate(TextBox2.Text)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Sheets("Sayfa1").Range("E8").Value = Empty
Sheets("Sayfa1").Range("E11").Value = Empty
End Sub

 

[ozgretmen]

1.sorunun cevabı :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Range("Sayfa1!E11") = ""
Range("Sayfa1!E8") = ""
End Sub

 

[suskun127]

çok teşekkürederim 1. sorun halloldu ama tarihi ayıraçsız girdiğimde problem var ben sorunu ekranda print screen yaptım mesaja ekledim herkese teşekkür ederim

 

[Orion1]

çok teşekkürederim 1. sorun halloldu ama tarihi ayıraçsız girdiğimde problem var ben sorunu ekranda print screen yaptım mesaja ekledim herkese teşekkür ederim

ayıraçsız tarih girerseniz sorunlar oluşabilir.Tarihi ayıraçlı giriniz.