koşula bağlı tarihin silinmesi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, isteğimi ekli dosyamda anlattım, yardım ederseniz sevinirim. Herkese teşekkürler.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub TextBox1_Change()
If TextBox1.Text <> "resen" Then
TextBox2.Text = ""
TextBox3.Value = Format(Date, "dd.mm.yyyy")

End If
If TextBox1.Text = "resen" Then
TextBox3.Text = ""
GoTo 1111
Else
GoTo 2222
End If
1111
TextBox2.Text = TextBox1.Text
2222
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın hamitcan eline sağlık dua ile kal.