- Katılım
- 5 Mart 2005
- Mesajlar
- 103
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.
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.