Yazdığım kod çok uzun bunu kısa yapabilirmiyiz ?

[doukan84]

Arkadaşlar bir kod yazdım makro kaydederek ama bu çok uzun.. bu yüzden çok uzun işlemlerde acayip makinam kasılıyor... bunu kısaltabilirmiyiz acaba ?

Sub AKTAR()
    Sheets("veri2").Select
    Range("A2:A500").Select
    Selection.Copy
    Sheets("veri").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("veri2").Select
    Range("B2:B500").Select
    Selection.Copy
    Sheets("veri").Select
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("veri2").Select
    Range("D2:D500").Select
    Selection.Copy
    Sheets("veri").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("veri2").Select
    Range("E2:E500").Select
    Selection.Copy
    Sheets("veri").Select
    Range("D2").Select
    ActiveSheet.Paste
    Sheets("veri2").Select
    Range("F2:F500").Select
    Selection.Copy
    Sheets("veri").Select
    Range("E2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(1).Select
End Sub

Şimdiden teşekkür ederim

 

[halit3]

kod:

Sub AKTAR()
    Sheets("veri2").Range("A2:B500,D2:F500").Copy
    Sheets("veri").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2").Select
End Sub

 

[doukan84]

kod:

Sub AKTAR()
    Sheets("veri2").Range("A2:B500,D2:F500").Copy
    Sheets("veri").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2").Select
End Sub

Hocam bu yaptığınızda hepsini seçip yapıştıyor.. Benim yaptığımda dikkat ederseniz A yı A ya Byi Bye Dyi Cye Eyi Dye aktarıyor

 

[halit3]

Hocam bu yaptığınızda hepsini seçip yapıştıyor.. Benim yaptığımda dikkat ederseniz A yı A ya Byi Bye Dyi Cye Eyi Dye aktarıyor

Kodun kısıltılması bu ,
sonuç olarak sizin kodun yaptığı işlemin aynısını yapıyor.