coba dilihat pada kode form3, disana ada sesuatu yg berbunyi
*Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean):
BukaKode: End Sub*
maksudnya, begitu si textbox di klik, dia akan memanggil sebuah routine
yang bernama BukaKode, adapun isinya ada dibawahnya, yaitu
*Function BukaKode()**
*/ 'Untuk membuka dan menampilkan UserForm4//
/* UserForm4.Show
*/ 'Setelah melakukan sesuatu pada form4, dan form4 ditutup / dihide,
maka //akan melanjutkan ke kode berikut//
'Yaitu mengirimkan instruksi ke form3 untuk memencetkan tombol tab
1x sehingga posisi kursor akan berpindah kesampingnya dari posisi awal
kita yg kita klik untuk menampilkan form
/* SendKeys "{TAB}"
*/ 'setelah perintah terkirim, kita tunggu sampai perintah dijalankan/*
DoEvents
*/ 'Pada textboxt yang aktif (yang ada kursornya), kita set nilainya
menggunakan nilai yang sudah dititipkan dari form4//
/* Frame2.ActiveControl = NitipVal**
*
'Kemudian lompat lagi ke textbox selanjutnya*
** SendKeys "{TAB}"**
**End Function**
*Kira2 penjelasannya bahasa manusia seperti itu, silahkan diacak2
sendiri sehingga posisi kursor sampai ke posisi yang diinginkan, lalu
isinya menjadi NitipVal2, *
*
Rgds,
[dp]
On 03-09-2013 10:40, Kusnadi Bin zain wrote:
terima kasih responnya mbak/mas De Premor
ListBox1 sudah saya tambahkan kolumnya ada yg ke5
tapi untuk menampilkan di userForm3, saya masih belum faham koding
yang mana yg harus ditambahkan ( keterangan selengkapnya ada di sheet
Problems )
trima kasih
kusnadiZain
------------------------------------------------------------------------
*Dari:* De Premor <[email protected]>
*Kepada:* [email protected]
*Dikirim:* Selasa, 3 September 2013 3:03
*Judul:* Re: [belajar-excel] kembali : kirim data ke UserForm yang lain
itu maksudnya mau ngapain ya ?
Pada kode
* NitipVal2 = ListBox1.List(ListBox1.ListIndex, 5)**
*
Maksudnya adalah menyimpan isi Listnya ListBox1 pada urutan yang
diklik (listbox1.listindex) pada kolom ke 5 ke variabel NitipVal2
Kenapa kok Error ?
Coba dicek dulu, si listbox1 ini isinya merujuk kemana ? RowSource nya !
Setelah ketemu, coba di cek Di RowSource rujukan itu, ada berapa kolom
kah dia ? adakah kolom ke-5 nya ?
Setelah ketemu, nanti kasih tau lagi disini ya !
Rgds,
[dp]
Pada 02/09/2013 14:25, Kusnadi Bin zain menulis:
Dear para pakar Exeller
Maaf..... mohon pencerahannya kembali tentang userform yg datanya
dikirimkan ke userform lain
ini saya coba tambhakn kok malah eror,,,,,
pastinya ada yang salah, tapi saya gak bisa mendeteksinya
mohon bantuuannya sobat2
terima kasih
kusnadiZain
