Aktarma hk.

[valentino06]

Merhaba,
Arkadaşlar forumda aktarma ile ilgili bir kod buldum. bu kodu kendi tabloma uyarlıyamadım.
benim sorunum "x" işareti ile seçmiş olduğum satırları 2 sayfaya aktarma yapıyor. fakat işaretlemeden bastığımda önceden aktarılmış sütunları sıfırlıyor.ben seçim yapmadan basıldığında verilerim silinmesin istiyorum daha önce aktarmış olduğum verilerin seçmiş olduğum satırları altına ekleme yapmak istiyorum. önceden aktarılmış olanları siliyor.lütfen yardımcı olurmusunuz.

Sub AKTAR()
Dim sat As Long, Z As Long
Set s1 = Sheets("SEVKİYAT")
Set s2 = Sheets("SEVKİYATI")
s2.[A3:F1000].ClearContents
sat = 3
For Z = 2 To [a65536].End(3).Row
If Cells(Z, 1) = "X" Then
s2.Cells(sat, 1) = s1.Cells(Z, 2)
s2.Cells(sat, 2) = s1.Cells(Z, 3)
s2.Cells(sat, 3) = s1.Cells(Z, 4)
s2.Cells(sat, 4) = s1.Cells(Z, 5)
s2.Cells(sat, 5) = s1.Cells(Z, 6)
sat = sat + 1
End If: Next
MsgBox "VERİLER AKTARILDI..!!"
s2.Select
End Sub

 

[valentino06]

Arkadaşlar lütfen yardım edermisiniz.

 

[valentino06]

arkadaşlar lütfen yardım edermisiniz.

 

[turist]

s2.[A3:F1000].ClearContents

satırını silin.