On Error Resume Next 'CODE On Error Goto 0
>semoga bermanfaat ________________________________ From: Ahmad Zamroni <[email protected]> To: belajar-excel <[email protected]> Sent: Wed, November 11, 2009 2:40:37 PM Subject: [belajar-excel] menghindari program berhenti... Dear pakar macro, Gimana caranya menkondisikan baris perintah berikut agar tidak timbul error jika dari cell yang aktif tidak ditemukan yang dimaui, baik itu karena cell kosong atau tidak ada karakter “;”? strCurrent = OrderTable(EdRecNo, 17) i = Application.WorksheetFunction.Find(";", strCurrent) strReplaced = Application.WorksheetFunction.Replace(Arg1:=strCurrent, Arg2:=1, Arg3:=i, Arg4:="") TxtRemark = Application.WorksheetFunction.Trim(strReplaced) -zam- ------------------------------------ bergabung ke milis (subscribe) kirim mail kosong ke: [email protected] posting ke milis kirim kan ke: [email protected] berkunjung ke web milis: http://groups.yahoo.com/group/belajar-excel/ melihat file archive / mendownload lampiran http://www.mail-archive.com/[email protected]/ menhubungi moderators & owners: [email protected] keluar dari milis (unsubscribe) kirim mail kosong ke: [email protected] ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links
