Belirli sütunlarları farklı sayfaya taşıma

[tiretwien]

merhaba,

elimde 79 sütünluk bir veri dosyası var. ben bunlar arasından belirledigim bazı sütünları yan sheet e taşımak istiyorum
mesela E,G,L,X,AA,AD

bu sütunları yan sheet e taşımak istiyorum.


nasıl yapılabilir ?

ilginize teşekkürler

 

[tugkan]

Merhaba,
Makro kaydet ile kopyala-yapıştır yapıp, kopyaladığım sütunları silince aşağıdaki makro oluştu. Kendinize göre özelleştirirseniz işinizi görebilir.

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("E:E,G:G,L:L,X:X,AA:AA").Select
    Range("AA1").Activate
    ActiveWindow.ScrollColumn = 2
    Range("E:E,G:G,L:L,X:X,AA:AA,AD:AD").Select
    Range("AD1").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub

 

[tiretwien]

hocam cok teşekkür ederim
işimi cok kolaylaştırdınız.

ancak şöyle bir sorunum var

G:G,BB:BB,J:J,K:K,L:L,N:N,AC:AC,Y:Y,P,O:O,S:S,BM:BM,Q:Q,AD:AD

sıralamasını yapınca bb:bb 2. sırada olmuyor sondan 2.sıraya atıyor. bunun sebebi ne olabilir.
hata gozukmuyor

Sub MMMMM()
'
' MMMMM Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
 Range("G:G,BB:BB,J:J,K:K,L:L,N:N,AC:AC,Y:Y,P:P,O:O,S:S,BM:BM,Q:Q,AD:AD").Select
    Range("AA1").Activate
    ActiveWindow.ScrollColumn = 2
    Range("G:G,BB:BB,J:J,K:K,L:L,N:N,AC:AC,Y:Y,P:P,O:O,S:S,BM:BM,Q:Q,AD:AD").Select
    Range("AD1").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("SONUÇ").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub

 

[tugkan]

Makro kaydet ile yapılan işlemlerde, işlemleri hangi sıra ile yaparsanız harfiyen ona göre yapar. Kaydetme işlemini tekrar kontrol ederek yapın. Onun dışında makro konusunu ben de çok fazla bilmiyorum. Uzman arkadaşlar yardımcı olabilir.