oh bisa to ? (apa sudah di praktekkan ??) kalau di pc ku, dari dulu worksheetfunction.find jika diaplikasikan di vba, kalau tidak menemukan substring yg dicari tentu menimbulkan error message walaupun sudah didahului instruksi : On Error Resume Next
atau mungkin pc / excel saya yg tidak standar ya... ----- Original Message ----- From: Puthut Wibowo To: [email protected] Sent: Wednesday, November 11, 2009 5:18 PM Subject: Re: [belajar-excel] menghindari program berhenti... Tambahin : On Error Resume Next 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) ............ --- On Wed, 11/11/09, Ahmad Zamroni <[email protected]> wrote: From: Ahmad Zamroni <[email protected]> Subject: [belajar-excel] menghindari program berhenti... To: "belajar-excel" <[email protected]> Date: Wednesday, November 11, 2009, 2:40 PM 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-
