satır silme

[sametumur]

arkadaşlar merhaba,

userformdaki "SİL" butonuna tıkladığımda Kayıt No (TextBox1) de yazan değerin (B sütunu) bulunduğu tüm satırı silsin istiyorum.

örneğin, userform daki TextBox1'e "123456" yazıp "SİL" butonuna tıkladığımda, kayıtlı olduğu 3. satırın tamamını silsin istiyorum.


https://drive.google.com/file/d/0BxWijsUev6USVkwyM3F5MXhPeWM/view?usp=sharing

 

[turist]

EserForm1 kısmında;

Private Sub CommandButton10_Click()
 sonsatb = Sheets("Sayfa1").Cells(Rows.Count, "B").End(xlUp).Row
 For a = 3 To sonsatb
    If Sheets("Sayfa1").Cells(a, "B").Value = TextBox1 Then
    Sheets("Sayfa1").Cells(a, "B").EntireRow.Delete
End If
Next a
End Sub

kodunu ekleyin.deneyin.

 

[sametumur]

ellerinize sağlık, çok güzel oldu.