Thanks bro buat responnya, setelah di coba kok Replacenya masih belum jalan ya?
Keluar pesan :
___________________________
Compile error :
Sub or function not defined
___________________________
Highlight pada word "Tabel" di cmdReplace_Click()
Apa yang kurang ya ???
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: Onto Seno <ontosen...@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 5 Dec 2011 19:02:56
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Replace Data Perbaris
"Lha wong" range sedang dijadikan rowSource kok mau di-ubek-ubek.. seh.."
Barangkali itulah yg menyusahkan pengubahannya
Kita cari cara lain "mengisikan data value yg ada di range A2:Cn / sheet 1
bukan dengan memasukkan Range nya ke property *RowSource* tetapi valuesnya
kita ambil satu persatu untuk mengisi Lisbox dengan metoda *AddItem*
*=== module userform ====*
Dim Tabel As Range, R As Long, i As Long
Private Sub UserForm_Initialize()
Set Tabel = Sheets("Sheet1").Range("A1").CurrentRegion.Offset(1, 0)
Application.EnableEvents = False
With ListBox1
.Clear
For i = 1 To Tabel.Rows.Count - 1
.AddItem
.List(.ListCount - 1, 0) = Tabel(i, 1)
.List(.ListCount - 1, 1) = Tabel(i, 2)
.List(.ListCount - 1, 2) = Tabel(i, 3)
Next i
.BoundColumn = 1
.ColumnCount = 3
.ColumnHeads = True
.TextColumn = True
.ListStyle = fmListStyleOption
.ListIndex = 0
End With
Application.EnableEvents = True
End Sub
Private Sub ListBox1_Change()
Application.EnableEvents = False
With ListBox1
If .ListIndex > -1 Then
R = .ListIndex
TextBox4 = .List(R, 0)
TextBox5 = .List(R, 1)
TextBox6 = .List(R, 2)
End If
Tabel(.ListIndex + 1, 1).Resize(1, Tabel.Columns.Count).Select
End With
Application.EnableEvents = True
End Sub
Private Sub cmdReplace_Click()
Application.EnableEvents = False
Tabel(R + 1, 1) = TextBox4
Tabel(R + 1, 2) = TextBox5
Tabel(R + 1, 3) = TextBox6
With Me.ListBox1
'--- bagian ini sebetulnya bisa diganti: hanya mengganti
' 1 item (3 data sebaris) saja
.Clear
For i = 1 To Tabel.Rows.Count - 1
.AddItem
.List(.ListCount - 1, 0) = Tabel(i, 1)
.List(.ListCount - 1, 1) = Tabel(i, 2)
.List(.ListCount - 1, 2) = Tabel(i, 3)
Next i
'--------------
End With
Application.EnableEvents = True
End Sub
2011/12/5 muja <mail4m...@yahoo.co.id>
> Salam buat XL Master,
> Mohon bantuannya memecahkan masalah code replace data nih (file
terlampir) sbb :
> - Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh
Command.
> - Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika
di klik list yang ada maka data akan tampil di textbox
> - Nah bagaimana cara menganti/mereplace data yang melalui textbox
tersebut dengan Command.???
> - Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.
> Demikian disampaikan, atas bantuannya diucapkan terima kasih.
> Mas Muja
> ========
