Allhamdulillah, macronya jos gandos. makasih buayak mas...
On Wednesday, August 19, 2015 4:16 PM, "SUYONO [email protected]
[belajar-excel]" <[email protected]> wrote:
Assalamu'alaikum Pak Haris Coba pake vba, copy scrip ini ke module.
Option Explicit Public Function Result_text(change_data As String) As String
On Error GoTo err Dim partText As Variant Dim changeText As String Dim i As
Integer Dim r As Integer Dim chrFind As String Dim joinText As String partText
= Split(change_data, ",") i = 0 Do Until partText(i) = "" changeText =
partText(i) joinText = "" For r = 2 To Len(changeText) chrFind =
Mid(changeText, r, 1) If chrFind = " " Then GoTo bawah joinText =
joinText & chrFind Next bawah: Result_text = Result_text & "AP "
&joinText & ", " i = i + 1 Loop Exit Function err: Result_text =
Left(Result_text, Len(Result_text) - 2) End Function Cara menggunakan
formulanya: =Result_text(A1) Note : Data yang akan dirubah didepannya harus
diberi spasi. Salam Suyono From:[email protected]
[mailto:[email protected]]
Sent: Wednesday, August 19, 2015 11:41 AM
To: BeExcel
Subject: [belajar-excel] Menghapus text dengan Subtitude data dinamis
Assalamu'alaikum para mastersemua Mohon bantuannya. Bagaimanaformulanya
untuk mendapatkan data seperti pada Hasil dibawah ini Data : 14119 tb707,
93237tb506, 9395 tb168, 93135, 93163 tb489 Hasil : AP 14119, AP 93237,AP 9395,
AP 93135, AP 93163 Terima kasih atas bantuannya. Salam Haris
#yiv7873226916 #yiv7873226916 -- #yiv7873226916ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7873226916
#yiv7873226916ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7873226916
#yiv7873226916ygrp-mkp #yiv7873226916hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv7873226916 #yiv7873226916ygrp-mkp #yiv7873226916ads
{margin-bottom:10px;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad
{padding:0 0;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad p
{margin:0;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad a
{color:#0000ff;text-decoration:none;}#yiv7873226916 #yiv7873226916ygrp-sponsor
#yiv7873226916ygrp-lc {font-family:Arial;}#yiv7873226916
#yiv7873226916ygrp-sponsor #yiv7873226916ygrp-lc #yiv7873226916hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7873226916
#yiv7873226916ygrp-sponsor #yiv7873226916ygrp-lc .yiv7873226916ad
{margin-bottom:10px;padding:0 0;}#yiv7873226916 #yiv7873226916actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7873226916
#yiv7873226916activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7873226916
#yiv7873226916activity span {font-weight:700;}#yiv7873226916
#yiv7873226916activity span:first-child
{text-transform:uppercase;}#yiv7873226916 #yiv7873226916activity span a
{color:#5085b6;text-decoration:none;}#yiv7873226916 #yiv7873226916activity span
span {color:#ff7900;}#yiv7873226916 #yiv7873226916activity span
.yiv7873226916underline {text-decoration:underline;}#yiv7873226916
.yiv7873226916attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv7873226916 .yiv7873226916attach div a
{text-decoration:none;}#yiv7873226916 .yiv7873226916attach img
{border:none;padding-right:5px;}#yiv7873226916 .yiv7873226916attach label
{display:block;margin-bottom:5px;}#yiv7873226916 .yiv7873226916attach label a
{text-decoration:none;}#yiv7873226916 blockquote {margin:0 0 0
4px;}#yiv7873226916 .yiv7873226916bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv7873226916
.yiv7873226916bold a {text-decoration:none;}#yiv7873226916 dd.yiv7873226916last
p a {font-family:Verdana;font-weight:700;}#yiv7873226916 dd.yiv7873226916last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7873226916
dd.yiv7873226916last p span.yiv7873226916yshortcuts
{margin-right:0;}#yiv7873226916 div.yiv7873226916attach-table div div a
{text-decoration:none;}#yiv7873226916 div.yiv7873226916attach-table
{width:400px;}#yiv7873226916 div.yiv7873226916file-title a, #yiv7873226916
div.yiv7873226916file-title a:active, #yiv7873226916
div.yiv7873226916file-title a:hover, #yiv7873226916 div.yiv7873226916file-title
a:visited {text-decoration:none;}#yiv7873226916 div.yiv7873226916photo-title a,
#yiv7873226916 div.yiv7873226916photo-title a:active, #yiv7873226916
div.yiv7873226916photo-title a:hover, #yiv7873226916
div.yiv7873226916photo-title a:visited {text-decoration:none;}#yiv7873226916
div#yiv7873226916ygrp-mlmsg #yiv7873226916ygrp-msg p a
span.yiv7873226916yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7873226916
.yiv7873226916green {color:#628c2a;}#yiv7873226916 .yiv7873226916MsoNormal
{margin:0 0 0 0;}#yiv7873226916 o {font-size:0;}#yiv7873226916
#yiv7873226916photos div {float:left;width:72px;}#yiv7873226916
#yiv7873226916photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv7873226916
#yiv7873226916photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7873226916
#yiv7873226916reco-category {font-size:77%;}#yiv7873226916
#yiv7873226916reco-desc {font-size:77%;}#yiv7873226916 .yiv7873226916replbq
{margin:4px;}#yiv7873226916 #yiv7873226916ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv7873226916 #yiv7873226916ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7873226916
#yiv7873226916ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7873226916
#yiv7873226916ygrp-mlmsg select, #yiv7873226916 input, #yiv7873226916 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv7873226916
#yiv7873226916ygrp-mlmsg pre, #yiv7873226916 code {font:115%
monospace;}#yiv7873226916 #yiv7873226916ygrp-mlmsg *
{line-height:1.22em;}#yiv7873226916 #yiv7873226916ygrp-mlmsg #yiv7873226916logo
{padding-bottom:10px;}#yiv7873226916 #yiv7873226916ygrp-msg p a
{font-family:Verdana;}#yiv7873226916 #yiv7873226916ygrp-msg
p#yiv7873226916attach-count span {color:#1E66AE;font-weight:700;}#yiv7873226916
#yiv7873226916ygrp-reco #yiv7873226916reco-head
{color:#ff7900;font-weight:700;}#yiv7873226916 #yiv7873226916ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv7873226916 #yiv7873226916ygrp-sponsor
#yiv7873226916ov li a {font-size:130%;text-decoration:none;}#yiv7873226916
#yiv7873226916ygrp-sponsor #yiv7873226916ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv7873226916
#yiv7873226916ygrp-sponsor #yiv7873226916ov ul {margin:0;padding:0 0 0
8px;}#yiv7873226916 #yiv7873226916ygrp-text
{font-family:Georgia;}#yiv7873226916 #yiv7873226916ygrp-text p {margin:0 0 1em
0;}#yiv7873226916 #yiv7873226916ygrp-text tt {font-size:120%;}#yiv7873226916
#yiv7873226916ygrp-vital ul li:last-child {border-right:none
!important;}#yiv7873226916
