Arkadaşlar merhaba gönderdiğim dosya da da belirtiğim gibi bir dosya içerisindeki kapalı çalışma kitabından diğer çalısma kitabına düşeyara ile veri almak istiyorum,çok araştırmama rağmen bulamadım,verilen örneklere felan da baktım ama istediğim gibi olusturamadım,sizlerden yardımlarınızı istiyorum.

Sayın berna

Örnek.xls dosyasında Sayfa1 C2 hücresine aşağıdaki kodu yazın

Kod: Tümünü seç

=DÜŞEYARA(B2;'E:\personel\Excel\[data.xls]Sayfa1'!$B$2:$D$26;2;0)

Örnek.xls dosyasında Sayfa1 D2 hücresine aşağıdaki kodu yazın

Kod: Tümünü seç

=DÜŞEYARA(B2;'E:\personel\Excel\[data.xls]Sayfa1'!$B$2:$D$26;3;0)

Yalnız yapmanız gereken bir şey daha var. Oda E:\personel\Excel dosya yolunu kendi bilgisayarınızda data.xls dosyası nerede kayıtlı ise o yolu yazmanız gerekir. Dosya yolunu doğru tespit etmenin en pratik ve güvenli yolu

Dosyanızı açmadan üzerine sağ tık yapıp Özelliklerden Konum'un karşısında yazan dosya yolunu kopyala/yapıştır yapmak

Bu forum sayfası siz üyelerimizin. Aktif katılımınızı ve paylaşımınızı bekleriz.

Merhaba,ya ben bu formülü aynen yazdım tamam formül doğru sonuç veriyor ama,veriler o kadar fazla ki ve daha yan sütünlara da gelecek olan veriler olduğu için kayıt yaparken "Excel kullanılabilir kaynaklar ile bu görevi tamamlayamıyor.Daha az veri seçin veya diğer uygulamaları kapatın",diye uyarı veriyor.
bunun için vba ile yapılabilirse onu kullanmak istiyorum.ben dosyanın formüllerden dolayı boyutu çok yüksek diye diğer yerleri sildim.

yardımcı olacak yok mu?

Herkes için anlaşılır olması için Kapalı.xls ve Data.xls dosyalarının resmini çekip ekliyorum. Ben biraz daha görsellik açısından düzenlemeler yaptım ama aslını değiştirmeden.



Şimdi yapmanız gereken aşağıdakı kodları Kapalı.xls dosyasında Sayfa1'in kod sayfasına kopyalamak

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A2:D65536]) Is Nothing Then Exit Sub
    If Target.Column = 2 And Target <> "" Then
    Son = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path _
    & "\[Data.xls]Sayfa1'!C2)")
    For X = 2 To Son
      If Target.Text = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
      & "\[Data.xls]Sayfa1'!R" & X & "C2") Then
      Cells(Target.Row, "C") = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
      & "\[Data.xls]Sayfa1'!R" & X & "C3")
      Cells(Target.Row, "D") = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
      & "\[Data.xls]Sayfa1'!R" & X & "C4")
      Say = Say + 1
      Exit For
      End If
    Next
    End If
End Sub


Kolay gelsin

Hazırladığım dosyaları indirip inceleyebilirsiniz.

Kapali.xls

Data.xls

Not : Dosyaları Aynı Klasöre indirmelisiniz ya da kopyalamalısınız.

Çok teşekkür ederim ExcelTürk tam istediğim gibi olmus,tekrar teşekkürler

Çözüm olduysa ne mutlu ExcelTurk'e

Sitenizden yararlanarak az excel bilgimle birşeyler yapmaya çalışıyorum. Ekte büyük boyutlu kalı bir excel dosyasından veri almaya çalıştım ama başarılı olamadım. Yardımlarınızı bekliyorum. dosya çok büyük olduğu için ekliyemedim. rapidshare ye koydum.

http://rapidshare.com/files/367112792/k ... i.rar.html

Sayın utku25 doğru adrestesiniz. Yapmanız gereken şey Yukarıdaki Kapali.xls ve Data.xls dosyasını indirip incelemek ve kodları onlara uyarlamak. İnan dosya indirmeye vaktim yok. Hele rapidden indirmeye hiç imkanım yok. Ama verileri alacağınız dosya dosya Adı ve sütun Adını yazarsanız kodları ona göre uyarlamanıza yardımcı olayım. Bunu aslında sizde yapabilirsiniz. Yukarıdaki kodlar tam yapmak istediğiniz şeye göre. Yalnız dikkat etmeniz gereken şey çalıştığınız dosya ile veri aldığınız dosya aynı klasörde olmalı. Yapamazsanız yardımcı olmaya çalışayım.

Kolay gelsin

Teşekkür ederim hocam kodlar çok işime yaradı. Dosya büyük oldumu dosyayı açmadan veri alamıyor. Açtımı sorun yok. teşekürler iyi çalışmlar.