Veri aktarma

[rekkezum]

aşagıdakı kod ta verılerı baska bır sheet e aktarıyorum fakat verılerı
b2 c2 d2 e2 ey aktarıyor bu verılerı b10 c10 d10 e10 aktarmasını ıstıyorum nasıl bır degısıklık yapmam lazım ?

Sub YESIL_BÖLGE_AKTAR()
Dim X As Long, SATIR As Long

For X = 6 To [A65536].End(3).Row
If WorksheetFunction.CountIf([Z10:Z59], Cells(X, "D")) > 0 Then
SATIR = Sheets("Yeşil").Range("D65536").End(3).Row + 1
Sheets("Yeşil").Range("A" & SATIR & ":E" & SATIR).Value = Range(Cells(X, "A"), Cells(X, "E")).Value
End If
Next

MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[leumruk]

Merhaba,
Bu koda göre veriler en son boş satıra aktarılıyor. En son boş satırınız 2 ise verileri 2. satırdan itibaren aktaracaktır. Sonrasında 3, 4,5 şeklinde aktarıma devam edecektir.
Siz 10. satırdan başlamasını istiyorsanız SATIR ibaresiyle başlayan satırdan sonraki kısma aşağıdaki kodu ekleyebilirsiniz:

If SATIR <10 Then SATIR=10

 

[rekkezum]

cok tesekkur ederım

 

[leumruk]

cok tesekkur ederım

Rica ederim.