Sudah saya coba saya MK yaitu menambahkan application.volatile true di baris
pertama tapi belum bisa juga MK

 

From: [email protected] [mailto:[email protected]]
On Behalf Of Mr. Kid
Sent: 10 April 2013 9:40
To: BeExcel
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook

 

  

Ketika menggunakan fungsi Cell, usai save as dilakukan calculate (tekan F9).

Jika tetap ingin dengan UDF yang ada, tambahkan baris :

application.volatile true

pada baris pertama dalam prosedur fungsi tersebut.

Bila perlu, pada event workbook before save dilakukan calculate dengan
application.calculate

Wassalam,

Kid.

 

 

2013/4/10 Jan Raisin <[email protected]
<mailto:[email protected]> >

  

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]
<mailto:[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 T

 

 

 



<<image001.gif>>

<<image003.png>>

<<image004.png>>

<<image005.jpg>>

Kirim email ke