terimakasih pencerahannya. saya sudah mengerti
On 4/17/2018 12:52 PM, Yusuf Roni y.ron...@yahoo.com [belajar-excel] wrote:
ditempat saya tidak muncul debug. bgmn dong mau masuk ke scriptnya???
Pada Senin, 16 April 2018 17.38.32 WITA, hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel]
menulis:
Saya sdh coba buka...
Waktu keluar
ditempat saya tidak muncul debug. bgmn dong mau masuk ke scriptnya???
Pada Senin, 16 April 2018 17.38.32 WITA, hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel]
menulis:
Saya sdh coba buka...
Waktu keluar pesan "This Wokrksheet was valid until 31/08/2009 and will be
closed" klik
Saya sdh coba buka...Waktu keluar pesan "This Wokrksheet was valid until
31/08/2009 and will be closed" klik Ok.Ketika keluar "Run-time error
'91':"klik Debug.Ganti tahun dari 2009 ke 2018, kmd klik Reset (icon kotak
di bagian atas) untuk membatalkan Debug.
Setelah itu tombol "Input Data" si
untuk scriptnya sudah saya buat hanya saya tidak bisa buka lagi. adakah scrip
ketika sudah expired maka ketika di aktifkan harus memasukkan serial sehingga
bisa diaktifkan kembali?
Test.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
Dear Yusuf:
Coba cekrip:
Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date
you want
diubah menjadi:
Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the
date you want
Jabat erat
NangAgus
On 4/13/2018 1:51 PM, hendrik karnadi hendrikkarn...@yahoo.c
Dear Yusuf:
Coba cekrip:
Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date
you want
diubah menjadi:
Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the
date you want
Jabat erat
NangAgus
On 4/13/2018 11:47 AM, y.ron...@yahoo.com [belajar-excel] wr
Hai Yusuf,Skg kan sdh 2018...jadi workbook ga bisa dibuka.Kalau mau jalankan
macroya...date yang ada di komputer dimundurin dulu.
Salam,HK
On Friday, 13 April 2018, 1:20:16 PM GMT+7, y.ron...@yahoo.com
[belajar-excel] wrote:
Saya sudah script berikut namun tidak bisa digunakan:
Saya sudah script berikut namun tidak bisa digunakan:
Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date
you want
If Date > Edate Then
MsgBox ("This worksheet was valid upto " & Format(Edate,
"dd-mmm-yy
9 matches
Mail list logo