Formüldeki kitap Adı?

[hsayar]

Merhaba
=Benzersiz_Kayit_0Z([TurkceHarfleriDikkateAlarakDiziSiralaması.xls]Sayfa1!$A$1:$B$10;A4)

Formülündeki kitap adını nasıl öğrenirim

 

[hsayar]

örnek fonksiyon aşağıdadır

Function AralıkBilesen(Aralik As Range)
'Dim wb As Workbook
Dim ws As Worksheet
'set wb =
Set ws = Worksheets(Aralik.Worksheet.Name)
AralıkBilesen = "Kitap: " & "????" & " Sayfa:" & ws.Name & "   Erim: " & Aralik.address
Set ws = Nothing
'set wb  = Nothing
End Function

 

[hsayar]

Güncel demek zorundayım Bu gece fonksiyonu bitirmek istiyorum.
Yanlış anlamazsınız umarım.

 

[hsayar]

merhaba,
Güncel

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi olabilir.

Function Formuldeki_Kitap_Ismi(rg As Range)
Dim basla As Integer
Dim bitis As Integer
Application.Volatile (True)
basla = InStr(1, rg.Formula, "[", vbTextCompare)
bitis = InStr(1, rg.Formula, ".xls", vbTextCompare)
Formuldeki_Kitap_Ismi = Mid(rg.Formula, basla + 1, bitis - basla - 1)
End Function

 

[hsayar]

Aşağıdaki gibi olabilir.

Function Formuldeki_Kitap_Ismi(rg As Range)
Dim basla As Integer
Dim bitis As Integer
Application.Volatile (True)
basla = InStr(1, rg.Formula, "[", vbTextCompare)
bitis = InStr(1, rg.Formula, ".xls", vbTextCompare)
Formuldeki_Kitap_Ismi = Mid(rg.Formula, basla + 1, bitis - basla - 1)
End Function

Hocam alakanıza teşekkür ederim ancak değer hatası veriyor
Benim İstediğim Seçilen hücrenin başvurduğu kitabın ismi

Function AralıkBilesen(Aralik As Range)
'Dim wb As Workbook
Dim ws As Worksheet
'set wb =
Set ws = Worksheets(Aralik.Worksheet.Name)
AralıkBilesen = "Kitap: " & "????" & " Sayfa:" & ws.Name & "   Erim: " & Aralik.address
Set ws = Nothing
'set wb  = Nothing
End Function

Yukarıdaki fonksiyonu bir xls belgesine kopyalayıp, test.xla olarak kaydedin
Mesala
Kitap1, Sayfa1, a1, a2, a3 hücrelerine aşağıdaki fonksiyonları yazın.
=AralıkBilesen([Kitap2]Sayfa2!$B$3:$C$10)
=AralıkBilesen([Kitap1]Sayfa2!$B$3:$C$10)
=AralıkBilesen(Sayfa2!$B$3:$C$10)
sonuç hepsinde aşağıdaki gibi dönecektir.
=Kitap: ???? Sayfa:Sayfa2 Erim: $B$3:$C$10

Kitap: ???? Sayfa:Sayfa2 Erim: $C$24

 

[Ferhat Pazarçevirdi]

Yani, Hüseyin kardeşim, daha önce bu açıklamayı yapsaydın çözülürdü.

Aşağıdakini deneyiniz.

Function AralıkBilesen(Aralik As Range)
Dim wb As Workbook
Dim ws As Worksheet
Set ws = Aralik.Parent
Set wb = ws.Parent
AralıkBilesen = "Kitap: " & wb.Name & " Sayfa:" & ws.Name & "   Erim: " & Aralik.Address
Set ws = Nothing
Set wb = Nothing
End Function

 

[hsayar]

Aslında yaptım hocam ama 1. mesajı editlemek yerine 2. mesaja yazmışım kusura bakmayınız. emeğinize sağlık.