Başka çalışma kitabından veri almak

[xpluns]

Merhaba arkadaşlar ;

Teklif hazırlamak için bilgi giriş sayfası hazırladım , böylece işim bayağı kolaylaştı.

Şimdi bu noktada beni uğraştıran bir şey de hazırladığım tekliflerde referans numarası oluyor. ve bu referans numarasını yine bir excel dosyasından alıyorum.

Kendi Çalışma kitabımıdaki Sayfa 1'deki bir düğmeye makro atayarak şunu yapmak istiyorum ;

Referans no dosyasının (excel dosyası) açılarak A sutununda en son yazılan tarihin hemen altındaki boş olan hücrenin yani dolu olan en son hücrenin örneğin A802 dolu ise , A803 ün yanındaki hücreki (B802 , B803....) referans no sunun kendi çalışma kitabımdaki , Sayfa 1 A5 hücresine kopyalanmasını istiyorum.

Bunu yapmamız mümkün mü ?

 

[xpluns]

Çok zor bişey istedim sanırım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Dosya yolunu kendinize göre değiştirin.

Workbooks.Open "C:\Referansno.xls"
sheets("sayfa1").[a5]=Workbooks("Referansno.xls").Sheets("sayfa1").[a65536].End(3).offset(1,1)

 

[xpluns]

Aşağıdaki kodu deneyin. Dosya yolunu kendinize göre değiştirin.

Workbooks.Open "C:\Referansno.xls"
sheets("sayfa1").[a5]=Workbooks("Referansno.xls").Sheets("sayfa1").[a65536].End(3).offset(1,1)

"Subscript out of range" diye bir hata veriyo , yardımcı olabilirmisiniz.

 

[seismic]

C sürücüsünün altında Referansno.xls diye bir dosya yoksa bu normaldir.Yanılıyor muyum sayın leventm?