Misal kriteria pesan ada di sheet bernama namanya di kolom Z
Event workbook open diisi dengan :
dim lerror as long
on error resume next
lerror=sheets("namanya").columns("z:z").specialcells(xlcelltypeconstants,16).count
lerror=lerror +
sheets("namanya").columns("z:z").specialcells(xlcelltypeformulas,16).count
if lerror<>0 then
msgbox "Ada error value",vbexclamation
sheets("namanya").activate
endif
err.clear
on error goto 0
Jadi, langsung ditunjukkan saja sheet yang ada errornya.
Sepertinya kurang efektif jika pesan berisi teks dari kolom lain yang cell
tertentunya error.
Coba bayangkan jika teks kolom lain sebanyak 10 karakter saja deh tapi ada
1000 cell error dikolom Z
Apa iya tulisan sebanyak 10 * 1000 + 999 karakter spasi + 999 karakter koma
akan terbaca ?
Wassalam,
Kid.
On Wed, Apr 11, 2012 at 11:55, Mansur Widayat <w-man...@notes.npr.co.jp>wrote:
> **
>
>
> **
> mau nanya tambahan pak,
> apakah bisa kalau misalkan yang di warning itu bukan tanggal
> Misal : kalau status #N/A maka warning akan muncul sesuai dengan lot.
> file terlampir.
>
> Terima kasih
> Mansur
>
> ----- Original Message -----
> From: "Yusril Ramadani" <yusrilramad...@gmail.com>
> To: <belajar-excel@yahoogroups.com>
> Sent: Wednesday, April 11, 2012 10:47
> Subject: Re: [belajar-excel] fungsi warning sebelum jatuh tempo
>
> Terima kasih Mr Kid dan Pak Kusnadi
>
> Boleh nambah nanya yaa
> Kalau seandainya jatuh tempo mis rgl 10 April 2012
> Pada saat file itu dibuka yg muncuk hanya message dan file tersebut tidak
> bisa dibuka
>
> Mohon pencerahannya yaa
>
> Salam
> YR
>
>
