Arkadaşlar merhaba. netten bulduğum ;
Private Sub Worksheet_Activate()
Sayfa1.Range("B1").Value = ThisWorkbook.Name
End Sub
Koduyla dosyanın adını B1 hücresine yazdırdım. Ancak dosya adını uzantısıyla birlikte İŞ TAKİP ÇİZELGESİ.xlsm şeklinde yazdı. Bu koddan sadece (uzantı olmadan) dosya adını almak için nasıl bir değişiklik yapılabilir? Saygılar.
Private Sub Worksheet_Activate()
Sayfa1.Range("B1").Value = ThisWorkbook.Name
End Sub
Koduyla dosyanın adını B1 hücresine yazdırdım. Ancak dosya adını uzantısıyla birlikte İŞ TAKİP ÇİZELGESİ.xlsm şeklinde yazdı. Bu koddan sadece (uzantı olmadan) dosya adını almak için nasıl bir değişiklik yapılabilir? Saygılar.