sayfa adını hücreye otomatik yazmak

[mennanalpay]

a1 hücresine çalışama sayfasının adını nasıl otomatik yazdırırım

sevgiyle......

 

[SeSi]

Merhaba,

Kod sayfasını açarak Workbook_SheetSelectionChange seçin ve;

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Value = ActiveSheet.Name
End Sub

makrosunu yazın.

Kolay gelsin.

 

[tirvana]

=SAÐDAN(HÜCRE("DosyaAdı";A2);UZUNLUK(HÜCRE("DosyaAdı";A2))-MBUL("]";HÜCRE("DosyaAdı";A2);1))

 

[mennanalpay]

Çalışma kitabının saklanmış olması gerekiyor. Yani yeni açtığımız ve henüz saklamadığımız bir kitapta çalışmamakta

=SAÐDAN(HÜCRE("dosyaadı";A1);UZUNLUK(HÜCRE("dosyaadı";A1))-(BUL("]";HÜCRE("dosyaadı";A1))))

ilgi ve paylaşımınıza teşekkür ederim. :hey:

 

[mr.murat]

ellerine sağlık , benimde işime yaradı k::