Textbox ile hücreleri silme

[leonadies]

Merhaba;
Textbox1 ile

sayfa 1 K Sütununa alt alta veri yazdırıyorum (Kaydet butonu ile)

İsteğim ise şu;

Yine ayrı bir sil butonu yardımı ile

Textbox1 e yazdıgım değeri (örneğin K10 kayıt yapmış olsun)
K10,L10,M10 şeklinde yan yana 3 hücre şeklinde silsin. bunu yaparken alttaki 3hücre yukarı doğru kaysın.

Yapabilirmiyiz?

 

[Muzaffer Ali]

Merhaba.

Şu kodlar ile silebilirsiniz.

Private Sub CommandButton1_Click()
    Dim Bul As Range
    Set Bul = Range("K:K").Find(TextBox1.Text)
    If Bul Is Nothing Then
        MsgBox "Silmek istediğiniz veri bulunamadı."
    ElseIf MsgBox("Bu veriyi gerçekten silmek istiyor musunuz?", vbYesNo) = vbYes Then
        Range(Bul.Address & ":M" & Bul.Row).Delete xlUp
        TextBox1.Text = ""
        MsgBox "Veri silindi."
    End If
End Sub

 

[leonadies]

teşekkür ederim çalışıyor sadece
şunu eklemeyi unutmuşum. Userform "sayfa 2" de yer alıyor
silinecekler "sayfa 1" sekmesinde..

Kodu nasıl düzeltmeliyim ?

 

[Korhan Ayhan]

Range ifadelerinin başına Sheets("Sayfa1"). yazmalısınız.

 

[leonadies]

Tamamdır Teşekkür ederim