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.ex...@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
>
>
>
>
>
>
>
