Mumpung jam istirahat, Barangkali saja... dapat "anggukan", untung-untungan lah... 'Tar kalau yg nanya gak mau model kayak gini, ya tinggal dicabut kembali..
'------------------------
Sub Klothakk(Sumber As Range)
'===================================
' dipun coded dening pun o'Seno
' 15 des 2011 / beExcel Post #14646
'===================================
Dim Hasil As Range, ArKet As Variant
Dim sArea As String, sTipe As String, sNama As String
Dim lRows As Long, i As Long, r As Long, n As Byte
Const sKetr As String = _
"JUMLAH GURU\JUMLAH SISWA LAKI\" & _
"JUMLAH SISWA PEREMPUAN\ALAMAT\NO TELEPON"
Set Hasil = Sumber(1, Sumber.Columns.Count + 4)
ArKet = Split(sKetr, "\")
lRows = Sumber.Rows.Count - 1
For i = 1 To lRows
If LenB(Sumber(i, 1)) > 0 Then sArea = Sumber(i, 1).Value
If LenB(Sumber(i, 2)) > 0 Then sTipe = Sumber(i, 2).Value
If LenB(Sumber(i, 3)) > 0 Then
sNama = Sumber(i, 3).Value
For n = LBound(ArKet) To UBound(ArKet)
r = r + 1
If n = 0 Then
Hasil(r, 1) = sArea
Hasil(r, 2) = sTipe
Hasil(r, 3) = sNama
End If
Hasil(r, 4) = ArKet(n)
Next n
End If
Next i
End Sub
'------------------
Sub Jalan()
' di assigned untuk gambar tombol
Dim RefRg As Range
Set RefRg = Me.Range("A3").CurrentRegion.Offset(1, 0)
Set RefRg = RefRg.Resize(RefRg.Rows.Count - 1)
Call Klothakk(RefRg)
End Sub
'-----------------
2011/12/15 lut her <luth...@yahoo.com>
>
> Dear All,
> mohon bantuannya bagaimana cara cepet menambah text pada setiap baris
dari data sumber yang lumayan banyak.
> lebih jelasnya data terlampir. terima kasih sebelum & sesudahnya
>
> salam
> lut
MENAMBAH TEXT (o_Seno).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
