Textbox

[excel1717]

Merhabalar Excel Hocalarım
Userform' daki Textbox kutusunun özellikler bölümünde "value" değerini textbox'un adı örneğin "kullanıcı" yapıldı. Textbox'a verigiriş yapmak için tıklandığında "kullanıcı"nın silinmesini nasıl yaparız? Teşekkürler

 

[YUSUF44]

Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
End Sub

 

[ÖmerFaruk]

Alternatif

Private Sub TextBox1_Enter()
If TextBox1.Value = "Kullanıcı" Then TextBox1 = ""
End Sub

 

[excel1717]

Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
End Sub

Teşekkürler

 

[YUSUF44]

Benim verdiğim kodda fareyle her tıklandığında içindeki veriyi sildiğini fark ettim. Sayın @NextLevel'in verdiği kodla birleştirince daha iyi oldu sanki:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TextBox1.Value = "kullanıcı" Then TextBox1 = ""
End Sub