15 New Messages
Digest #2238
Messages
Mon Apr 15, 2013 5:49 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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,
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("
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) & "|"
sUniq = sUniq & Tbl(i, 1) & "|"
cmbKategoriJ.
End If
Next i
txtPelanggan.
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,
Mon Apr 15, 2013 5:54 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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.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,
>
>
>
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.
> **
>
>
> 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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
> 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,
>
>
>
Mon Apr 15, 2013 6:02 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
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.
To: BeExcel <belajar-excel@
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.
>
>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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
>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,
Mon Apr 15, 2013 6:13 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
With txtKodeBarangJ
sUniq = "|"
For i = 1 To tRows
If Tbl(i, 3) = cmbNamaBarangJ.
' TextKodeBarangJ hanya diisi dgn data Uniq saja
If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
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.
To: "belajar-excel@
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.
To: BeExcel <belajar-excel@
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.
>
>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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
>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,
Mon Apr 15, 2013 6:27 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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.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,
>
>
>
>
>
>
>
>
if cmbnamabarangJ.
txtKodeBarangJ.
endif
End Sub
Wassalam,
Kid.
2013/4/15 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Private Sub cmbNamaBarangJ_
> With txtKodeBarangJ
>
> sUniq = "|"
> For i = 1 To tRows
> If Tbl(i, 3) = cmbNamaBarangJ.
> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>
> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
> 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.
> *To:* "belajar-excel@
> *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.
> *To:* BeExcel <belajar-excel@
> *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.
>
> **
>
> 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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
> 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,
>
>
>
>
>
>
>
>
Mon Apr 15, 2013 6:53 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
>
>
>
>
>
txtKodeBarangJ.
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.
To: BeExcel <belajar-excel@
Sent: Monday, April 15, 2013 8:27 PM
Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
Private Sub cmbNamaBarangJ_
if cmbnamabarangJ.
txtKodeBarangJ.
endif
End Sub
Wassalam,
Kid.
2013/4/15 lapendosol opik <lapendosol@yahoo.
>
>Private Sub cmbNamaBarangJ_
> With txtKodeBarangJ
>
> sUniq = "|"
> For i = 1 To tRows
> If Tbl(i, 3) = cmbNamaBarangJ.
> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>
> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
> 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.
>To: "belajar-excel@
>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.
>To: BeExcel <belajar-excel@
>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.
>
>
>>
>>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("
>> 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) & "|"
>> sUniq = sUniq & Tbl(i, 1) & "|"
>> cmbKategoriJ.
>> End If
>> Next i
>> txtPelanggan.
>>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,
>
>
>
>
>
Mon Apr 15, 2013 7:02 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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.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,
>
>
>
>
>
>
>
>
>
>
>
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.
4. Anda mau ambil kolom ke berapa ?
Wassalam,
Kid.
2013/4/15 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih mas Kid,
>
> txtKodeBarangJ.
>
> 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.
> *To:* BeExcel <belajar-excel@
> *Sent:* Monday, April 15, 2013 8:27 PM
>
> *Subject:* Re: [belajar-excel] UserForm_Initialize validasi dengan
> combobox
>
>
> Private Sub cmbNamaBarangJ_
> if cmbnamabarangJ.
> txtKodeBarangJ.
> endif
> End Sub
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/15 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Private Sub cmbNamaBarangJ_
> With txtKodeBarangJ
>
> sUniq = "|"
> For i = 1 To tRows
> If Tbl(i, 3) = cmbNamaBarangJ.
> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>
> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
> 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.
> *To:* "belajar-excel@
> *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.
> *To:* BeExcel <belajar-excel@
> *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.
>
> **
>
> 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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
> 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,
>
>
>
>
>
>
>
>
>
>
>
Mon Apr 15, 2013 7:29 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
>>
>>
>>
>>
>>
>
>
>
Set Tbl = Tbl.Cells(2, 1)
If cmbNamaBarangJ.
txtKodeBarangJ.
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.
To: BeExcel <belajar-excel@
Sent: Monday, April 15, 2013 9:01 PM
Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
txtKodeBarangJ.
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.
4. Anda mau ambil kolom ke berapa ?
Wassalam,
Kid.
2013/4/15 lapendosol opik <lapendosol@yahoo.
>
>Trimakasih mas Kid,
>
> txtKodeBarangJ.
>
>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.
>To: BeExcel <belajar-excel@
>Sent: Monday, April 15, 2013 8:27 PM
>
>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>
>
>
>
>Private Sub cmbNamaBarangJ_
>
> if cmbnamabarangJ.
> txtKodeBarangJ.
>
> endif
>
>End Sub
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/4/15 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Private Sub cmbNamaBarangJ_
>> With txtKodeBarangJ
>>
>> sUniq = "|"
>> For i = 1 To tRows
>> If Tbl(i, 3) = cmbNamaBarangJ.
>> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>>
>> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
>> 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.
>>To: "belajar-excel@
>>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.
>>To: BeExcel <belajar-excel@
>>Sent: Monday, April 15, 2013 7:53 PM
>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>
>>
>>
>>
>>Bagian script yang berbunyi :
>>Tbl(
>>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/
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> ' mengenali tabel referensi
>>> Set Tbl = Sheets("
>>> 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) & "|"
>>> sUniq = sUniq & Tbl(i, 1) & "|"
>>> cmbKategoriJ.
>>> End If
>>> Next i
>>> txtPelanggan.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
Mon Apr 15, 2013 7:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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.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,
>
>
>
>
>
>
>
>
>
>
>
>
>
>
File terlampir.
Wassalam,
Kid.
2013/4/15 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Apa harus di set dulu mas?
> Set Tbl = Tbl.Cells(2, 1)
> If cmbNamaBarangJ.
> txtKodeBarangJ.
> 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.
> *To:* BeExcel <belajar-excel@
> *Sent:* Monday, April 15, 2013 9:01 PM
>
> *Subject:* Re: [belajar-excel] UserForm_Initialize validasi dengan
> combobox
>
>
> txtKodeBarangJ.
>
> 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.
> 4. Anda mau ambil kolom ke berapa ?
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/4/15 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Trimakasih mas Kid,
>
> txtKodeBarangJ.
>
> 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.
> *To:* BeExcel <belajar-excel@
> *Sent:* Monday, April 15, 2013 8:27 PM
>
> *Subject:* Re: [belajar-excel] UserForm_Initialize validasi dengan
> combobox
>
>
> Private Sub cmbNamaBarangJ_
> if cmbnamabarangJ.
> txtKodeBarangJ.
> endif
> End Sub
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/15 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Private Sub cmbNamaBarangJ_
> With txtKodeBarangJ
>
> sUniq = "|"
> For i = 1 To tRows
> If Tbl(i, 3) = cmbNamaBarangJ.
> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>
> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
> 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.
> *To:* "belajar-excel@
> *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.
> *To:* BeExcel <belajar-excel@
> *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.
>
> **
>
> 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("
> 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) & "|"
> sUniq = sUniq & Tbl(i, 1) & "|"
> cmbKategoriJ.
> End If
> Next i
> txtPelanggan.
> 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,
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Mon Apr 15, 2013 8:15 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
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/4/15 lapendosol opik <lapendosol@yahoo.
>
>Apa harus di set dulu mas?
>Set Tbl = Tbl.Cells(2, 1)
> If cmbNamaBarangJ.
> txtKodeBarangJ.
>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.
>To: BeExcel <belajar-excel@
>Sent: Monday, April 15, 2013 9:01 PM
>
>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>
>
>
>
>txtKodeBarangJ.
>
>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.
>4. Anda mau ambil kolom ke berapa ?
>
>
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>2013/4/15 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Trimakasih mas Kid,
>>
>> txtKodeBarangJ.
>>
>>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.
>>To: BeExcel <belajar-excel@
>>Sent: Monday, April 15, 2013 8:27 PM
>>
>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>
>>
>>
>>
>>Private Sub cmbNamaBarangJ_
>>
>> if cmbnamabarangJ.
>> txtKodeBarangJ.
>>
>> endif
>>
>>End Sub
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/
>>
>>
>>>
>>>
>>> With txtKodeBarangJ
>>>
>>> sUniq = "|"
>>> For i = 1 To tRows
>>> If Tbl(i, 3) = cmbNamaBarangJ.
>>> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>>>
>>> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
>>> sUniq = sUniq & Tbl(i, 1) & "|"
>>> .Text Tbl(i, 1)
>>> End
If
>>> End If
>>> Next
>>> .SetFocus
>>> If .ListCount = 1 Then .ListIndex = 0
>>> End With
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: lapendosol opik <lapendosol@yahoo.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
"|" & Tbl(i, 1) & "|"
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Mon Apr 15, 2013 10:22 am (PDT) . Posted by:
"lapendosol opik" lapendosol
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.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,
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Sekarang saya pengen validasi datanya berdasarkan Kode Barang (txtKodeBarangJ.
Private Sub cmdCek_Click(
If LenB(txtKodeBarangJ
MsgBox "Kode tidak cocok"
Else
cmbNamaBarangJ.
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/4/15 lapendosol opik <lapendosol@yahoo.
>
>Apa harus di set dulu mas?
>Set Tbl = Tbl.Cells(2, 1)
> If cmbNamaBarangJ.
> txtKodeBarangJ.
>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.
>To: BeExcel <belajar-excel@
>Sent: Monday, April 15, 2013 9:01 PM
>
>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>
>
>
>
>txtKodeBarangJ.
>
>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.
>4. Anda mau ambil kolom ke berapa ?
>
>
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>2013/4/15 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Trimakasih mas Kid,
>>
>> txtKodeBarangJ.
>>
>>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.
>>To: BeExcel <belajar-excel@
>>Sent: Monday, April 15, 2013 8:27 PM
>>
>>Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
>>
>>
>>
>>
>>Private Sub cmbNamaBarangJ_
>>
>> if cmbnamabarangJ.
>> txtKodeBarangJ.
>>
>> endif
>>
>>End Sub
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/
>>
>>
>>>
>>>
>>> With txtKodeBarangJ
>>>
>>> sUniq = "|"
>>> For i = 1 To tRows
>>> If Tbl(i, 3) = cmbNamaBarangJ.
>>> ' TextKodeBarangJ hanya diisi dgn data Uniq saja
>>>
>>> If InStr(1, sUniq, "|" & Tbl(i, 1) & "|"
>>> sUniq = sUniq & Tbl(i, 1) & "|"
>>> .Text Tbl(i, 1)
>>> End
If
>>> End If
>>> Next
>>> .SetFocus
>>> If .ListCount = 1 Then .ListIndex = 0
>>> End With
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: lapendosol opik <lapendosol@yahoo.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Mr. Kid <mr.nmkid@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
"|" & Tbl(i, 1) & "|"
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Mon Apr 15, 2013 5:55 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir mencoba memanfaatkan pivot table beserta range berformula
dibantu sebuah kolom helper.
Wassalam,
Kid.
2013/4/15 Paulus Taripar <paulustaripar@rocketmail.com >
> **
>
>
> selamat sore be exceller..saya mau tanya didalam tabel ini ada saya
> masukkan "NAMA BUAH yg DIBELI" u/ kolom H4. trus yg ingin saya tanyakan.,
>
> Misal JOJO -> buah apa saja yg dibeli oleh JOJO? Nah, nantinya jenis
> buah2an apa saja yang dibeli oleh JOJO itu akan muncul di kolom "NAMA BUAH
> yg DIBELI". Kira2 bentuk fungsi seperti apa yg digunakan? Terima kasih.
>
> >> file terlampir <<
>
>
>
dibantu sebuah kolom helper.
Wassalam,
Kid.
2013/4/15 Paulus Taripar <paulustaripar@
> **
>
>
> selamat sore be exceller..saya mau tanya didalam tabel ini ada saya
> masukkan "NAMA BUAH yg DIBELI" u/ kolom H4. trus yg ingin saya tanyakan.,
>
> Misal JOJO -> buah apa saja yg dibeli oleh JOJO? Nah, nantinya jenis
> buah2an apa saja yang dibeli oleh JOJO itu akan muncul di kolom "NAMA BUAH
> yg DIBELI"
>
> >> file terlampir <<
>
>
>
Mon Apr 15, 2013 6:23 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Maksudnya mungkin weeknum dimulai tergantung tanggal end week nya. Week
yang dimulai tanggal 2012-12-30 akan memiliki end week (hari ketujuh week
tersebut) pada 6 hari setelah tanggal 2012-12-30 yang menjadikan nomor week
berarti sudah masuk ke nomor 1 lagi.
Misal : a2 adalah tanggal mulai week, pada cell hasil :
=WeekNum(a2+6,2)
Wassalam,
Kid.
2013/4/15 Rusdiyanto, Nicodemus <NicodemusRusdiyanto@tupperware.com >
> Dear Suhu,****
>
> ** **
>
> Mohon pencerahannya****
>
> Di kantor, pembagian weeknum tidak sesuai dengan ada yang di tanggalan dan
> formula WEEKNUM-nya excel, karena hanya ada 52 minggu.****
>
> Seperti di data yang saya kirimkan tgl 30 Desember 2012 bukan dianggap
> sebagai week 52 atau week 53 malah week 1 tahun 2013.****
>
> Saya sudah sertakan tanggal awal dan akhir untuk masing2 week.****
>
> Tapi kalau memang tidak perlu menggunakan acuan tersebut sehingga tidak
> perlu lookup akan lebih baik.****
>
> ** **
>
> Thanks in advance,****
>
> Nico****
>
> ** **
>
yang dimulai tanggal 2012-12-30 akan memiliki end week (hari ketujuh week
tersebut) pada 6 hari setelah tanggal 2012-12-30 yang menjadikan nomor week
berarti sudah masuk ke nomor 1 lagi.
Misal : a2 adalah tanggal mulai week, pada cell hasil :
=WeekNum(a2+
Wassalam,
Kid.
2013/4/15 Rusdiyanto, Nicodemus <NicodemusRusdiyanto
> Dear Suhu,****
>
> ** **
>
> Mohon pencerahannya*
>
> Di kantor, pembagian weeknum tidak sesuai dengan ada yang di tanggalan dan
> formula WEEKNUM-nya excel, karena hanya ada 52 minggu.****
>
> Seperti di data yang saya kirimkan tgl 30 Desember 2012 bukan dianggap
> sebagai week 52 atau week 53 malah week 1 tahun 2013.****
>
> Saya sudah sertakan tanggal awal dan akhir untuk masing2 week.****
>
> Tapi kalau memang tidak perlu menggunakan acuan tersebut sehingga tidak
> perlu lookup akan lebih baik.****
>
> ** **
>
> Thanks in advance,****
>
> Nico****
>
> ** **
>
Mon Apr 15, 2013 7:10 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
coba gunakan formula
=TRUNC((A2-$A$2)/7)+1
copy ke bawah
dimana cell A2 adalah berisi tanggal pertama dimulainya awal minggu
wassalam
Ghozi Alkatiri
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: BeExcel <belajar-excel@yahoogroups.com >
Dikirim: Senin, 15 April 2013 20:23
Judul: Re: [belajar-excel] Formula Range Tanggal
Maksudnya mungkin weeknum dimulai tergantung tanggal end week nya. Week yang dimulai tanggal 2012-12-30 akan memiliki end week (hari ketujuh week tersebut) pada 6 hari setelah tanggal 2012-12-30 yang menjadikan nomor week berarti sudah masuk ke nomor 1 lagi.
Misal : a2 adalah tanggal mulai week, pada cell hasil :
=WeekNum(a2+6,2)
Wassalam,
Kid.
2013/4/15 Rusdiyanto, Nicodemus <NicodemusRusdiyanto@tupperware.com >
Dear Suhu,
>
>Mohon pencerahannya
>Di kantor, pembagian weeknum tidak sesuai dengan ada yang di tanggalan dan formula WEEKNUM-nya excel, karena hanya ada 52 minggu.
>Seperti di data yang saya kirimkan tgl 30 Desember 2012 bukan dianggap sebagai week 52 atau week 53 malah week 1 tahun 2013.
>Saya sudah sertakan tanggal awal dan akhir untuk masing2 week.
>Tapi kalau memang tidak perlu menggunakan acuan tersebut sehingga tidak perlu lookup akan lebih baik.
>
>Thanks in advance,
>Nico
>
=TRUNC((A2-$
copy ke bawah
dimana cell A2 adalah berisi tanggal pertama dimulainya awal minggu
wassalam
Ghozi Alkatiri
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Senin, 15 April 2013 20:23
Judul: Re: [belajar-excel] Formula Range Tanggal
Maksudnya mungkin weeknum dimulai tergantung tanggal end week nya. Week yang dimulai tanggal 2012-12-30 akan memiliki end week (hari ketujuh week tersebut) pada 6 hari setelah tanggal 2012-12-30 yang menjadikan nomor week berarti sudah masuk ke nomor 1 lagi.
Misal : a2 adalah tanggal mulai week, pada cell hasil :
=WeekNum(a2+
Wassalam,
Kid.
2013/4/15 Rusdiyanto, Nicodemus <NicodemusRusdiyanto
Dear Suhu,
>
>Mohon pencerahannya
>Di kantor, pembagian weeknum tidak sesuai dengan ada yang di tanggalan dan formula WEEKNUM-nya excel, karena hanya ada 52 minggu.
>Seperti di data yang saya kirimkan tgl 30 Desember 2012 bukan dianggap sebagai week 52 atau week 53 malah week 1 tahun 2013.
>Saya sudah sertakan tanggal awal dan akhir untuk masing2 week.
>Tapi kalau memang tidak perlu menggunakan acuan tersebut sehingga tidak perlu lookup akan lebih baik.
>
>Thanks in advance,
>Nico
>
Mon Apr 15, 2013 9:53 pm (PDT) . Posted by:
"Rahagung Dananjoyo" danank_01
Kepada Para Master Excel
Sebelumnya saya ucapkan terima kasih atas segala ilmu dan manfaat yang saya dapat dari milis ini. berikut ini saya ingin sharing dan ingin mendapat saran dari rekan-rekan semua
Ada 2 sheet dalam file terlampir, sheet "DATA" dan sheet "TABEL".
Sheet "DATA" merupakan sheet yang akan digunakan dalam mencari data yang merujuk pada sheet "TABEL"
Sheet "TABEL"berisi data yang lengkap dan mempunyai fungsi seperti database
Harapannya adalah :
Ketika diketikkan angka di kolom yang berwarna kuning pada sheet "DATA" maka kolom lain yang berwarna hijau akan "otomatis"; terisi data yang merujuk data dari sheet "TABEL", tentunya tetap sesuai dengan judul kolomnya, misal KEBUN dan KATEGORI
Mohon saran dan pencerahan
Terima kasih
Sebelumnya saya ucapkan terima kasih atas segala ilmu dan manfaat yang saya dapat dari milis ini. berikut ini saya ingin sharing dan ingin mendapat saran dari rekan-rekan semua
Ada 2 sheet dalam file terlampir, sheet "DATA" dan sheet "TABEL"
Sheet "DATA" merupakan sheet yang akan digunakan dalam mencari data yang merujuk pada sheet "TABEL"
Sheet "TABEL"
Harapannya adalah :
Ketika diketikkan angka di kolom yang berwarna kuning pada sheet "DATA" maka kolom lain yang berwarna hijau akan "otomatis"
Mohon saran dan pencerahan
Terima kasih
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar