döngü oluşturma hakkında

[EmirhanG]

merhaba ,herkeslere hayırlı akşamlar. Arkadaşlar , sayfa3 de b2:b500' e kadar olan bölümde müşteri isimleri var aynı isimden 2 veya daha fazla olanlarda var. Benim yapmak istediğim , formdan textbox'a yazdığım isim b2:b500 aralığında kaçtane varsa bulup bulunduğu satırla beraber tek tek silmesi. Ben tek veriyi buldurup sildirebiliyorum ama bir döngü kuramıyorum yardımcı olan arkadaşlara şimdiden teşekürler.....

 

[Orion1]

Aşağıdaki kod ile B sütunundaki textbox'a yazdığınız değerlerin bulunduğu satırı silebilirsiniz.

Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 2 Step -1
    If Cells(i, "B").Value = TextBox1.Value Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Silme işlemi sona erdi..!!", vbOKOnly

 

[EmirhanG]

hocam ellerinize sağlık çok güzel oldu. Sizden bir ricada bulunsam eğer mümkünse kodların açıklamasınıda yazarmısınız. Buna zamanınız varsa tabi, tekraradan teşekürler....

 

[N.Ziya Hiçdurmaz]

1.Makro çalışırken ekranın hareket etmemesi sağlanıyor.
2.i değişkenine B sütununun son satırından yukarıya 1 eksiltilerek döngü kuruluyor.
3.Eğer B sütununun satırlarındaki veriler textboxtaki değer ile aynı ise o satır siliniyor.
4.Ekran sabitlenmesi eski durumuna getiriliyor.
5.Yapılan işlem mesaj ile kullanıcıya bildiriliyor.