• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

başka çalışma kitaplarından veri alma

Katılım
15 Mayıs 2008
Mesajlar
95
Excel Vers. ve Dili
2010
türkçe
='C:\Users\Bilal\Desktop\Bölge Hesaplar\[Trabzon.xlsm]Özet'!$F$2

Arkadaşlar Yukarıda [Trabzon.xlsm] olan kısım değişken olacak yani bir hücreye bağlayacağım dolaylı formülü ile yapmaya çalıştım fakat hata alıyorum
istediğim başka bir çalışma kitabından seçmiş olduğum bir hücrenin verisini tabloda gösterecem..
örnek ;

A1 Trabzon
A2 Rize
A3 Samsun vs. gibi

="C:\Users\Bilal\Desktop\Bölge Hesaplar\["&G3&".xlsm]"&"Özet'!$F$2"
Bu şekildede denedim olmuyor..
 
Böyle denermisiniz.
kod ile
Kod:
Range("a1").Value = "='C:\Users\Bilal\Desktop\Bölge Hesaplar\[" & g3 & ".xlsm]Özet'!$f$2"

yeya

formül ile
Kod:
='C:\Users\Bilal\Desktop\Bölge Hesaplar\[ & (g3) &.xlsm]Özet'!$F$2

ama bu şekilde veri almak için dosya açık olmalı yoksa güncelleme olmayacaktır.
 
:( malesef bu şekildede olmadı

='C:\Users\Bilal\Desktop\Bölge Hesaplar\[Trabzon.xlsm]Özet'!$F$2 bu şekilde hücre görünüyor
 
kod ile çalışıyor
Aşağıdaki kodu sayfanın kod bölümüne yapıştırın

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kalasor = "C:\Users\Bilal\Desktop\Bölge Hesaplar\"
Dosya = Cells(1, 7).Value
deg3 = "'" & Kalasor & "[" & Dosya & ".xlsm]Özet'!R2"
Range("a1").Value = ExecuteExcel4Macro(deg3 & "C6")
End Sub

fareyi nereye tıklarsanız A1 hücresine değeri yazacaktır.
 
Bu fonksiyon çalışıyor ancak her seferinde güncelleme istiyor.

Kod:
='C:\Users\Bilal\Desktop\Bölge Hesaplar\[& DOLAYLI(G3) & .xlsm]Özet'!$F$2
 
Geri
Üst