İstenen satırdan değerleri listeleme

[seddur]

For i = 2 To Sheets("Liste").Range("J65536").End(3).Row
If Sheets("Liste").Range("J" & i).Value = Sheets("Anasayfa").Range("H1") Then
Sheets("Liste").Range("A" & i & ":J" & i).Copy Sheets("Sayfa6").Range("a65536").End(3)(2, 1)

End If
Next
Yukardaki kod ile liste sayfasındaki aranan değeri Sayfa6 ya aktarıyorum.Yapmak istediğim bu aktarma islemini Sayfa6, satır 5 den başlatsın yardımcı olacak arkadaşa Teşekkürler ..

 

[çıtır]

Aşağıdaki şekilde deneyiniz.

Sub kopyala()
For i = 2 To Sheets("Liste").Range("J65536").End(3).Row
If Sheets("Liste").Range("J" & i).Value = Sheets("Anasayfa").Range("H1") Then
sy = WorksheetFunction.CountA(Sheets("Sayfa6").Range("A6:A65536"))
Sheets("Liste").Range("A" & i & ":J" & i).Copy Sheets("Sayfa6").Range("a" & sy + 5)
End If
Next i
End Sub

 

[çıtır]

Düzeltme yapınız.

sy = WorksheetFunction.CountA(Sheets("Sayfa6").Range("A5:A65536"))