Dear Kusnadi, Berikut code nya
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBox1.TextColumn = 1 UserForm3.TextBox7.Value = ListBox1.Text ListBox1.TextColumn = 2 UserForm3.TextBox8.Value = ListBox1.Text Unload UserForm4 End Sub ListBox1.TextColumn fungsinya untuk memindahkan fokus ke kolom di dalam listbox. Letakkan di UserForm4. Sedangkan di UserForm3 codenya ada yang saya hapus 1 baris sehingga menjadi : Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm4.Show End Sub Semoga membantu. Ferry --- In belajar-excel@yahoogroups.com, Kusnadi Bin zain <kbinzain@...> wrote: > > > > > > ________________________________ > > > > Dear : Exeller pakar > > > > > >mohon bantuan koding ambil data dari UserForm lain, dan hasilnya ditaruh di > >Current UserForm gimana ya kodingnya. > >ini saya coba kok patchnya katanya erorr..... (gak mudeng2 nih awak) > > > > > >terima kasih atas bagi2 ilmunya selama ini..... > > > >kusnadi >
