For Döngüsünün İçine If Koşulu Yazarken Sorun Yaşıyorum

[bichet]

Selamlar,

H sütununda araları boşlukla ayrılmış verilerim var. AAAAA BBB CCCCCC D EEEEEEEEE gibi. Ben bu verileri saymak ve 63'ten fazla satır içeren tek bir veri çeşidi varsa araya boşluk satırı atmak istiyorum. Nitekim aşağıdaki kodu yazdığımda "Next Without For" gibi bir uyarı aldım. For döngüsünün içine bu şekilde If koşulu yazılabilir mi?

İyi çalışmalar.

Private Sub CommandButton5_Click()

For i = 3 To 2000
Cells(i, 8).Select
Range(Selection, Selection.End(xlDown)).Select
MsgBox Selection.Rows.Count
    
    If Selection.Rows.Count > 63 Then
    Cells(i + 63, 8).Select
    Selection.EntireRow.Insert
    Else
    Rows(i + 63).Select  'etkisiz satır
    
i = i + Selection.Rows.Count
Next i
End Sub

 

[Ömer]

Merhaba,

Örnek dosya ekleyip yapmak istediğinizi dosya içerisinde açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co