Rabu, 17 April 2013

[belajar-excel] Digest Number 2241

15 New Messages

Digest #2241
2a
Re: menjumlahkan data berdasarkan kode by "Mr. Kid" nmkid.family@ymail.com
3a
Re: UserForm_Initialize validasi dengan combobox by "Mr. Kid" nmkid.family@ymail.com
3b
3c
Re: UserForm_Initialize validasi dengan combobox by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Mencocokkan data pada userform by "Mr. Kid" nmkid.family@ymail.com
5a
5b
6a
Re: Advanced Filet + Pivot VBA by "Mr. Kid" nmkid.family@ymail.com
7b
Re: Bug Fungsi DateDif pada Excel 2007? by "Mr. Kid" nmkid.family@ymail.com
8
Block for copying by "rh_suswanto" rattip25

Messages

Tue Apr 16, 2013 10:09 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Assalamu'alaikum Wr. Wb.

Pak Ganjar,

dari bunyi :
"mengotomatiskan pengisian cell kolom H, berdasarkan salah satu kata dari
isi cell pada kolom D"
artinya, ada kata-kata tertentu di kolom D yang menjadi kunci agar kolom H
bisa terisi"

Misal,
- jika kolom D ada kata berbunyi 'Kid', maka nanti di kolom H diisi 'baik
hati'
- jika kolom D ada kata berbunyi 'Jan', maka nanti di kolom H diisi 'baik
hati'
- jika kolom D ada kata berbunyi 'Ganjar', maka nanti di kolom H diisi
'sudah mulai paham'

nah, bisa jadi maksud miss Jan adalah bapak mendaftar kata-kata itu, lalu
letakkan disebuah area tertentu, bisa dalam sheet itu entah di kolom ZZ
atau apa, atau di sheet lain. Bentuknya, minimal ada kolom [ada kata
berbunyi] dan kolom [diisi dengan kata]
[ada kata berbunyi] [diisi dengan kata]
Kid baik hati
dst

Kemudian, nanti di kolom H akan diberi formula.
User Bapak cukup fokus isi kolom D saja dan woila, kolom H akan diisi oleh
formula berdasar daftar kata-kata tadi.

Kalau Bapak tidak tahu kata-kata apa saja yang akan diisi di kolom [ada
kata berbunyi], apalagi gak tahu juga kata-kata apa saja yang harus ditulis
di kolom [diisi dengan kata], sebaiknya Bapak mencari tahu atau menyusun
polanya isian user di kolom D lebih dulu.
Dipilih dan pilahlah agar terbentuk tabel tadi itu.

Kan ya ndak mungkin Excel bisa tahu kalau user tulis A harus mengeluarkan
hasil B di sebuah cell tertentu berdasar isian A kalau si Excel ndak
disediakan informasi daftar padanan antara isian A dengan yang harus
ditulis di B.
Seperti halnya Bapak ditanya kalau saya menulis 'Bebek' di kolom A, maka
Pak Ganjar harus menulis apa di kolom B hayo ?

File terlampir. Coba hapus kolom D lalu lihat isi kolom H. Setelah itu
lakukan Undo (tekan CTRL Z) dan lihat lagi isi kolom H.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/4/17 mgb_0603221474 <gbaiquni@gmail.com>

> **
>
>
>
>
> wa alaikum salam wr wb
>
> terima kasih atas usulan solusi yang diberikan miss.jan.raisin.
> mungkin saya perlu tambahkan lagi kendala pengisian tabel yang saya
> lampirkan.
>
> kendala pertama, petugas yang melakukan input pada cell di kolom D,tidak
> begitu paham mengenai komputer dan aplikasinya, hanya bisa mengetik pada
> cell dimaksud.
>
> kedua, isian pada cell di kolom D, benar2 bebas tanpa pembatasan, namun
> bisa diidentifikasikan dengan beberapa kata kunci. adapun warna2 yang ada
> padal tabel yang saya lampirkan, sudah saya manipulasi melalui fitur
> "conditional formatting".
>
> nah, ingin saya lakukan adalah, cukup dengan beberapa kategori kata kunci
> pada isian cell di kolom D(misal: orang, izin, alamat, dll, dan tiap cell
> hanya ada satu kata tersebut), maka pada cell di kolom H akan muncul
> sejumlah kategori sesuai kata kunci diatas (orang, izin, alamat, dll)
>
> terima kasih atas bantuannya.
>
> wassalam
>
> ganjar baiquni
>
>
> --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...>
> wrote:
> >
> > Wa'alaikumsalam wr. wb.,
> >
> > Pak Ganjar Baiquni,
> >
> > solusi untuk kasus anda adalah dengan cara membuat sebuah tabel yang
> berisi
> > Perihal dan kategorinya
> > karena Jan tidak mengetahui perihal apa saja yang mungkin ada, maka
> > sebaiknya pak Ganjar menyediakan dahulu tabel tersebut
> > setelah itu untuk pengisian kolom H dapat dilakukan menggunakan
> > fungsi-fungsi lookup.
> >
> > mungkin untuk lebih mudahnya.. tabelnya berisi 3 kolom, yaitu: kolom 1:
> > Kode (nantinya lookup akan menggunakan kode dibandingkan menggunakan
> > perihal), kolom 2: Perihal, dan kolom 3: Kategori Perihal.
> >
> > Semoga gak salah-salah amat solusinya..
> >
> > Wassalamu'alaikum wr. wb.,
> >
> > -Miss Jan Raisin-
> >
> >
> > Pada 17 April 2013 10.01, ganjar baiquni <gbaiquni@...> menulis:
> >
> > > **
>
> > >
> > >
> > > assalamu alaikum,
> > > mohon bantuannya untuk bisa mengotomatiskan pengisian cell kolom H,
> > > berdasarkan salah satu kata dari isi cell pada kolom D
> > >
> > > terima kasih atas bantuannya.
> > >
> > > terlampir contoh file dimaksud,
> > >
> > > --
> > > ganjar baiquni
> > >
> > >
> > >
> >
>
>
>

Tue Apr 16, 2013 11:04 pm (PDT) . Posted by:

"mgb_0603221474" mgb_0603221474



wa alikum salam Mr Kid

terima kasih atas sumbang ilmu yang diberikan.. :D

kolom D --> kolom H

Ms.Jan --> baik hati
Mr.Kid --> luar biasa
ganjar --> ber terima kasih

wassalam

ganjar baiquni

--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> Assalamu'alaikum Wr. Wb.
>
> Pak Ganjar,
>
> dari bunyi :
> "mengotomatiskan pengisian cell kolom H, berdasarkan salah satu kata dari
> isi cell pada kolom D"
> artinya, ada kata-kata tertentu di kolom D yang menjadi kunci agar kolom H
> bisa terisi"
>
> Misal,
> - jika kolom D ada kata berbunyi 'Kid', maka nanti di kolom H diisi 'baik
> hati'
> - jika kolom D ada kata berbunyi 'Jan', maka nanti di kolom H diisi 'baik
> hati'
> - jika kolom D ada kata berbunyi 'Ganjar&#39;, maka nanti di kolom H diisi
> 'sudah mulai paham'
>
> nah, bisa jadi maksud miss Jan adalah bapak mendaftar kata-kata itu, lalu
> letakkan disebuah area tertentu, bisa dalam sheet itu entah di kolom ZZ
> atau apa, atau di sheet lain. Bentuknya, minimal ada kolom [ada kata
> berbunyi] dan kolom [diisi dengan kata]
> [ada kata berbunyi] [diisi dengan kata]
> Kid baik hati
> dst
>
> Kemudian, nanti di kolom H akan diberi formula.
> User Bapak cukup fokus isi kolom D saja dan woila, kolom H akan diisi oleh
> formula berdasar daftar kata-kata tadi.
>
> Kalau Bapak tidak tahu kata-kata apa saja yang akan diisi di kolom [ada
> kata berbunyi], apalagi gak tahu juga kata-kata apa saja yang harus ditulis
> di kolom [diisi dengan kata], sebaiknya Bapak mencari tahu atau menyusun
> polanya isian user di kolom D lebih dulu.
> Dipilih dan pilahlah agar terbentuk tabel tadi itu.
>
> Kan ya ndak mungkin Excel bisa tahu kalau user tulis A harus mengeluarkan
> hasil B di sebuah cell tertentu berdasar isian A kalau si Excel ndak
> disediakan informasi daftar padanan antara isian A dengan yang harus
> ditulis di B.
> Seperti halnya Bapak ditanya kalau saya menulis 'Bebek&#39; di kolom A, maka
> Pak Ganjar harus menulis apa di kolom B hayo ?
>
> File terlampir. Coba hapus kolom D lalu lihat isi kolom H. Setelah itu
> lakukan Undo (tekan CTRL Z) dan lihat lagi isi kolom H.
>
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2013/4/17 mgb_0603221474 <gbaiquni@...>
>
> > **
> >
> >
> >
> >
> > wa alaikum salam wr wb
> >
> > terima kasih atas usulan solusi yang diberikan miss.jan.raisin.
> > mungkin saya perlu tambahkan lagi kendala pengisian tabel yang saya
> > lampirkan.
> >
> > kendala pertama, petugas yang melakukan input pada cell di kolom D,tidak
> > begitu paham mengenai komputer dan aplikasinya, hanya bisa mengetik pada
> > cell dimaksud.
> >
> > kedua, isian pada cell di kolom D, benar2 bebas tanpa pembatasan, namun
> > bisa diidentifikasikan dengan beberapa kata kunci. adapun warna2 yang ada
> > padal tabel yang saya lampirkan, sudah saya manipulasi melalui fitur
> > "conditional formatting".
> >
> > nah, ingin saya lakukan adalah, cukup dengan beberapa kategori kata kunci
> > pada isian cell di kolom D(misal: orang, izin, alamat, dll, dan tiap cell
> > hanya ada satu kata tersebut), maka pada cell di kolom H akan muncul
> > sejumlah kategori sesuai kata kunci diatas (orang, izin, alamat, dll)
> >
> > terima kasih atas bantuannya.
> >
> > wassalam
> >
> > ganjar baiquni
> >
> >
> > --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@>
> > wrote:
> > >
> > > Wa'alaikumsalam wr. wb.,
> > >
> > > Pak Ganjar Baiquni,
> > >
> > > solusi untuk kasus anda adalah dengan cara membuat sebuah tabel yang
> > berisi
> > > Perihal dan kategorinya
> > > karena Jan tidak mengetahui perihal apa saja yang mungkin ada, maka
> > > sebaiknya pak Ganjar menyediakan dahulu tabel tersebut
> > > setelah itu untuk pengisian kolom H dapat dilakukan menggunakan
> > > fungsi-fungsi lookup.
> > >
> > > mungkin untuk lebih mudahnya.. tabelnya berisi 3 kolom, yaitu: kolom 1:
> > > Kode (nantinya lookup akan menggunakan kode dibandingkan menggunakan
> > > perihal), kolom 2: Perihal, dan kolom 3: Kategori Perihal.
> > >
> > > Semoga gak salah-salah amat solusinya..
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Miss Jan Raisin-
> > >
> > >
> > > Pada 17 April 2013 10.01, ganjar baiquni <gbaiquni@> menulis:
> > >
> > > > **
> >
> > > >
> > > >
> > > > assalamu alaikum,
> > > > mohon bantuannya untuk bisa mengotomatiskan pengisian cell kolom H,
> > > > berdasarkan salah satu kata dari isi cell pada kolom D
> > > >
> > > > terima kasih atas bantuannya.
> > > >
> > > > terlampir contoh file dimaksud,
> > > >
> > > > --
> > > > ganjar baiquni
> > > >
> > > >
> > > >
> > >
> >
> >
> >
>

Tue Apr 16, 2013 11:08 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehe...
Cell H2 pada file lampiran yang lalu berisi array formula (jangan lupa
CTRL SHIFT ENTER untuk meng-enter formula dalam cell).
Jika formula diganti menjadi :
=IFERROR(INDEX($L$2:$L$3,MATCH(1,*INDEX(*COUNTIF(D2,"*"&$K$2:$K$3&"*")*,0)*
,0)),"lain-lain")
maka formula tidak sebagai array formula lagi, alias bisa di-enter dengan
menekan ENTER saja.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/4/17 mgb_0603221474 <gbaiquni@gmail.com>

> **
>
>
>
>
> wa alikum salam Mr Kid
>
> terima kasih atas sumbang ilmu yang diberikan.. :D
>
> kolom D --> kolom H
>
> Ms.Jan --> baik hati
> Mr.Kid --> luar biasa
> ganjar --> ber terima kasih
>
> wassalam
>
> ganjar baiquni
>
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Assalamu'alaikum Wr. Wb.
> >
> > Pak Ganjar,
> >
> > dari bunyi :
> > "mengotomatiskan pengisian cell kolom H, berdasarkan salah satu kata dari
> > isi cell pada kolom D"
> > artinya, ada kata-kata tertentu di kolom D yang menjadi kunci agar kolom
> H
> > bisa terisi"
> >
> > Misal,
> > - jika kolom D ada kata berbunyi 'Kid', maka nanti di kolom H diisi 'baik
> > hati'
> > - jika kolom D ada kata berbunyi 'Jan', maka nanti di kolom H diisi 'baik
> > hati'
> > - jika kolom D ada kata berbunyi 'Ganjar&#39;, maka nanti di kolom H diisi
> > 'sudah mulai paham'
> >
> > nah, bisa jadi maksud miss Jan adalah bapak mendaftar kata-kata itu, lalu
> > letakkan disebuah area tertentu, bisa dalam sheet itu entah di kolom ZZ
> > atau apa, atau di sheet lain. Bentuknya, minimal ada kolom [ada kata
> > berbunyi] dan kolom [diisi dengan kata]
> > [ada kata berbunyi] [diisi dengan kata]
> > Kid baik hati
> > dst
> >
> > Kemudian, nanti di kolom H akan diberi formula.
> > User Bapak cukup fokus isi kolom D saja dan woila, kolom H akan diisi
> oleh
> > formula berdasar daftar kata-kata tadi.
> >
> > Kalau Bapak tidak tahu kata-kata apa saja yang akan diisi di kolom [ada
> > kata berbunyi], apalagi gak tahu juga kata-kata apa saja yang harus
> ditulis
> > di kolom [diisi dengan kata], sebaiknya Bapak mencari tahu atau menyusun
> > polanya isian user di kolom D lebih dulu.
> > Dipilih dan pilahlah agar terbentuk tabel tadi itu.
> >
> > Kan ya ndak mungkin Excel bisa tahu kalau user tulis A harus mengeluarkan
> > hasil B di sebuah cell tertentu berdasar isian A kalau si Excel ndak
> > disediakan informasi daftar padanan antara isian A dengan yang harus
> > ditulis di B.
> > Seperti halnya Bapak ditanya kalau saya menulis 'Bebek&#39; di kolom A, maka
> > Pak Ganjar harus menulis apa di kolom B hayo ?
> >
> > File terlampir. Coba hapus kolom D lalu lihat isi kolom H. Setelah itu
> > lakukan Undo (tekan CTRL Z) dan lihat lagi isi kolom H.
> >
> >
> > Wassalamu'alaikum Wr. Wb.
> > Kid.
> >
> >
> >
> >
> > 2013/4/17 mgb_0603221474 <gbaiquni@...>
> >
> > > **
>
> > >
> > >
> > >
> > >
> > > wa alaikum salam wr wb
> > >
> > > terima kasih atas usulan solusi yang diberikan miss.jan.raisin.
> > > mungkin saya perlu tambahkan lagi kendala pengisian tabel yang saya
> > > lampirkan.
> > >
> > > kendala pertama, petugas yang melakukan input pada cell di kolom
> D,tidak
> > > begitu paham mengenai komputer dan aplikasinya, hanya bisa mengetik
> pada
> > > cell dimaksud.
> > >
> > > kedua, isian pada cell di kolom D, benar2 bebas tanpa pembatasan, namun
> > > bisa diidentifikasikan dengan beberapa kata kunci. adapun warna2 yang
> ada
> > > padal tabel yang saya lampirkan, sudah saya manipulasi melalui fitur
> > > "conditional formatting".
> > >
> > > nah, ingin saya lakukan adalah, cukup dengan beberapa kategori kata
> kunci
> > > pada isian cell di kolom D(misal: orang, izin, alamat, dll, dan tiap
> cell
> > > hanya ada satu kata tersebut), maka pada cell di kolom H akan muncul
> > > sejumlah kategori sesuai kata kunci diatas (orang, izin, alamat, dll)
> > >
> > > terima kasih atas bantuannya.
> > >
> > > wassalam
> > >
> > > ganjar baiquni
> > >
> > >
> > > --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@>
> > > wrote:
> > > >
> > > > Wa'alaikumsalam wr. wb.,
> > > >
> > > > Pak Ganjar Baiquni,
> > > >
> > > > solusi untuk kasus anda adalah dengan cara membuat sebuah tabel yang
> > > berisi
> > > > Perihal dan kategorinya
> > > > karena Jan tidak mengetahui perihal apa saja yang mungkin ada, maka
> > > > sebaiknya pak Ganjar menyediakan dahulu tabel tersebut
> > > > setelah itu untuk pengisian kolom H dapat dilakukan menggunakan
> > > > fungsi-fungsi lookup.
> > > >
> > > > mungkin untuk lebih mudahnya.. tabelnya berisi 3 kolom, yaitu: kolom
> 1:
> > > > Kode (nantinya lookup akan menggunakan kode dibandingkan menggunakan
> > > > perihal), kolom 2: Perihal, dan kolom 3: Kategori Perihal.
> > > >
> > > > Semoga gak salah-salah amat solusinya..
> > > >
> > > > Wassalamu'alaikum wr. wb.,
> > > >
> > > > -Miss Jan Raisin-
> > > >
> > > >
> > > > Pada 17 April 2013 10.01, ganjar baiquni <gbaiquni@> menulis:
>
> > > >
> > > > > **
> > >
> > > > >
> > > > >
> > > > > assalamu alaikum,
> > > > > mohon bantuannya untuk bisa mengotomatiskan pengisian cell kolom H,
> > > > > berdasarkan salah satu kata dari isi cell pada kolom D
> > > > >
> > > > > terima kasih atas bantuannya.
> > > > >
> > > > > terlampir contoh file dimaksud,
> > > > >
> > > > > --
> > > > > ganjar baiquni
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>

Tue Apr 16, 2013 10:45 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh gitu.

File terlampir mengasumsikan bahwa data berisi nilai-nilai grup (yang
berisi 1 digit nomor urut saja).

Wassalam,
Kid.

2013/4/17 Dian Anas <anassheva20@yahoo.com>

> **
>
>
> saya jg bingung mr. kid, baiklah nanti saya akan perbaiki lampireannya.
> mtr nwun koreksinya
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Monday, April 15, 2013 7:18 PM
> *Subject:* Re: [belajar-excel] menjumlahkan data berdasarkan kode
>
>
> Oh iya, sekalian juga untuk C6 dan C5 nya. Dapat dari manakah angka yang
> harus dipasang di C6 dan C5 itu.
> Tidak semua BeExceller berprofesi seperti Anda loh, yang begitu melihat
> sheetnya langsung tahu itu harus diisi dari sini dan situ.
>
> Semoga dengan tambahan keterangan yang lebih detil demikian, akan
> mempercepat respon yang bisa Anda dapatkan dari BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/15 Mr. Kid <mr.nmkid@gmail.com>
>
> Kok masih ndak ada contoh hasil kerja manual Anda ?
> Coba diisi manual di cell C7 sheet k7a modif atau cell lain yang harusnya
> ada angkanya.
> Kemudian sertakan keterangan pada cell itu (bisa dengan diberi comment)
> yang berisi diambil dari sheet K3 cell apa saja.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/15 Dian Anas <anassheva20@yahoo.com>
>
> **
>
> selamat pagi,
> terima kasih atas koreksi dari Mr. Kid, untuk lampiran sudah diperbaiki.
> mohon saran dari para pakar excel.
> terima kasih
>
>
>
>
>
>
>

Tue Apr 16, 2013 10:59 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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.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,
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Tue Apr 16, 2013 11:37 pm (PDT) . Posted by:

"lapendosol opik" lapendosol

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.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,
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
>
>

Tue Apr 16, 2013 11:41 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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.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,
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Tue Apr 16, 2013 11:03 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba lihat di :
http://tech.groups.yahoo.com/group/belajar-excel/message/24491
dengan file yang bisa di-download di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-UserForm-Initialize-validasi-dengan-combobox-td5717474.html

Wassalam,
Kid.

2013/4/17 lapendosol opik <lapendosol@yahoo.com>

> **
>
>
> Trimakasih banyak Miss Jan, tips dari Miss Jan berjalan dengan baik. Miss
> Jan dan semua rekan-rekan disini emang baik semua kok, hehehe.
> Sample workbook ada beserta beberapa form yang saya buat, berhubung saya
> kurang faham dan belum diisi bahasa programnya, takut rekan2 yang jawab
> males jawab karena kebanyakan makanya pertanyaan-pertanyaan saya cicil
> dengan dijabarin ke milis. Tapi berikutnya saya akan sertakan contoh
> filenya, bagian yang belum perlu bisa saya hapus.
> Kenapa saya ga pake Label, bener kata miss Jan, ada proses seleksi
> pengecekan dari ComboBoxnya. Jadi bisa cek barang dari combobox maupun
> textbox kode barang gitu Miss Jan.
> Sekali lagi terimakasih miss Jan
> Wassalam,
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, April 17, 2013 9:31 AM
> *Subject:* Re: [belajar-excel] Mencocokkan data pada userform
>
>
> Dear pak Opik,
>
> sebuah sample workbook akan membantu Be-Exceler yang ingin memberikan
> solusi,
> kalo Jan, karena masih baru belajar VBA dan tidak punya basic programing,
> tentu sangat sulit untuk memberikan solusi berdasarkan data angan-angan
> belaka.
>
> Tapi.. karena Jan lagi baik hati, silakan lihat contoh pada lampiran,
> btw, kenapa untuk harga dan nama barang gak pakai Label aja? kan fungsinya
> hanya menampilkan saja.. bukan begitu bukan? atau ada proses seleksi lagi
> dari hasil pengecekan kode?
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 17 April 2013 00.56, lapendosol opik <lapendosol@yahoo.com> menulis:
>
> **
>
> Dear master excel, mohon pencerahannya
> Saya memiliki file excel dimana isinya terdapat userform
> Isi userform terdiri dari beberapa bagian, diantaranya:
> textbox bernama txtKode
> commandbutton bernama cmdCek
> combobox bernama cmbNama
> textbox bernama txtHarga
> Sheet database terdiri dari:
> range A:A = daftar kode
> range B:B = daftar nama barang
> range C:C = daftar harga
>
> cmdCek saya gunakan untuk meng-Cek txtKode terhadap Database.Range("A:A")
> Jika txtKode cocok text/value dari cmbNama dan txtHarga terisi otomatis
> dari range B:C
> Saya baru coba untuk cmbNama tapi selalu salah, saya coba pakai LenB:
>
> Private Sub cmdCek_Click()
> If LenB(txtKode.Text) = Database.Range("A:A") Then
> cmbNama.ListIndex = Tbl(txtKode.Text + 1, 3)
> Else
> MsgBox ("Ga ada")
> End If
> End Sub
>
> Mohon pencerahannya untuk membetulkan bahasa yang salah tersebut.
> Sebelumnya saya ucapkan banyak terimakasih
> Wassalam,
>
>
>
>
>
>

Tue Apr 16, 2013 11:15 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Paulus,

Pakai UDF (User Defined Function) vlookupgab dari Pak Anton.

Contoh terlampir.

Salam,
HK

________________________________
From: Paulus Taripar <paulustaripar@rocketmail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 17 April 2013, 10:28
Subject: [belajar-excel] Mencari list barang yg sudah dibeli oleh pelanggan


 
halo be exceller.,mau tanya,bagaimana fungsi untuk mencari, misal nama barang yg sudah dibeli seseorang.
Contoh sheetnya:

I.)  ______A______B___________C______
    1           No.      Pembeli             Barang**          
    2            1           Billy                     
MP4              
   
3            2         Gugun                  Radio           
    4            3           Billy                Handsfree          
    5            4          Jono                Notebook          
   
6            5          Jono                Keyboard

II.) trus saya buat sheet baru yg isinya:
     ______A________B_________________C__________
   1           No.      Nama Pembeli*             Barang yg sudah dibeli          
   2            1                  Billy                                    .........
   3            2                Gugun                                 .........
   4            3                 Jono                                   ..........
   5

di bag. II.) saya sudah buat menjadi Data Validation -> List (jadi bisa dipilih2..).

Lalu u/ mencari "Barang yg sudah dibeli" pake fungsi apa ya? Terima kasih.

Tue Apr 16, 2013 11:19 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pakai formula dibantu sebuah kolom dengan syarat data ter-sort berdasar
nama.

Wassalam,
Kid.

2013/4/17 Paulus Taripar <paulustaripar@rocketmail.com>

> **
>
>
> halo be exceller.,mau tanya,bagaimana fungsi untuk mencari, misal nama
> barang yg sudah dibeli seseorang.
> Contoh sheetnya:
>
> I.) ______A______B___________C______
> 1 No. Pembeli Barang**
> 2 1 Billy MP4
> 3 2 Gugun Radio
> 4 3 Billy Handsfree
> 5 4 Jono Notebook
> 6 5 Jono Keyboard
>
>
> II.) trus saya buat sheet baru yg isinya:
> ______A________B_________________C__________
> 1 No. Nama Pembeli* Barang yg sudah dibeli
>
> 2 1 Billy
> .........
> 3 2 Gugun
> .........
> 4 3 Jono
> ..........
> 5
>
> di bag. II.) saya sudah buat menjadi Data Validation -> List (jadi bisa
> dipilih2..).
>
> Lalu u/ mencari "Barang yg sudah dibeli" pake fungsi apa ya? Terima kasih.
>
>
>

Tue Apr 16, 2013 11:47 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Bagaimana jika seperti file terlampir ?
Cukup dengan sheet Test, tapi bisa filter dengan VBA (user ndak perlu
filter langsung di pivot table).

btw, kenapa user tidak diminta filter langsung di pivot table ya....

Wassalam,
Kid.

2013/4/17 <belajar.excell@yahoo.com>

> **
>
>
> ** Miss Jan, terima kasih byk utk ilmunya..saya sudah ganti sheet4 jadi
> sheet22,setelah d jalankan berhasil.
> Tapi masalahx adalah hasil pivotnya mengacu pada sheet test.bukan mengacu
> pada sheet result.
> Sebenarx yg saya inginkan adalah dari sheet test,di saring lg datax yg
> nnti d taruh di sheet result.dari hasil saringan di sheet result tersebut
> maka di buat pivot..
>
> Mohon bantuannya ya ...
>
> RS
>
>
>
>
>
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 17 Apr 2013 08:43:35 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
>
> Hai RS,
>
> scriptnya error di baris berikut:
>
> Set objTable = Sheet4.PivotTableWizard
>
> karena dalam workbook tersebut tidak ada sheet dengan nomor index 4, coba
> lihat gambar di bawah ini (hasil screen shoot monitor)
>
> [image: Gambar sisip 2]
>
> sheet yang ada adalah sheet1, sheet2, sheet22, dan sheet3.
> Karena Jan melihat sheet22 masih kosong sama sekali, coba ganti scriptnya
> menjadi seperti ini:
>
> Set objTable = Sheet22.PivotTableWizard
>
> atau dengan cara lain, ubah nomor index sheet22 menjadi sheet4 tanpa
> melakukan modifikasi terhadap script yang sudah ada.
>
> lalu jalankan kembali script yang anda susun.
>
> Sebagai tambahan wacana, ada 2 macam error saat penulisan script, yaitu:
> 1. Syntax Error, hal ini dapat langsung diketahui karena script VBA akan
> berubah menjadi warna merah
> 2. Run-Time Error, hal ini baru diketahui saat script dijalankan, untuk
> mengetahui dimana letak salahnya dapat dengan menekan tombol F8 berkali-kali
>
> Kesalahan dalam script di atas dinamakan Run-Time Error
>
> Semoga penjelasan yang singkat ini dapat menjadi tambahan ilmu bagi semua,
> jika ada yang salah tolong dikoreksi.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 16 April 2013 19.47, belajar excell <belajar.excell@yahoo.com>menulis:
>
>> **
>>
>>
>> Selamat malam semuanya,
>>
>> Mohon maaf lagi, kali ini sya mau Tanya lagi mengenai Pivot lagi. Tapi
>> kali ini sya coba padukan Advanced filter dan Pivot, tapi masalahnya
>> Sepertinya syntax untuk pivotnya tidak berkerja pada sheet hasil advanced
>> filter, Mohon bantuannya bagaimana agar syntax tersebut dapat berfungsi
>> lagi ya ?
>>
>> Terima kasih banyak atas bantuannya
>>
>> RS
>>
>>
>>
>

Wed Apr 17, 2013 12:00 am (PDT) . Posted by:

"Jan Raisin"

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-

Wed Apr 17, 2013 12:15 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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-
>
>
>

Wed Apr 17, 2013 12:21 am (PDT) . Posted by:

"Jan Raisin"

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-
>>
>>
>
>

Wed Apr 17, 2013 12:26 am (PDT) . Posted by:

"rh_suswanto" rattip25

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"
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar