BaŞka Bİr Dosyanin SÜtunundan

[ariftezer]

BaŞka Bİr Dosyanin SÜtununda Bulunan Bİlgİlerİ ÇaliŞtiĞim Dosyadakİ Bİr SÜtua Bİlgİlerİ Yazdirmak İstİyorum.

ÖrneĞİn "b" Dosyasindakİ "t" SÜtununu
"a" Dosyasinda "t" SÜtununa Yazdirmak İstİyorum


Emeklerİze Bİlgİlerİnİze TeŞekkÜrler

 

[a_self_lion]

Aşağıdaki kodları deneyin

dosya yolunu siz kendinize göre düzeltiniz.

workbooks.Open filename:"C:\deneneme\b.xls"
Windows("b.xls").Activate
Columns("T:T").Select
Selection.Copy
Windows("a.xls").Activate
Columns("T:T").Select
ActiveSheet.Paste
Workbooks("b.xls").Close True

İyi çalışmalar