Döngüyü yeniden çalıştırma

[selections]

Merhaba,
A1:A500 arasındaki hücrelerde "xxx" değerini aratıyorum, bulunca bulduğu hücreyi sildiriyorum.
Ancak bazı hatalar ile karşılaşıyorum şöyleki

For i = 2 To t
If Worksheets("hareketler").Cells(i, 1) = xxx Then
Worksheets("hareketler").Rows(i).Delete Shift:=xlUp
End If
Next i

şimdi burada a5 ve a6 hücrelerinin değeri = xxx i=5 iken o satırı siliyor ve a6 = a5 oluyor ve ( i ) bir sonrakinde 6 olacağı için bu satırı göremiyor.

istediğim eğer tekrar döngü çalıştırmadan yapılabilecek bir yöntem varsa nasıl yapabileceğim yada koşul gerçekleşip silme işini yaptıktan sonra kodların baştan çalışması. umarım anlatabilmişimdir.

 

[Levent Menteşoğlu]

Bu tip silme işlemi yapılan durumlarda döngüyü aşağıdan yukarı doğru çalıştırmanız gerekir.

For i = t To 2 step-1
If Worksheets("hareketler").Cells(i, 1) = xxx Then
Worksheets("hareketler").Rows(i).Delete Shift:=xlUp
End If
Next i

 

[captan]

Altarnetif

Sayın Leventm bey,
Müsadenizle aklıma şöyle bişey geldi,

Sub sil()
tekrar:
    For i = t To 100
    If Cells(i, 1) = xxx Then
    Rows(i).Delete Shift:=xlUp
    End If
Next i
say = WorksheetFunction.CountIf(Sheets("hareketler").[a1:a65536], xxx)
If say > 0 Then
GoTo tekrar
End If
End Sub

Kolay Gelsin

 

[selections]

teşekkür ederim.