Mr DE Premor, cara tsb saya pakai memang hilang spasi di depannya, tetapi diakhir ada pesan error Runtime error 1004: application defined or object defined error. terima kasih. ASL
To: belajar-excel@yahoogroups.com From: d...@premor.net Date: Fri, 2 Aug 2013 16:31:01 +0700 Subject: Re: [belajar-excel] Fungsi Excel dalam Macro Paling enaknya kalau masalahnya seperti ini, kita gunakan seperti yang sudah dijabarkan Mr. Kid Yaitu menggunakan fungsi Replace Range("C" & lRow) = Trim(Replace(Replace(sht.Range("A1"), "PT.", vbNullString), "PT", vbNullString)) Maksudnya adalah jika di Sht.Range("A1") ada katanya "PT." maka langsung aja dibuang, lalu hasilnya dilihat lagi, ada lagi kah kata "PT" ? jika ada buang juga, lalu hasilnya di TRIM buat membuang karakter spasi dikanan kirinya (kalau ada) Dengan menggunakan fungsi Replace ini ada keuntungannya, yaitu jika misal nilai Range A1 adalah : "KUD Maju Beudh", maka hasilnya akan tetap seperti itu, beda kalau kita memanfaatkan fungsi Mid seperti sebelumnya yang akan menghasilkan "D Maju Beudh" padahal kita ingin hanya membuang kata PT, tetapi KU ikutan terbuang. Kekurangannya, Jika misalkan orang yang kebarat-baratan, mau bikin group usaha bernama ACCEPT GROUP, maka akan ikut2an dibuang juga sehingga menjadi ACCE GROUP (^_^) Pada 02/08/2013 14:31, Ahmad Syaifullah Lubis menulis: Mr De Premor, tip Range("D" & lRow) = Mid(sht.Range("A2"), 9) ini sudah bisa jalan. tetapi mengapa formula tsb saya pakai untuk mengganti Nama2 Perusahaan, bisa tepat bisa tidak tepat karena masih ada 1 spasi di depannya. seperti kalau targetnya tertulis "PT ANDIKA BAHTERA" (tanpa tanda titik) akan menghasilkan "Andika Bahtera" (cocok); tetapi kalau targetnya tertulis "PT. ANDIKA BAHTERA" akan menghasilkan " Andika Bahtera" (hasilnya ada spasi didepan Andika Bahtera. macro yang saya isi adalah Range("C" & lRow) = Mid(UCWords(sht.Range("A1")), 4) ini modifikasi dari macro yang lamanya yaitu Range("C" & lRow) = UCWords(sht.Range("A1")). bagai jangan pernah bosan ya Mr De Premor. terima kasih. ASL