HÜcre Bİlgİsİ

[ariftezer]

HÜcrede ÇliŞma Kİtabinin Adini GÖrmek İstİyorum Ve
HÜcrede ÇliŞma Sayfasinin Adini GÖrmek İstİyorum

 

[xxcell]

Tam Adres İçin;
=HÜCRE("Dosyaadı";A1)

Sadece Dosya Adı İçin;
=PARÇAAL(HÜCRE("Dosyaadı";A1); BUL("[";HÜCRE("Dosyaadı";A1))+1;BUL("]";HÜCRE("Dosyaadı";A1))-BUL("[";HÜCRE("Dosyaadı";A1))-1)

Sadece Sayfa Adı İçin;
=PARÇAAL(HÜCRE("Dosyaadı";A1); BUL("]";HÜCRE("Dosyaadı";A1))+1; UZUNLUK(HÜCRE("Dosyaadı";A1))-BUL("]";HÜCRE("Dosyaadı";A1)))

 

[kombo]

Kitabın (This Workbook) Kod sayfasına yazın.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A1].Value = ActiveSheet.Name
[A2].Value = ActiveWorkbook.Name
End Sub

 

[ariftezer]

teşekkürler emeğinize sağlık