gimana kalo gak usah pake vba aja? di cell yang ingin dimunculkan namanya diisi dengan formula ini;
=Cell("filename")
>> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text
Wassalam,
-Miss Jan Raisin-
Pada 10 April 2013 09.15, PRAZT <[email protected]> menulis:
> Dera para master, minta bantuan pada para master tentang masalah
> berikut;****
>
> Saya menginginkan ada sebuah workbook yang saya kasih macro, jika
> saya ganti nama workbook tersebut maka pada sheet1 cell B3 itu sesuai
> dengan nama workbook meskipun workbooknya diganti ganti. Tetapi masih
> berkendala jika sheet1 cell B3 itu ikut saya protect maka pada sheet1 cell
> B3 tidak bisa secara otomatis berubah mengikuti nama workbook tersebut,
> mohon pencerahannya.****
>
> Kode macro yang saya buat seperti berikut ;****
>
> ****
>
> ** **
>
> Sub jajal()****
>
> ActiveCell.FormulaR1C1 = "=WkbName()"****
>
> Range("B3").Select****
>
> End Sub****
>
> (Terdapat pada sheet 1)****
>
> ______________________________________________****
>
> ** **
>
> Function WkbName()****
>
> WkbName = ActiveWorkbook.Name****
>
> End Function****
>
> ** **
>
> (Terdapat pada macro 1)****
>
> ****
>
> Supaya lebih jelas saya ilustrasikan pada Ike terlampir.
> Syukron....****
>
> **** ****
>
> PRAZTMATH ™****
>
> ** **
>
<<image001.gif>>
<<image002.png>>
<<image006.jpg>>
<<image004.png>>
