Trimakasih mas Kid, codingnya udah bener dan berjalan dengan baik.
Semua kode sekarang saya ganti dengan singkatan2 biar ga lupa,
kalo kode dengan nomer urut pasti bingung.
Trimakasih sekali lagi mas Kid
Wassalam,
________________________________
From: Mr. Kid <mr.nm...@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Wednesday, April 17, 2013 1:41 PM
Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
1. Ganti IsNumeric(sTeks)
dengan LenB(sTeks)<>0
2. tambah deklarasi variabel berupa
sKode as string
3. ganti lItem = CLng(sTeks)
dengan skode=steks
4. ganti semua litem dengan skode pada baris-baris :
sTeks = .VLookup(lItem, Database.Range("a1").CurrentRegion, 2, 0)
dan
sTeks = .VLookup(lItem, Database.Range("a1").
CurrentRegion, 3, 0)
Wassalam,
Kid.
2013/4/17 lapendosol opik <lapendo...@yahoo.com>
>
>Terimakasih mas Kid atas kesediaannya membantu saya
>
>Private Sub txtKodeBarangJ_Change()
> Dim sTeks As String
> Dim lItem As Long
>
> sTeks = txtKodeBarangJ.Text
> If IsNumeric(sTeks) Then
> With Application.WorksheetFunction
> lItem = .CountIf(Database.Range("a1").CurrentRegion.Resize(, 1),
>CLng(sTeks))
> If lItem <> 0 Then
> lItem =
CLng(sTeks)
> sTeks = .VLookup(lItem, Database.Range("a1").CurrentRegion, 2,
>0)
> cmbKategoriJ.Text = sTeks
> sTeks = .VLookup(lItem, Database.Range("a1").CurrentRegion, 3,
>0)
> cmbNamaBarangJ.Text = sTeks
> txtKodeBarangJ.SetFocus
> Else
> cmbKategoriJ.Text =
vbNullString
> cmbNamaBarangJ.Text = vbNullString
> cmbNamaBarangJ.Clear
> End If
> End With
> End If
>End Sub
>
>
>Saya punya inisiatif tentang kode barang dengan membuat kode unik, misal nama
>barang Air Aki Merah, maka kodenya saya beri AAM001. Saya coba ubah dan
>jalankan form, ketika saya tekan huruf A, scriptnya ga jalan mas. Kendalanya
>ada di If IsNumeric(sTeks) Then
>Mohon bantuannya sekali lagi hehehe
>Terimakasih sebelumnya
>Wassalam,
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nm...@gmail.com>
>To: BeExcel <belajar-excel@yahoogroups.com>
>Sent: Wednesday, April 17, 2013 12:58 PM
>
>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>
>
>
>
>File terlampir.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/4/16 lapendosol opik <lapendo...@yahoo.com>
>
>
>>
>>Maaf mas minta pengarahannya lagi
>>Sekarang saya pengen validasi datanya berdasarkan Kode Barang
>>(txtKodeBarangJ.Text), jika kodenya cocok dengan sheet database range A2:A
>>maka List nama barang (cmbNamaBarangJ.ListIndex) nya terisi sesuai kode
>>barang. Nama Barang ada di kolom 3 (C:C), Kode Barang ada di kolom 1 (A:A).
>>Saya sudah coba dengan txtKodeBarangJ_Change() tapi selalu error, maka saya
>>buat tombol buat ngecek txtKodeBarangJ nya
>>
>>Private Sub cmdCek_Click()
>>If LenB(txtKodeBarangJ.Text) = "" Then
>>MsgBox "Kode tidak cocok"
>>Else
>>cmbNamaBarangJ.ListIndex = Tbl(txtKodeBarangJ.Text + 1, 3)
>>End If
>>End Sub
>>
>>
>>
>>Mohon sedianya untuk mengoreksi kembali
>>Sebelumnya saya ucapkan terimakasih sebanyak-banyaknya
>>Wassalam,
>>
>>
>>
>>
>>________________________________
>> From: lapendosol opik <lapendo...@yahoo.com>
>>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>Sent: Monday, April 15, 2013 10:14 PM
>>
>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>
>>
>>
>>
>>Iya seperti ini mas Kid,
>>Trimakasih banyak mas, saya kembangkan ke command2 yang lain dulu
>>Wassalam,
>>
>>
>>
>>
>>
>>
>>________________________________
>> From: Mr. Kid <mr.nm...@gmail.com>
>>To: BeExcel <belajar-excel@yahoogroups.com>
>>Sent: Monday, April 15, 2013 9:50 PM
>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>
>>
>>
>>
>>Combobox bertingkat ya.
>>
>>File terlampir.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/4/15 lapendosol opik <lapendo...@yahoo.com>
>>
>>
>>>
>>>Apa harus di set dulu mas?
>>>Set Tbl = Tbl.Cells(2, 1)
>>> If cmbNamaBarangJ.ListIndex <> -1 Then
>>> txtKodeBarangJ.Text = Tbl(cmbNamaBarangJ.ListIndex + 1, 1).Value
>>>Tapi hasilnya makin ancur mas Kid
>>>1. Tbl saya merujuk ke range A2:C
>>>2. Tblnya mengambil range C2:C
>>>3.
>>>4. Yang mau di ambil kolom 1 (A2:A)
>>>Mohon pengarahannya mas
>>>Wassalam,
>>>
>>>
>>>
>>>
>>>
>>>
>>>________________________________
>>> From: Mr. Kid <mr.nm...@gmail.com>
>>>To: BeExcel <belajar-excel@yahoogroups.com>
>>>Sent: Monday, April 15, 2013 9:01 PM
>>>
>>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>>
>>>
>>>
>>>
>>>txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , 1 ).value
>>>
>>>misal
>>>1. range data di AA101:ZZ500 disimpan dalam variabel bernama Tbl
>>>
>>>Tbl.cells( nomor record dalam Tbl , nomor kolom dalam Tbl ).value
>>>
>>>bisa ditulis :
>>>
>>>Tbl( nomor record dalam Tbl , nomor kolom dalam Tbl ).value
>>>
>>>
>>>2. Kalau mau ambil data di AZ200
>>>
>>>berarti :
>>>
>>>3. nomor record dalam Tbl berisi 100 karena 200 dari 101
>>>
>>>4. nomor kolom dalam Tbl berisi 26 karena AZ
>>>Tbl( 100 , 26 ).value
>>>
>>>
>>>
>>>Untuk Anda :
>>>1. Tbl Anda merujuk ke range mana ?
>>>2. Anda mau ambil range apa dalam Tbl ?
>>>3. yang jelas nomor barisnya dalam Tbl adalah cmbnamabarangJ.listindex + 1
>>>4. Anda mau ambil kolom ke berapa ?
>>>
>>>
>>>
>>>
>>>Wassalam,
>>>
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>2013/4/15 lapendosol opik <lapendo...@yahoo.com>
>>>
>>>
>>>>
>>>>Trimakasih mas Kid,
>>>>
>>>> txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , 1 ).value
>>>>
>>>>Pas cmbKategoriJ dipilih bari ke-2 atau lebih, cmbNamaBarangJ dipilih
>>>>ke-sekian, txtKodeBarangJ nya tetap mengacu ke listindex cmbNamaBarangJ ya
>>>>mas, bukan nomer/kode yang ada di range A dst. Misal Kategori pilih Ban
>>>>Dalam (listindex kategori ke 2), cmbNamaBarangJ pilih Ban Dalam Swallow 275
>>>>x 14 (listindex namabarang ke 7), maka txtKodeBarang hasilnya 7. Kalo
>>>>referensinya dari cell A, harusnya kode 11 mas
>>>>Sudah saya coba ganti jadi:
>>>>.Column
>>>>.Row
>>>>.ListRows
>>>>tapi tetep gagal mas
>>>>Trimakasih
>>>>Wassalam,
>>>>
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: Mr. Kid <mr.nm...@gmail.com>
>>>>To: BeExcel <belajar-excel@yahoogroups.com>
>>>>Sent: Monday, April 15, 2013 8:27 PM
>>>>
>>>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>>>
>>>>
>>>>
>>>>
>>>>Private Sub cmbNamaBarangJ_Change()
>>>>
>>>> if cmbnamabarangJ.listindex<>-1 then
>>>> txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , 1 ).value
>>>>
>>>> endif
>>>>
>>>>End Sub
>>>>
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>2013/4/15 lapendosol opik <lapendo...@yahoo.com>
>>>>
>>>>
>>>>>
>>>>>Private Sub cmbNamaBarangJ_Change()
>>>>> With txtKodeBarangJ
>>>>>
>>>>> sUniq = "|"
>>>>> For i = 1 To tRows
>>>>> If Tbl(i, 3) = cmbNamaBarangJ.Value Then
>>>>> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>>>>>
>>>>> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|") = 0 Then
>>>>> sUniq = sUniq & Tbl(i, 1) & "|"
>>>>> .Text Tbl(i, 1)
>>>>> End
If
>>>>> End If
>>>>> Next
>>>>> .SetFocus
>>>>> If .ListCount = 1 Then .ListIndex = 0
>>>>> End With
>>>>>End Sub
>>>>>
>>>>>
>>>>>Yang saya harapkan setelah memilih cmbNamaBarangJ, maka txtKodeBarangJ
>>>>>terisi otomatis sesuai barang yang ada dari kolom A
>>>>>
>>>>>Tapi error, .Text Tbl(i, 1)
>>>>>Mohon bantuannya mas Kid
>>>>>Trimakasih sebelumnya
>>>>>Wassalam,
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>________________________________
>>>>> From: lapendosol opik <lapendo...@yahoo.com>
>>>>>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>>>>Sent: Monday, April 15, 2013 8:02 PM
>>>>>
>>>>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Trimakasih mas Kid tanggapannya :'(
>>>>>Udah diperbaiki sama cmbNamaBarangJ nya juga udah
>>>>>Lagi dicoba utak atik txtKode nya dengan cara yang sama, mungkin bisa kali
>>>>>ya
>>>>>Trimakasih sekali lagi mas Kid
>>>>>Wassalam,
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>________________________________
>>>>> From: Mr. Kid <mr.nm...@gmail.com>
>>>>>To: BeExcel <belajar-excel@yahoogroups.com>
>>>>>Sent: Monday, April 15, 2013 7:53 PM
>>>>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>Bagian script yang berbunyi :
>>>>>Tbl(i, 1)
>>>>>artinya dari dalam variabel range bernama Tbl, diambil cell baris ke-i dan
>>>>>pada kolom ke-1.
>>>>>Jika Tbl berisi data dari kolom A, maka angka 1 akan menunjukkan kolom A.
>>>>>Ganti angka 1 dengan yang dibutuhkan.
>>>>>
>>>>>Wassalam,
>>>>>Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>2013/4/15 lapendosol opik <lapendo...@yahoo.com>
>>>>>
>>>>>
>>>>>>
>>>>>>Dear master Excel
>>>>>>Saya ada kendala dalam validasi dengan combobox pada file excel yang saya
>>>>>>buat
>>>>>>Setelah sekian kali mencari file di milis ini tentang validasi combobox,
>>>>>>akhirnya ketemu file warisan dari Alm SitiVi (ctv_Validasi dgn
>>>>>>ComboBox.xlsm)
>>>>>>
>>>>>>Saya sudah coba masukkan ilmu dari Alm sitiVi, tapi yang muncul tidak
>>>>>>seperti yang diharapkan
>>>>>>Private Sub UserForm_Initialize()
>>>>>> ' mengenali tabel referensi
>>>>>> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
>>>>>> tRows = Tbl.Rows.Count - 1
>>>>>>
>>>>>> ' mengisi list pada KomboKategoriJ
>>>>>> sUniq = "|"
>>>>>> For i = 1 To tRows
>>>>>> ' mengambil UniqValues -nya, dgn cara primitif..
>>>>>> If InStr(1, sUniq,
"|" & Tbl(i, 1) & "|") = 0 Then
>>>>>> sUniq = sUniq & Tbl(i, 1) & "|"
>>>>>> cmbKategoriJ.AddItem Tbl(i, 1)
>>>>>> End If
>>>>>> Next i
>>>>>> txtPelanggan.SetFocus
>>>>>>End Sub
>>>>>>
>>>>>>
>>>>>>Yang saya harapkan setelah Form muncul, akan me-load list cmbKategoriJ
>>>>>>dengan list kategori yang ada di sheet database range B2 kebawah, tapi
>>>>>>yang muncul malah nomer urut (kode) di A2 kebawah. Setelah pilih salah
>>>>>>satu komboKategoriJ, akan muncul list nama barang di cmbNamaBarangJ
>>>>>>Karena kurang pandai dalam menjabarkan masalah ke kalimat, lebih jelasnya
>>>>>>lihat attachment,
>>>>>>Sebelumnya saya ucapkan banyak terimakasih
>>>>>>
>>>>>>
>>>>>>Wassalam,
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
