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 lagikah 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
jikamisalnilai 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,
Jikamisalkan orang yang kebarat-baratan, mau bikin group usaha bernama
ACCEPT GROUP, maka akan ikut2an dibuang jugasehingga 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
