Başka excelden veri alma

[maxinus]

Örnekte göreceğiniz gibi kitap2 dosyasında her sayfanın b2 hücresinde tarih yazıyor ve her sayfanın c6 ile c25 arasındaki değerler bulunmaktadır.Kitap dosyasında ise yukardan seçtiğim tarihi oraya kopyalamasını istiyorum.Kitap dosyasında yukardan comboboax ile tarih şectiğimde bana kitap2 de hangi sayfanın tarihi o ise oradaki ve c6 ile c25 arasındaki verileri kopyalayıp kitap dosyasındaki c6 ile c25 üstüne yapıştıracak.

 

[Levent Menteşoğlu]

kitap2 dosyası kapalımı yoksa açıkmı olacak. C6:C25 arasındaki veriler hep aynımıdır. Son olarak hergün bu değerler 5 şer artarakmı gitmektedir.

 

[maxinus]

Farketmez ama kapalı olabiliyorsa iyi olur.Yok rakamlar farklı birde 5'şer 5'şer artmıyor rastgele rakamlar olacak.

 

[Levent Menteşoğlu]

Kitap isimli dosyanın A1 hücresine bir tarih yazın ve aşağıdaki kodu bu dosyada bir butona bağlayarak çalıştırın. Kitap2 dosyası kapalı veya açık iken veri alınacaktır. Kitap2 dosyanızın yolunu kod içerisinde değiştirin ben c:\deneme isimli bir klasörde bulunduğunu kabul ettim.

Sub verial()
sayfa = Format([a1], "dd_mm_yy")
For a = 6 To 25
Cells(a, "c") = ExecuteExcel4Macro("'C:\deneme\[kitap2.xls]" & sayfa & "'!R" & a & "C3")
Next
End Sub

 

[maxinus]

Teşekkür ederim hocam.

 

[maxinus]

Hocam Ben bunu işlemleri yaptım şimdi biraz daha geliştirmek istiyorum.Deneme_2 kitabındaki sayfa isimlerini (yada b1 hücrelerinde yazan tarihleri )deneme kitabındaki gösterge sayfasında Proje no 'nun altında 1,2,3... diye devam eden yerlerin yerine yazmasını istiyorum ve göster butonuna bastığımda deneme_2 kitabındaki her sayfadaki rakamları bu deneme kitabındaki gösterge sayfasında tarihlerin altına koymasını istiyorum.
Teşekkür ederim.