Kadangkala, spasi itu penuh daya guna.
"ACCEPT GROUP" jika diubah dulu menjadi " ACCEPT GROUP" maka bisa
menggunakan replace untuk " PT." atau " PT "
Wassalam,
Kid.
2013/8/2 De Premor <d...@premor.net>
> **
>
>
> 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
> misalnilai 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
>
>
>
>
