Döngü düzenleme...

[aliakgul]

Dim I, j As Integer
j = 5

Range("a1").Select
For I = 9 To Cells(30, 3).End(xlUp).Row
If Sayfa7.Range("Q1").Value = Sayfa7.Cells(I, 3) Then
j = j + 1
Sayfa8.Cells(j, 2) = Sayfa7.Cells(I, 2)
Sayfa8.Cells(j, 3) = Sayfa7.Cells(I, 4)
Sayfa8.Cells(j, 4) = Sayfa7.Cells(I, 5)
Sayfa8.Cells(j, 5) = Sayfa7.Cells(I, 6)
Sayfa8.Cells(j, 6) = Sayfa7.Cells(I, 7)
Sayfa8.Cells(j, 7) = Sayfa7.Cells(I, 8)
Sayfa8.Cells(j, 8) = Sayfa7.Cells(I, 9)
Sayfa8.Cells(j, 9) = Sayfa7.Cells(I, 10)
End If
Next I

Merhaba arkadaşlar,
Yukarıda eşleştirilen satır sayısı 100. Bunları tek tek yazmak yerine döngü halinde nasıl düzenleyebiliriz?
Not:2.satırdaki kayma hata değil,eşleşme o şekilde.
Teşekkür ederim...

 

[baranseren]

aliakgul hocam şu şekilde deiştirebilirsiniz yeterli oalcaktır.
bir satır haricindekilerin düzenli artmasından dolayı 1 satırı for dışına atarsanız mantık sorunu çıkarmadan çalışacaktır.



Dim I, j As Integer
j = 5

Range("a1").Select

For I = 9 To Cells(30, 3).End(xlUp).Row
If Sayfa7.Range("Q1").Value = Sayfa7.Cells(I, 3) Then
j = j + 1

Sayfa8.Cells(j, 2) = Sayfa7.Cells(I, 2)

For k = 3 To 102
Sayfa8.Cells(j, k) = Sayfa7.Cells(I, k + 1)
Next

End If
Next I

 

[aliakgul]

Teşekkür ederim, sorun çıkarsa bilgi veririm...