Makro ile veri aktarma

[mrkync]

arkadaşlar tumliste ve veri diye 2 adet sayfam var ve tumlistedeki verileri makro ile veri sayfasına aktarmak istiyorum ancak sutünların yeri değişecek. Yerler şöyle olacak;
Tüm Listedeki
A sütunu verideki A sütununa
H sütunu verideki B sütununa
D sütunu verideki D Sütununa
E sütunu verideki J sütununa
G sütunu verideki K sütununa
B sütunu verideki E sütununa
aktarılacak.
Bunu yapacak bir makroya ihtiyacım var.
Şimdiden teşekkürler.

 

[mrkync]

Arkadaşlar yardımlarınızı bekliyorum...

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub aktar()
Application.ScreenUpdating = False
    Set s1 = Sheets("tumliste")
    Set s2 = Sheets("veri")
    ss = s1.Range("A" & Rows.Count).End(3).Row
        s2.Range("A2:A" & ss).Value = s1.Range("A2:A" & ss).Value
        s2.Range("B2:B" & ss).Value = s1.Range("H2:H" & ss).Value
        s2.Range("D2:D" & ss).Value = s1.Range("D2:D" & ss).Value
        s2.Range("E2:E" & ss).Value = s1.Range("B2:B" & ss).Value
        s2.Range("J2:J" & ss).Value = s1.Range("E2:E" & ss).Value
        s2.Range("K2:K" & ss).Value = s1.Range("G2:G" & ss).Value
Application.ScreenUpdating = True
    MsgBox "Aktarma Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[mrkync]

Dede merhaba çok teşekkürler kod çalıştı ancak şöyle bir sıkıntı oluşuyor. Sütunların tamamını çekerken boş sutunları da çekiyor ve bu yüzden kod çok fazla bekliyor işlemi yapmak için acaba sadece dolu sütunları aktarmak mümkün mü acaba yani listedeki son hücre boş olduğu anda kodu durdurma şansımız var mı acaba?

 

[dEdE]

Merhaba,
Yukarıdaki kodu isteğiniz doğrultusunda güncelledim.

 

[ieyavas]

sayın dede merhaba,
yazmış olduğunuz makroyu kullanmak isiyorum
fakat sizden bir ricam olucak
girilen her veriyi s2 de yazılan verileri 1 alt satıra nasıl yazdırabiliriz