Kodumdan çıktı alamıyorum yardım

[spasmex97]

Dim a As Integer
a = 0



For i = 4 To i + 1
    Set xRange = Sheets("sayfa4").Rows(i)
        For j = 1 To 10
            If Sheets("sayfa4").Cells(i, j) > 0 And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(xRange) Then
                a = a + 1
                Sheets("sayfa4").Cells(i, j).ClearContents
                
                Sheets("sayfa4").Cells(15 + a, 1) = i
                Sheets("sayfa4").Cells(15 + a, 2) = j
                
            
                  i = j - 1
            End If
            
        Next j
        
            
Next i

arkadaşlar kod hata da vermiyor ama çıktı da vermiyor
i = empty olarak gösteriyor yardım eder misiniz

 

[PLİNT]

Merhaba
"For i = 4 To i + 1"
"i" döngüsü 4 den 0+1 'e kadar; gibi olmuş işlem yapılacak son satırı veya 4 den büyük sayı yazıp deneyin,
mesela;
for i= 4 to cells(rows.count,"A").end(3).row

 

[spasmex97]

Merhaba
"For i = 4 To i + 1"
"i" döngüsü 4 den 0+1 'e kadar; gibi olmuş işlem yapılacak son satırı veya 4 den büyük sayı yazıp deneyin,
mesela;
for i= 4 to cells(rows.count,"A").end(3).row

kod da if koşulu sağlandığı anda yeni i nin (i,j) deki j olmasını istiyorum eğer 1 to 10 yaparsam orayı 1 den 10 kadar yapar ve bırakır benim başlangıç noktam rassal olacak ama 10 adet satır varsa 10 adet satırı da dolaşması lazım eğer 5 ten başlıyorsa diyelim 5-6 , 6-7, 7-2,2-8 gibi gidebilir yani