İstediğim sütunları getir

[ADER_34]

Merhaba arkadaşar sayfa1 den sayfa2 ye sadece istediğim sütunların aktarılmasını istiyorum sayfa 1 den "B" yi sayfa2 "A" sütununa "E" "F" yi sayfa2
"C" VE "D" sütununa sayfa1 J K L M N sütunlarını sayfa2 E F G H I sütunlarına aktarmak istiyorum özetle
sayfa1 : B E F G J K L M N O sütunları
sayfa2 : A B C D E F G H J sütunlarına kopyala olmalı örnek ekte
http://s3.dosya.tc/server6/czo5xn/TUM_LISTE.rar.html
kolay gelsin teşekkürler

 

[PLİNT]

sayfa1 : B E F G J K L M N O sütunları
sayfa2 : A B C D E F G H J sütunlarına kopyala olmalı

Aşağıdaki gibi deneyin.

 Private Sub CommandButton1_Click()
On Error Resume Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim s1, s2 As Worksheet, m As Long
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.[a2:j100000] = Empty
m = s1.Cells(Rows.Count, "e").End(3).Row
 s1.Range("B5:B" & m & "," & "E5:E" & m & "," & "F5:F" & m & "," & "G5:G" & m & "," & "J5:J" & m & "," & "K5:K" & m & "," & "L5:L" & m & "," & "M5:N" & m & "," & "O5:O" & m).Copy
 s2.[a2].PasteSpecial Paste:=xlPasteValues
 Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

 

[ADER_34]

Çok teşekkür ederim sayın plint, kodlar sorunsuz çalışıyor.Kolay gelsin..