Sadece istenen sütunları aktar

[ADER_34]

Merhaba hayırlı ramamzanlar arkadaşlar,çalışma sayfamda data list sayfasından, sayfa1' e sadece istediğim sütundaki, dolu satırların aktarlımasını istiyorum mümkün mü? sütunlar,
A
B
C
D
I
AL
AR
AU
AW
CI
http://s5.dosya.tc/server/o2w6w6/Sutun_aktar.xls.html
olacak çok teşekkür ederim kolay gelsin..

 

[alicimri]

Sayın ADER_34
Yanlış anlamadım ise kodlarınız aşağıda

Sub Makro1()
sutun = "A B C D I AL AR AU AW CI"
sutun = Split(sutun, " ")
say = UBound(sutun)
For i = 0 To say
Sheets("Data List").Columns(sutun(i)).AutoFilter Field:=1, Criteria1:="<>"
   Sheets("Data List").Columns(sutun(i)).Copy Sheets("Sayfa1").Columns(i + 1)
Sheets("Data List").Columns(sutun(i)).AutoFilter
Next
End Sub

 

[ADER_34]

Çok teşekkür ederim Ali bey tam istediğim gibi olmuş,kodlar sorunsuz kolay gelsin hayırlı geceler..

 

[ADER_34]

Merhaba hayırlı geceler arkadaşlar,Ali bey sorunuma çözüm olan kodları yazmıştı fakat bir sorunum var kodlar sadece dolu satırları aktarıyor,boş satırları atlıyor,sütunlardaki verileri aktarırken kodlara nasıl bir ilave yapmalıyım boş satırlarıda aktarsın,yani "A" sütununda boş satır yoksa olduğu gibi aktarıyor ama bş satır varsa sayfa1 de aktarım olunca sütunun orjinal hali bozuluyor satırlar kayıyor,kolay gelsin teşekkürler..

 

[alicimri]

"dolu satırların aktarlımasını istiyorum" dediğiniz için kodları öyle düzenlemiştim. Aşağıdaki kod sütunu olduğu gibi aktarır.

Sub Makro2()
sutun = "A B C D I AL AR AU AW CI"
sutun = Split(sutun, " ")
say = UBound(sutun)
For i = 0 To say
Sheets("Data List").Columns(sutun(i)).Copy Sheets("Sayfa1").Columns(i + 1)
Next
End Sub

 

[ADER_34]

Çok teşekkür ederim Ali bey, kodlarınız tam istediğim gibi oldu,hayırlı geceler kolay gelsin..