başka kitaptaki sekme adlarını hücreden alma

[İhsan Tank]

arkadaşlar elimde bir dosya var benim bunda istediğim
formülde çıkan sekme adlarını hücreden almasını istiyorum.
aynı çalışma kitabında olunca dolaylı formülü ile alabiliyordum ama bundakini başaramadım
dosya ekte

 

[nsertoglu]

Makrolu çözüm.

İşlemin MAKRO kullanılarak çözümü için üretilen kod aşağıdadır, kolay gelsin..

Sub sekmeList()
' bu makroyu 2007 de kullanmak için içine makro konulan dosya
' xlsm veya xlsb uzantıları ile kayıt edilmelidir. mesala "İsim Listesi1.xlsb" gibi..

AnaD = "İsim Listesi.xls" ' sayfa sayfa üye bilgileri içeren dosya
OztD = "İsim Listesi 1.xls" ' özet sayfa içeren dosya
yaz_r = 2 ' özet sayfa içeren dosyada yazılacak ilk satır no
Workbooks(AnaD).Activate
shc = Sheets.Count
For s = 1 To shc
Workbooks(AnaD).Activate
Sheets(s).Select
If Cells(1, "a") = "Üye Olma Tarihi" Then
ad = ActiveSheet.Name
ut = Cells(1, "b") ' Üye Olma Tarihi
gs = Cells(2, "b") ' Geçen Süre
ms = Cells(3, "b") ' Mesaj Sayısı
Workbooks(OztD).Activate
Sheets("sayfa1").Select
Cells(yaz_r, "a").Select
Cells(yaz_r, "a") = ad
Cells(yaz_r, "b") = ut
Cells(yaz_r, "c") = gs
Cells(yaz_r, "d") = ms
ad = Empty
ut = Empty
gs = Empty
ms = Empty
yaz_r = yaz_r + 1
End If
Next s

End Sub

 

[uzmanamele]

merhaba

bu mudur?

=İNDİS(DOLAYLI("'[İsim Listesi.xls]"&$A2&"'!$B$1:$B$3");KAÇINCI(D$1;DOLAYLI("'[İsim Listesi.xls]"&$A2&"'!$A$1:$A$3");0);1)

 

[İhsan Tank]

merhaba

bu mudur?

=İNDİS(DOLAYLI("'[İsim Listesi.xls]"&$A2&"'!$B$1:$B$3");KAÇINCI(D$1;DOLAYLI("'[İsim Listesi.xls]"&$A2&"'!$A$1:$A$3");0);1)

hocam budur ama sanırım tek sıkıntısı iki dosyanında açık olması gerekmekte.
yanlış mıyım.

 

[uzmanamele]

hocam budur ama sanırım tek sıkıntısı iki dosyanında açık olması gerekmekte.
yanlış mıyım.

merhaba

dolaylı fonksiyonunu kullanacaksanız, doğrudur.

 

[İhsan Tank]

merhaba

dolaylı fonksiyonunu kullanacaksanız, doğrudur.

hocam bunu dolaylı formülünün dışında bir formül ile yapma imkanım var mı
yani fonksiyonlarla ama o dosya kapalıda olsa formül aktif şekilde çalışsa

 

[uzmanamele]

merhaba

alternatif formül ektedir.
dolaylı fonksiyonu kullanmadan çözüm olabilir mi bilmiyorum.

 

[İhsan Tank]

merhaba

alternatif formül ektedir.
dolaylı fonksiyonu kullanmadan çözüm olabilir mi bilmiyorum.

hocam ilgilendiğiniz için çok teşekkür ederim
bu formüllerde dosya açıkken çalışıyor ( bilgi amaçlıdır )