TextBox.'a veri girişinde bazı satırların silinmesi.

[İsmail Küçükşengün]

Merhabalar;

Userform üzerindeki bir Textbox'a herhangibir harf yazıldığında;

"veri" sayfasının AB1:AZ500 bölümünün kendiliğinden silinmesi için,
gerekli kodu textbox'un hangi bölümüne yazmak gerekir.

Teşekkürlerimle.

 

[mehmett]

TextBox'u sağ tıklayın, gelen penceredeki kodları şu şekilde değiştirin;

Private Sub TextBox1_Change()
[AB1:AZ500] = ""
End Sub

 

[Ali]

Mehmet Bey cevabı vermiş,Mehmet Beye ek olarak kodu başka bir sayfa aktif iken userform açıldığında AB1:AZ500 aralığını silmemesi için aşağıdaki şekilde yapsak sadece veri sayfasında çalışsa daha sağlıklı olacak.

Private Sub TextBox1_Change()
Sheets("veri").Range("AB1:AZ500") = ""
End Sub

 

[İsmail Küçükşengün]

Sayın Mehmett ve fructose;

Teşekkürlerimle.