bir formülü tüm modüllerde kullanmak.

[kamenzü]

merhaba,

firma_adi = Mid(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\", -1, vbTextCompare) + 1, Len(ActiveWorkbook.Path) - (Len(ActiveWorkbook.Path) - InStrRev(ActiveWorkbook.Path, "(", -1, vbTextCompare) + 1) - InStrRev(ActiveWorkbook.Path, "\", -1, vbTextCompare) + 1)

bu formülü tüm modüllerde nasıl kullanabilirim.

nette açıklananları uyarlamaya çalıştım ancak başarılı olamadım.