değişken ile satır silme

[metropolfrm]

normalde
Rows("7:7").Select
Selection.Delete Shift:=xlUp
satırları ile istediğim satırı silebiliyorum.

ancak benim istediğim döngü içerisinde x değeri y değerine eşit olduğunda x değişkeninin gösterdiği değerdeki satırı silmek.
y = 3
For x = 1 To 5
If x = y Then
Rows("x:x").Select
Selection.Delete Shift:=xlUp
Next x

şeklinde bir kullanım yaptığımda hata veriyor. bunu nasıl düzeltebilirim.

 

[Korhan Ayhan]

Selamlar,

Forumda incelediyseniz satır silme kodlarında kullanılan döngüler hep son satırdan yukarıya doğru kullanılmıştır. Siz ise tam tersini kullanmışsınız doğal olarak hata mesajı alabilirsiniz. Aşağıdaki kodu denermisiniz.

Sub SATIR_SİL()
    Y = 3
    [COLOR=red]For X = 5 To 1 Step -1[/COLOR]
    If X = Y Then
    Rows(X).Delete
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[uzmanamele]

merhaba
syn Korhan Ayhan,
for-next döngüsünün tersten kullanıldığına bende dikkat etmemiştim.
hata vermesinin sebebi if şartı gerçekleştiğinde işlemi yapacak ama for-next döngüsü bozulacak olmasından mıdır?
tersten gidildiğinde for-next döngüsü bozulmayacakdır. başka bir sebebi var mıdır?

 

[metropolfrm]

Çok Teşekkür ederim.
Ben satır silme komutunu yanlış kullanıyormuşum.

 

[metropolfrm]

For next döngüsünü düz yapınca da sorun vermiyor şuan.
sorun satır silme komutundaymış sadece.