Döngüde Geri Gidilebilir Mi?

[bichet]

Arkadaşlar Merhabalar,

Elimde 200 satırlık bir veri var. H sütunundaki verilerim sıralanmış durumda (AAAA, BBB, CC, DDDDDD vb.). H sütunundaki verim değiştiği zaman boş bir satır eklemek istiyorum ve sonucunda şöyle bir kod yazdım.

Private Sub CommandButton3_Click()
Worksheets("Liste").Activate
For i = 2 To 2000
If Cells(i, 8) = Cells(i + 1, 8) Then
Rows(i + 1).Select
Else
Rows(i + 1).Select
Selection.EntireRow.Insert
End If
Next i
End Sub

Nitekim kodu çalıştırırsanız göreceğiniz gibi Else kısmından sonra satır eklediğim için yeni i sayım boşluk satırına denk geliyor ve kod 2000. satıra kadar boşluk eklemeye devam ediyor. Daha sonra döngüde geri gitmeye karar verdim ve şöyle bir kod yazdım ama çalıştıramadım.

Private Sub CommandButton4_Click()
Worksheets("Liste").Activate
For i = 2000 To 2
If Cells(i, 8) = Cells(i - 1, 8) Then
Rows(2000 - i).Select
Else
Rows(i).Select
Selection.EntireRow.Insert
End If
Next i
End Sub

Sonuçta sizlere iki sorum var.

1) Döngüde geri gidilebilir mi? 2 örnekte yazılan kodu çalıştırmanın herhangi bir yolu var mı?
2) Bu boşlukları eklemenin daha kolay bir yolu var mı?

Cevaplar için şimdiden teşekkür ederim.

 

[ÖmerFaruk]

1. For Döngüsü normalde ileri 1 adım gider her seferinde. Değiştirmek için

Sub Döngü_BesAdım
    For i=2 to 1000 Step 5
        'Kodlarınız'
    Next i
End Sub
'ya da'
Sub Dongü_1adim_geriyedogru
    For i=1000 to 2 Step -1
        'Kodlarınız'
    Next i
End Sub

gibi

2. Boşluk eklediniz satırdan sonra aşağodaki revizyonu yapın

Private Sub CommandButton3_Click()
    Worksheets("Liste").Activate
    For i = 2 To 2000
        If Cells(i, 8) = Cells(i + 1, 8) Then
            Rows(i + 1).Select
        Else
            Rows(i + 1).Select
        Selection.EntireRow.Insert
        i=i-1 ' Bu satırı ilave edebilirsin'
        End If
    Next i
End Sub

 

[veyselemre]

https://www.excel.web.tr/threads/makro-ile-bos-satir-ekleme.193419/post-1076294

 

[bichet]

@veyselemre forumda arama yapmıştım ama döngü ile arattığım için konuyu bulamadım galiba.

Yanıtlarınız için çok teşekkür ederim. İşlem çözüldü.