Formüldeki sayfa adını alma

[teyadih]

Merhaba arkadaşlar.
Aşağıda belirttiğim formüllerde yazan sayfa adını alacak formüle ihtiyacım var. Sonucun karşısındaki gibi olması gerekiyor. Teşekkür ederim.


=EĞER(B2="";"";EĞERHATA(DÜŞEYARA(B2;Asker!B1:C1;2;0);0)) Sonucun Asker olması gerekiyor
=EĞER(B2="";"";EĞERHATA(İNDİS(Asker!A:B;KAÇINCI(B2;Asker!B:B;0);1);"")) Sonucun Asker olması gerekiyor

 

[hamitcan]

Ktf ile yaptım, umarım işinizi görür.

Function SayfaIsmi(Hucre As Range)
    For Each sht In Sheets
        If Not Hucre.Find(sht.Name) Is Nothing Then SayfaIsmi = sht.Name
    Next
End Function

 

[teyadih]

Teşekkür ederim sayın Hamitcan elinize sağlık