• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
19 Haziran 2014
Mesajlar
64
Excel Vers. ve Dili
Office365 ProPlus
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
 
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.

Kod:
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
 
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: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



Kod:
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
 
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.
 
Geri
Üst