Baska Bir Exceldeki bir Sutunu Kopyalama

[xxxcitixxx]

Basliktanda anlasilacagi uzere Baska Bir Exceldeki bir Sutunuveya satiri Kopyalayarak makronun oldugu Excele yapistiran ve bu Excelde gerekli islemleri yapmaya yarayan makro nasil olur

Mesela ekteki Bnin oldugu satirin alinmasini istiyorum

 

[hımmmmmmmm]

Bu kotları macronun olduğu excel dosyasına yaz..
veriler dosyası açılacak.. oradaki B sütunundaki bilgileri alacak
macronun olduğu dosyanın sayfa1 in A sütununa aktaracak (aktarma olmadan direk işlem yapılabilir. adresi tanımlamak önemli)
sonra veriler dosyası kapatılacak
'----------------------------------------------------------------
Workbooks.Open ("d:\veriler.xls") 'veriler dosyasını aç
Set D1 = Workbooks("macro.xls").Sheets("sayfa1") 'macro sayfa1
Set D2 = Workbooks("veriler.xls").Sheets("sayfa1") 'veriler sayfa1

D1.Range("A:A").Value = D2.Range("B:B").Value 'bilgileri aktar
Workbooks("veriler.XLS").Close False 'veriler dosyasını kapat

 

[hımmmmmmmm]

ahada çalışma

örnek çalışma..dosyaları D ye kopyala

 

[xxxcitixxx]

yeni bir SIKINTI ile karsinizdayim
makrolari excel dosyama koyunca kaydetmeye calisinca bu excel dosyasinin makrolarla uyumlu olmadigi ve makrolari kaydetmem icin dosya turunu degistirmem gerektigine dair bir mesaj aliyorum.
Excel makro etkin calisma kitabini sectigimde de excele girdi olarak giren verileri aldigim lotus adli bir program kullaniyorum ve bu program ile sorun cikarmaktadir. ne yapmam gerekiyor?
makro kodu A86 nolu hucrede yer almaktadir.
ayrica makronunda su sekilde calismasi saglanabiliyor mu?
excel dosyasini kaydettigimde makro kendi kendine calistir komudunu uygulasin yani run yapsin

 

[xxxcitixxx]

cevap acele olursa cok sevinirim