UserFormda silme komutlari

[derya1]

merhaba
ben bir "user form" yaptim bunun icinde 4 tane textbox var
textbox1'e kelime yazdigmda 2.,3. ve 4. textbox'daki sonuclari veriyor
soyle birsey olamaz mi mesela ben textbox1'i backspace ile sildigimde diger textboxlarda silinsin
bu konuda yardimci olursaniz sevinirim
iyi calismalar...

 

[hurkanpisirici]

öteki textboxları boşaltmanın kodları bunlar ama sizin kodunuzu göremediğim için bu kadar yardımcı olabiliyorum.

TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""

 

[Haluk]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 Then
        TextBox2 = Empty
        TextBox3 = Empty
        TextBox4 = Empty
    End If
End Sub

 

[derya1]

merhaba sizin vermis oldugunuz yontemi denedim fakat olmadi
benim kodlar soyle:

If TextBox8 = "" Then MsgBox ("lutfen aradiginiz kelimeyi yazin!  "): Exit Sub
Set k = Range("B2:AA65536").Find(TextBox8.Value, , xlValues, xlWhole)
If k Is Nothing Then MsgBox ("bu kelime listede yok!"): Exit Sub
TextBox4.Value = Cells(1, k.Column)
TextBox2.Value = Cells(k.Row, k.Column - 1)
TextBox3.Value = Cells(k.Row, k.Column + 1)

 

[hurkanpisirici]

sizin kodlarınızı kendim yapmaya çalıştım ama textbox1 demişsiniz kodda onu göremiyorum ayrıyetten onu düzelttim diğer textboxlara yazmıyor?

 

[Orion1]

Aşağıdaki gibi denermisiniz.

textbox2.Text = Empty
textbox3.Text = Empty
textbox4.Text = Empty
If TextBox8 = "" Then MsgBox ("lutfen aradiginiz kelimeyi yazin! "): Exit Sub
Set k = Range("B2:AA65536").Find(TextBox8.Value, , xlValues, xlWhole)
If k Is Nothing Then MsgBox ("bu kelime listede yok!"): Exit Sub
textbox4.Value = Cells(1, k.Column)
textbox2.Value = Cells(k.Row, k.Column - 1)
textbox3.Value = Cells(k.Row, k.Column + 1)

 

[derya1]

merhaba
Evren Gizle arkadaş sizin vermiş olduğunuz kodları denedim şöyle oldu; ben kelimeyi yazıyorum tamam doğru veriyor daha sonra backspace ile siliyorum herhangi bir değişim olmuyor fakat yanlış kelime girdiğimde textbox'ları kendisi temizliyor böylemi olması gerekirdi biraz açarmısınız
selamlar.

 

[Orion1]

merhaba
Evren Gizle arkadaş sizin vermiş olduğunuz kodları denedim şöyle oldu; ben kelimeyi yazıyorum tamam doğru veriyor daha sonra backspace ile siliyorum herhangi bir değişim olmuyor fakat yanlış kelime girdiğimde textbox'ları kendisi temizliyor böylemi olması gerekirdi biraz açarmısınız
selamlar.

Burası tamam .Backspace için ise 3 numaralı mesajda Haluk hocamın verdiği kodları textbox1 yazan yere textbox8 yazarak uygulayınız.

 

[derya1]

yardimiz icin tessekkurler isime yaradi
iyi calismalar