1 Message

Digest #3139

Re: Mencari data Untuk CheckBox [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: Mencari data Untuk CheckBox [1 Attachment]

Thu Oct 16, 2014 3:09 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Mungkin *sebelum *baris script berbunyi :
*baris = C.Row*
diberi blok script berikut :
c.parent.activate
*CariProduk *= "=countif(" & c.resize(1,7).address & ",""s%"")<>0"
'asumsi tabel data ada 7 kolom
'misal checkbox bernama chk1 sampai chk6 yang caption-nya sama dengan isi
cells
chk1.value=evaluate( replace( cariproduk,"s%",chk1.caption ) )
chk2.value=evaluate( replace( cariproduk,"s%",chk2.caption ) )
chk3.value=evaluate( replace( cariproduk,"s%",chk3.caption ) )
chk4.value=evaluate( replace( cariproduk,"s%",chk4.caption ) )
chk5.value=evaluate( replace( cariproduk,"s%",chk5.caption ) )
chk6.value=evaluate( replace( cariproduk,"s%",chk6.caption ) )

Wassalamu'alaikum wr. wb.
Kid.

2014-10-16 17:33 GMT+11:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum.
>
> Salam sukses untuk para master semua.
>
> Kali ini, saya mau bertanya terkait mencari data, kemudian data tersebut
> muncul pada CheckBox yang kita buat. Saya telah membuat pendarian data,
> yang ditampilkan pada TextBox dengan macro spt dibawah
>
>
>
> *Dim CariProduk As StringCariProduk = Me.NoKP.Value*
>
>
>
>
>
>
>
>
>
>
> *If Trim(CariProduk) <> "" Then With
> Sheets("ItemCOQ").Range("A2:A1048576";) Set C = .Find(CariProduk,
> LookIn:=xlValues) If Not C Is Nothing
> Then Application.Goto C, True If C = "" Then
> Sheets("ItemCOQ").Range("A1").Select End If baris =
> C.Row Me.ProdukKP.Value = Worksheets("ItemCOQ").Cells(baris,
> 2).Value*
>
>
> *Else Me.ProdukKP.Value = "Produk Tidak Ada"*
>
> Kemudian saya ingin memunculkan data pengetesan yang ditampilkan pada
> CheckBox sebagaimana gambar terlampir. Misal No urut 002
> Item Test
> CheckBox Appearance tercentang
> CheckBox Colour ASTM tercentang
> CheckBox Density tercentang
> CheckBox Total Base Number tidak tercentang
> CheckBox Viscosity Kinematic 40 tidak tercentang
> CheckBox Viscosity Kinematic 100 tercentang
>
> Mohon pencerahan pada para master excel semua. Terima kasih
>
> Salam Haris
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Visit Your Group