yyhy
Altın Üye
- Katılım
- 3 Aralık 2005
- Mesajlar
- 946
- Excel Vers. ve Dili
- Microsoft Office 2021 TR
Microsoft 365 TR
=SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1);1))
Sub kod()
Range("d4") = ActiveSheet.Name
End Sub