15 New Messages
Digest #2242
3a
Formula untuk menemukan hasil pada data baris dan kolom by "agussantosardiansyah" agussantosardiansyah
5a
Bls: [belajar-excel] Mencari list barang yg sudah dibeli oleh pelang by "Paulus Taripar" paulustaripar@rocketmail.com
6e
Bls: [belajar-excel] Memasukkan Data Sheet 2 Ke Sheet 1 Jika.. by "Murni Always" murnialways_smile
Messages
Wed Apr 17, 2013 12:34 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup ada bug untuk Excel 2007 yang belum di-update dengan SP
Wassalam,
Kid.
2013/4/17 Jan Raisin <miss.jan.raisin@gmail.com >
> **
>
>
> terima kasih mr Kid,
>
> jadi benar ya ada bug pada excel 2007 ?
> sampai pusing sendiri Jan jadinya xixixixi :D
>
> Wassalamu'alaikum wr. wb.,
>
> -MJR-
>
>
> Pada 17 April 2013 14.15, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> Pada Excel 2007 yang belum di-update (install SP, saat ini sampai SP3),
>> akan menghasilkan bug.
>> Coba diminta install SP. Download dari ms download :
>> http://www.microsoft.com/en-us/download/details.aspx?id=27838
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>> 2013/4/17 Jan Raisin <miss.jan.raisin@gmail.com >
>>
>>> **
>>>
>>>
>>> Assalamu'alaikum wr. wb.,
>>>
>>> tolong bantuan dari member milis ini terutama yang menggunakan excel
>>> 2007, Jan ingin memastikan apakah memang benar ada bug untuk fungsi DateDif
>>> pada excel versi 2007 pada kriteria MD.
>>>
>>> Saat ini Jan sudah tidak memiliki versi 2007, tetapi ada user (versi
>>> 2007) yang mengatakan bahwa file yang Jan kirim menghasilkan nilai yang
>>> salah, padahal Jan sudah pastikan tidak ada kesalahan yang dimaksud.
>>>
>>> Tolong bantu dicek untuk range yang diberi warna.
>>>
>>> Wassalam,
>>>
>>> -Miss Jan Raisin-
>>>
>>>
>>
>
>
Wassalam,
Kid.
2013/4/17 Jan Raisin <miss.jan.raisin@
> **
>
>
> terima kasih mr Kid,
>
> jadi benar ya ada bug pada excel 2007 ?
> sampai pusing sendiri Jan jadinya xixixixi :D
>
> Wassalamu'
>
> -MJR-
>
>
> Pada 17 April 2013 14.15, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Wa'alaikumussal
>>
>> Pada Excel 2007 yang belum di-update (install SP, saat ini sampai SP3),
>> akan menghasilkan bug.
>> Coba diminta install SP. Download dari ms download :
>> http://www.microsof
>>
>> Wassalamu'
>> Kid.
>>
>>
>>
>> 2013/4/17 Jan Raisin <miss.jan.raisin@
>>
>>> **
>>>
>>>
>>> Assalamu'
>>>
>>> tolong bantuan dari member milis ini terutama yang menggunakan excel
>>> 2007, Jan ingin memastikan apakah memang benar ada bug untuk fungsi DateDif
>>> pada excel versi 2007 pada kriteria MD.
>>>
>>> Saat ini Jan sudah tidak memiliki versi 2007, tetapi ada user (versi
>>> 2007) yang mengatakan bahwa file yang Jan kirim menghasilkan nilai yang
>>> salah, padahal Jan sudah pastikan tidak ada kesalahan yang dimaksud.
>>>
>>> Tolong bantu dicek untuk range yang diberi warna.
>>>
>>> Wassalam,
>>>
>>> -Miss Jan Raisin-
>>>
>>>
>>
>
>
Wed Apr 17, 2013 12:39 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak RHDS,
Yang dipassword adalah filenya, dan harus diinput ketika membuka workbook.
Bukan proteksi struktur dan window yang sering disebut protect workbook,
dan bukan juga proteksi worksheet.
Cara untuk memprotect file dokumen (workbook) :
1. lakukan Save As (ALT F A)
2. lihat tombol Tools atau sebangsanya -> pilih General options -> isi
password -> jangan centang read only blabla -> OK -> berinama file -> tekan
Save
3. pastikan salinan password beserta keterangan tentang dokumen yang
menggunakan password tersebut ditulis disuatu wadah dan disimpan secara
rahasia tapi tidak membuat Anda lupa.
***Note :
- password terhadap file dokumen ini akan relatif sulit di-crack. Hati-hati
dengan fitrah manusia yang mudah lupa.
- Pilih karakter-karakter password yang bervariasi (angka, tanda baca,
huruf kapital, huruf kecil)
Wassalam,
Kid.
2013/4/17 rh_suswanto <rh_suswanto@hotmail.com >
> **
>
>
> Dear be-exceler,
>
> Kalo saya punya suatu file excel yg bersifat sangat rahasia krn menyangkut
> formula dan asal usul barang, bagaimana caranya supaya orang yg tidak punya
> kewenangan tidak bisa meng-copy file tersebut dan dibuka komputer lainnya.
>
> Saya sudah memproteksi workbook dan worksheetnya file tersebut, tetapi
> beberapa tool recovery password masih dimungkinkan untuk crack password
> bersangkutan.
>
> Adakah cara lain dimungkinkan?
>
> Thank's a lot.
> RHDS
>
>
>
>
> "Ya, Allah, tambahlah ilmuku dan berilah aku pengertian dengan mudah"
>
>
>
Yang dipassword adalah filenya, dan harus diinput ketika membuka workbook.
Bukan proteksi struktur dan window yang sering disebut protect workbook,
dan bukan juga proteksi worksheet.
Cara untuk memprotect file dokumen (workbook) :
1. lakukan Save As (ALT F A)
2. lihat tombol Tools atau sebangsanya -> pilih General options -> isi
password -> jangan centang read only blabla -> OK -> berinama file -> tekan
Save
3. pastikan salinan password beserta keterangan tentang dokumen yang
menggunakan password tersebut ditulis disuatu wadah dan disimpan secara
rahasia tapi tidak membuat Anda lupa.
***Note :
- password terhadap file dokumen ini akan relatif sulit di-crack. Hati-hati
dengan fitrah manusia yang mudah lupa.
- Pilih karakter-karakter password yang bervariasi (angka, tanda baca,
huruf kapital, huruf kecil)
Wassalam,
Kid.
2013/4/17 rh_suswanto <rh_suswanto@
> **
>
>
> Dear be-exceler,
>
> Kalo saya punya suatu file excel yg bersifat sangat rahasia krn menyangkut
> formula dan asal usul barang, bagaimana caranya supaya orang yg tidak punya
> kewenangan tidak bisa meng-copy file tersebut dan dibuka komputer lainnya.
>
> Saya sudah memproteksi workbook dan worksheetnya file tersebut, tetapi
> beberapa tool recovery password masih dimungkinkan untuk crack password
> bersangkutan.
>
> Adakah cara lain dimungkinkan?
>
> Thank's a lot.
> RHDS
>
>
>
>
> "Ya, Allah, tambahlah ilmuku dan berilah aku pengertian dengan mudah"
>
>
>
Wed Apr 17, 2013 12:39 am (PDT) . Posted by:
"agussantosardiansyah" agussantosardiansyah
Dear all
Mohon bantuannya untuk sy yg masi awam
Mis: pada tabel
-2 -1 -0.5 0 0.5 1 2
100 55 50 45 0 -40 -45 -50
200 44 40 35 0 -30 -35 -40
300 33 30 25 0 -20 -25 -30
400 22 20 15 0 -10 -15 -20
500 11 10 5 0 -1 -5 -10
------------
1. Jika pada daftar kolom pertama yg akan dicari : 200
Jika pada daftar baris pertama yg akan dicari : 0.5
Maka hasilnya akan menunjukkan :
-30
2. Jika pada daftar kolom pertama data yg akan di cari : 250
Dan pada daftar baris yg akan dicari: 0.9
Mohon bantuannya dalam memasukkan rumus xl
Sebelum dan sesudah kuucapkan terima kasih
Sent from Samsung Mobile
Sent from Samsung Mobile
Wed Apr 17, 2013 12:43 am (PDT) . Posted by:
"Jan Raisin"
sebuah sample workbook akan memudahkan Be-Exceler memberikan solusi.
coba formula berikut:
=SumProduct( (range_kriteria_1 = kriteria_1) * (range_kriteria_2 =
kriteria_2) * range_hasil )
Wassalam,
-Miss Jan Raisin-
Pada 17 April 2013 14.38, agussantosardiansyah <
agussantosardiansyah@yahoo.com > menulis:
> **
>
>
>
> Dear all
>
> Mohon bantuannya untuk sy yg masi awam
> Mis: pada tabel
>
> -2 -1 -0.5 0 0.5 1 2
>
> 100 55 50 45 0 -40 -45 -50
> 200 44 40 35 0 -30 -35 -40
> 300 33 30 25 0 -20 -25 -30
> 400 22 20 15 0 -10 -15 -20
> 500 11 10 5 0 -1 -5 -10
> --------------------------------------
>
> 1. Jika pada daftar kolom pertama yg akan dicari : 200
> Jika pada daftar baris pertama yg akan dicari : 0.5
> Maka hasilnya akan menunjukkan :
> -30
>
> 2. Jika pada daftar kolom pertama data yg akan di cari : 250
> Dan pada daftar baris yg akan dicari: 0.9
>
> Mohon bantuannya dalam memasukkan rumus xl
>
> Sebelum dan sesudah kuucapkan terima kasih
> Sent from Samsung Mobile
>
> Sent from Samsung Mobile
>
>
>
coba formula berikut:
=SumProduct( (range_kriteria_
kriteria_2) * range_hasil )
Wassalam,
-Miss Jan Raisin-
Pada 17 April 2013 14.38, agussantosardiansya
agussantosardiansya
> **
>
>
>
> Dear all
>
> Mohon bantuannya untuk sy yg masi awam
> Mis: pada tabel
>
> -2 -1 -0.5 0 0.5 1 2
>
> 100 55 50 45 0 -40 -45 -50
> 200 44 40 35 0 -30 -35 -40
> 300 33 30 25 0 -20 -25 -30
> 400 22 20 15 0 -10 -15 -20
> 500 11 10 5 0 -1 -5 -10
> ------------
>
> 1. Jika pada daftar kolom pertama yg akan dicari : 200
> Jika pada daftar baris pertama yg akan dicari : 0.5
> Maka hasilnya akan menunjukkan :
> -30
>
> 2. Jika pada daftar kolom pertama data yg akan di cari : 250
> Dan pada daftar baris yg akan dicari: 0.9
>
> Mohon bantuannya dalam memasukkan rumus xl
>
> Sebelum dan sesudah kuucapkan terima kasih
> Sent from Samsung Mobile
>
> Sent from Samsung Mobile
>
>
>
Wed Apr 17, 2013 2:19 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir.
Wassalam,
Kid.
2013/4/17 agussantosardiansyah <agussantosardiansyah@yahoo.com >
> **
>
>
>
> Dear all
>
> Mohon bantuannya untuk sy yg masi awam
> Mis: pada tabel
>
> -2 -1 -0.5 0 0.5 1 2
>
> 100 55 50 45 0 -40 -45 -50
> 200 44 40 35 0 -30 -35 -40
> 300 33 30 25 0 -20 -25 -30
> 400 22 20 15 0 -10 -15 -20
> 500 11 10 5 0 -1 -5 -10
> --------------------------------------
>
> 1. Jika pada daftar kolom pertama yg akan dicari : 200
> Jika pada daftar baris pertama yg akan dicari : 0.5
> Maka hasilnya akan menunjukkan :
> -30
>
> 2. Jika pada daftar kolom pertama data yg akan di cari : 250
> Dan pada daftar baris yg akan dicari: 0.9
>
> Mohon bantuannya dalam memasukkan rumus xl
>
> Sebelum dan sesudah kuucapkan terima kasih
> Sent from Samsung Mobile
>
> Sent from Samsung Mobile
>
>
>
Wassalam,
Kid.
2013/4/17 agussantosardiansya
> **
>
>
>
> Dear all
>
> Mohon bantuannya untuk sy yg masi awam
> Mis: pada tabel
>
> -2 -1 -0.5 0 0.5 1 2
>
> 100 55 50 45 0 -40 -45 -50
> 200 44 40 35 0 -30 -35 -40
> 300 33 30 25 0 -20 -25 -30
> 400 22 20 15 0 -10 -15 -20
> 500 11 10 5 0 -1 -5 -10
> ------------
>
> 1. Jika pada daftar kolom pertama yg akan dicari : 200
> Jika pada daftar baris pertama yg akan dicari : 0.5
> Maka hasilnya akan menunjukkan :
> -30
>
> 2. Jika pada daftar kolom pertama data yg akan di cari : 250
> Dan pada daftar baris yg akan dicari: 0.9
>
> Mohon bantuannya dalam memasukkan rumus xl
>
> Sebelum dan sesudah kuucapkan terima kasih
> Sent from Samsung Mobile
>
> Sent from Samsung Mobile
>
>
>
Wed Apr 17, 2013 12:56 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.nmkid@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 <lapendosol@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.nmkid@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 <lapendosol@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 <lapendosol@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.nmkid@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 <lapendosol@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.nmkid@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 <lapendosol@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.nmkid@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 <lapendosol@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 <lapendosol@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.nmkid@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 <lapendosol@yahoo.
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.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Wednesday, April 17, 2013 1:41 PM
Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
1. Ganti IsNumeric(sTeks)
dengan LenB(sTeks)<
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(
dan
sTeks = .VLookup(lItem, Database.Range(
CurrentRegion, 3, 0)
Wassalam,
Kid.
2013/4/17 lapendosol opik <lapendosol@yahoo.
>
>Terimakasih mas Kid atas kesediaannya membantu saya
>
>Private Sub txtKodeBarangJ_
> Dim sTeks As String
> Dim lItem As Long
>
> sTeks = txtKodeBarangJ.
> If IsNumeric(sTeks) Then
> With Application.
> lItem = .CountIf(Database.
> If lItem <> 0 Then
> lItem =
CLng(sTeks)
> sTeks = .VLookup(lItem, Database.Range(
> cmbKategoriJ.
> sTeks = .VLookup(lItem, Database.Range(
> cmbNamaBarangJ.
> txtKodeBarangJ.
> Else
> cmbKategoriJ.
vbNullString
> cmbNamaBarangJ.
> cmbNamaBarangJ.
> 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.nmkid@gmail.
>To: BeExcel <belajar-excel@
>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 <lapendosol@yahoo.
>
>
>>
>>Maaf mas minta pengarahannya lagi
>>Sekarang saya pengen validasi datanya berdasarkan Kode Barang (txtKodeBarangJ.
>>
>>Private Sub cmdCek_Click(
>>If LenB(txtKodeBarangJ
>>MsgBox "Kode tidak cocok"
>>Else
>>cmbNamaBara
>>End If
>>End Sub
>>
>>
>>
>>Mohon sedianya untuk mengoreksi kembali
>>Sebelumnya saya ucapkan terimakasih sebanyak-banyaknya
>>Wassalam,
>>
>>
>>
>>
>>____
>> From: lapendosol opik <lapendosol@yahoo.
>>To: "belajar-excel@
>>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.nmkid@gmail.
>>To: BeExcel <belajar-excel@
>>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/
>>
>>
>>>
>>>
>>>
>>> If cmbNamaBarangJ.
>>> txtKodeBarangJ.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
If
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>