satır silme

[husem]

merhaba arkadaşlar,
bir vba koduna ihtiyacım var,
yardımcı olursanız çok sevinirim,

excel'de sayfa1 deyken BUTONA TIKLAYINCA sayfa2 deki b sütunundaki hüseyin verisinin bulunduğu satırı komple silmek istiyorum, yapılabilirmi acaba?

 

[reosman]

Module ekleyerek deneyiniz.

Sub sil()
For Each t In Sheets("Sayfa2").Range("B1:B65536").Cells
If t.Value = "hüseyin" Then
t.Rows = ""
End If
Next t
End Sub

 

[husem]

sn reosman, teşekkür ederim,.

sadece aşağıdaki alanı
t.Rows.Delete

olarak değiştirdim.

 

[reosman]

Rica ederim. Haklısınız satır temizlenmeyecek, Silinecekti. Kolay gelsin.

 

[Korhan Ayhan]

Satır silme işlemlerinde döngüyü tersten yazmalısınız. Yani en alt satırdan yukarı doğru kontrol yapılmalıdır. Bu şekilde daha doğru sonuca ulaşırsınız.