Vurkan
Yeni Üye
- Katılım
- 13 Tem 2023
- Mesajlar
- 158
- Çözümler
- 3
- Aldığı beğeni
- 44
- Excel V
- Office 2019 TR
Konu Sahibi
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.