Asalamualaikum warahmatullah.
Terima kasih mas Kid
permasalahan selesai.
Wasalamualaikum warahmatullah.
2016-09-15 8:33 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> wa'alaikumussalam wr wb
>
> mas Nang,
>
> coba pakai on error resume next
>
> dim
wa'alaikumussalam wr wb
mas Nang,
coba pakai on error resume next
dim h as long, x as string
on error resume next
x="bc"
h=application.worksheetfunction.find("a",x)
if h=0 then
h=15
endif
err.clear
on error goto 0
atau pakai evaluate
dim h as long, x as string
x="bc"
h=evaluate("=iferror(
Asalamualaikum warahmatullah
Dear member Belajar Excel
saya membuat sebuah cekrip sederhana untuk menangkap error namun error
tersebut tidak dapat diubah karena hasilnya selalu #VALUE
h = application.worksheetFunction.Find("a",x,1)
if iserror(h) then h = 15
hasil h selalu #VALUE jika a tidak
3 matches
Mail list logo