Bisa Mbak, saya pakai Excel 2007, dengan cara yang agak aneh "on error resume next" nya saya ketik dua baris (mulanya iseng doang, tapi berhasil tuh), tadinya satu baris masih error mulu, kenapa ya?
--- On Wed, 11/11/09, siti Vi <[email protected]> wrote: From: siti Vi <[email protected]> Subject: Re: [belajar-excel] menghindari program berhenti... To: [email protected] Date: Wednesday, November 11, 2009, 6:22 AM 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: belajar-excel@ yahoogroups. com 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. WorksheetFunctio n.Find("; ", strCurrent) strReplaced = Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1, Arg3:=i, Arg4:="") TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed) ............ --- On Wed, 11/11/09, Ahmad Zamroni <ahza...@gmail. com> wrote: From: Ahmad Zamroni <ahza...@gmail. com> Subject: [belajar-excel] menghindari program berhenti... To: "belajar-excel" <belajar-excel@ yahoogroups. com> 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. WorksheetFunctio n.Find("; ", strCurrent) strReplaced = Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1, Arg3:=i, Arg4:="") TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed) -zam-
