:D
Sebenernya caranya sudah bener, cuman ada yang ketinggalan dikit, coba
dicek variable NitipVal2 nya, apakah sudah dideklarasikan secara global
sehingga bisa diambil dari mana aja ?
Kalau sudah ketemu dan sudah di declare, silahkan dicoba lagi kodenya
Berikut potongan kode buat bukaform sebagai referensi, tapi jangan
dilihat dulu, coba saja yang sudah ada, kalau mentok baru liat contekan
dibawah :D tetapi tetap si variable NitipVal2 musti kudu harus di
declare di global / public scope
Function BukaKode()
UserForm4.Show
SendKeys "{TAB}"
DoEvents
Frame2.ActiveControl = NitipVal
SendKeys "{TAB}{TAB}{TAB}" 'Pencet TAB 3 x
DoEvents
Frame2.ActiveControl = NitipVal2
SendKeys "+{TAB}+{TAB}" 'Pencet Shift + TAB 2x
DoEvents
End Function
On 04-09-2013 14:38, Kusnadi Bin zain wrote:
membaca pejelasan gamblang De Premor, sepertinya dengan mudahnya saya
bisa mengeditnya
tapi setelah dipraktekan, tetap aja Si JENIS ini dengan bandelnya gak
mau muncul2 ditempat yg telah disediakan
dengan pengetahuan programer yg amt minim saya coba acak2 dengan
berbagai cara saya, tapi tetap tak ditemukn penyebabya..... capedeh
kepalang tanggung.... malu bertanya kerja manual ( kata bang Abi, grup
tetangga sebelah ) saya nyerah, tolong ditunjukin saja dimana sih si
JENIS ini mendelik ( sembunyi )....
regards
kbz
------------------------------------------------------------------------
*Dari:* De Premor <[email protected]>
*Kepada:* [email protected]
*Dikirim:* Selasa, 3 September 2013 16:20
*Judul:* Re: Bls: [belajar-excel] kembali : kirim data ke UserForm
yang lain
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]> <mailto:[email protected]>
*Kepada:* [email protected]
<mailto:[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
