Daer Mr Kids dan Para Suhu,
Sebelumnya trimakasih atas pencerahannya, maaf kalau ternyata peenyataanya 
membingungkan
Mungkin kata Flexibel sangat luas, saya hanya ingin Pencarian lebih sama dengan 
program yang pertama saya dapate dengan menggunakan Unbound,
Contoh program pertama: Ketika kita mencari BUDI yang keluar dari Nama BUDI 
SETIAWAN, dan Bambang Budi keluar
Contoh Program kedua dengan Bound : Ketika kita mencari Nama BUDI, yang keluar 
hanya BUDI setiawan saja, Bambang Budi tidak muncul
Mohon maaf kalau ternyata pertanyaan salah,
Tapi saya sudah dapat jawabanya dari Milis sebelah, dengan menggunakan Asterik 
(*) sebelum dan sesudah kata cari nya

Private Sub TxtCariData_Change()
Sheets("DB").Range("CG2").Value = "*" & UserForm1.TxtCariData.Text & "*"
End Subdan Untuk Text nya benar di buat format tanggalnya dulu

TextBox1.Value = Format(ListBox1.List(ListBox1.ListIndex, 6), "dd-mmm-yy")
Trimakasih Mr. Kids atas pembelajaranya
Bambang




    On Wednesday, March 25, 2020, 03:42:31 PM GMT+7, 'Mr. Kid' 
mr.nm...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:  
 
     

tentang :
  mendapatkan coding untuk Listbox yang sesuai dengan keinginan saya  
> ada banyak cara untuk meng-extract records yang dibutuhkan, salah satunya 
> dengan fitur advanced filter yang Anda gunakan. Cara lainnya memanfaatkan 
> pivot tables dan sebagainya.

tentang :  

  bagaimana membuat hasil pencarian lebih flexibel  
> buat saja comboboxes untuk memilih nama header kriteria pencarian dan text 
> box kriteria pencarian, lalu dibuat tabel kriteria berdasar pilihan di 
> comboboxes dan text box terkait ke suatu range lalu dilakukan advanced filter 
> (jika Anda menggunakan advanced filter). Ini sudah fleksibel. Hanya menulis 
> nama header di range tertentu lalu menulis isi textbox nya dibahawa header 
> lalu dilakukan advanced filter.> jika pakai pivot tables, filter saja setiap 
> field di pivot tables sesuai kebutuhan, lalu definisikan range area pivot 
> table yang terfilter, ganti listbox dengan area range tersebut.> jika pakai 
> pivot tables dan slicer, set slicer sesuai kriteria yang diisi user, 
> definisikan area pivot tables, ganti listbox dengan area range tersebut.> 
> kalau hobinya pakai loop baca satu per satu di setiap kolom yang dibutuhkan, 
> ya buat saja loopnya.

tentang :
  coding sebelumnya hasil pencarian sangat flexibel  
> saya gak paham maksudnya ini apa ? beneran fleksibel ?> bukankah sebelumnya 
> menggunakan proses loop untuk add item untuk mengisi listbox ?   berarti 
> filternya pun akan loop per kolom kriteria yang dibutuhkan. Lalu fleksibelnya 
> dimana ? kan sama saja harus mencari per kolom kriteria sesuai kebutuhan.> 
> Andai kriterianya berdasar kolom Nama yang dicari adalah nama diawali su, 
> seperti sukarman bin bla atau sulistiyani a. tapi hasilnya ada gatot subroto 
> dan semacamnya yang tidak diawali su   Hal seperti ini paling fleksibel 
> dengan advanced filter atau pivot tables (slicer kurang fleksibel untuk 
> pencarian sebagian seperti ini)> Jadi yang dimaksud coding sebelumnya yang 
> lebih fleksibel itu dimana ? Apalagi data berupa array yang sudah ada dalam 
> listbox hasil loop add item, sudah lebih gak mungkin untuk fleksibel.   
> Biasanya, kalau cara yang dianggap fleksibel padahal data sudah berupa array, 
> harus dilakukan search per kolom array pakai loop juga.   Pengguna VBA pemula 
> biasanya akan tergiur dengan fungsi Filter milik VBA, lalu dipakai disemua 
> array data.. Padahal harusnya tetap digunakan per elemen kolom array.> Saya 
> curiga deh... Anda menganggap fleksibel itu jangan-jangan Anda pakai fungsi 
> Filter dengan area pencarian langsung seluruh isi listbox yang disimpan 
> sebagai array data.   Kalau kecurigaan tersebut benar, berarti Anda sudah 
> tersesat. Sebaiknya segera ambil jalan balik kembali ke jalan yang wajar 
> saja.   Pakai contoh seperti mencari yang su tadi saja. Mencari dikolom nama, 
> kalau pakai Filter nya VBA ke seluruh isi listbox, akan ketemu gatot subroto 
> juga.    Malah kalau pakai filter nya VBA ke seluruh isi listbox bisa lebih 
> parah lagi hasilnya,    misal ada kolom alamat juga, yang isinya jalan 
> menteri supeno atau supermall bekasi atau su lainnya di kolom lainnya akan 
> ikut keluar menjadi hasil, walau di kolom nama gak ada bunyi su
hmmm.... jadi bingung...kok bisa si kid nyaranin sesuatu yang gak efisien gak 
bisa fleksibel atau gak se-universal mungkin ya ?si kid lagi error kali ya.. :(
tentang :
  textbox yang tampilan dari hasil listbox berupa tanggal, berubah formatnya  
> disisi internal listbox itu sendiri :    a. listbox yang diisi dengan add 
> item akan menampilkan apa yang disimpannya    b. listbox yang diisi dengan 
> merujuk ke object lain (lewat properti listfillrange atau rowsource), akan 
> menampilkan apa yang ditampilkan sumber data dan tidak menyimpan nilai sumber 
> data)> jadi, ketika mengambil nilai dari listbox (misal si textbox mengambil 
> nilai dari listbox, artinya si textbox sebagai peminta) :   a. listbox yang 
> diisi dengan add item akan menyerahkan nilai yang disimpan oleh si listbox 
> kepada pihak yang meminta   b. listbox yang diisi dengan listfillrange atau 
> rowsource akan mengambilkan nilai dari sumbernya, lalu menyerahkan nilai yang 
> diambil itu kepada pihak yang meminta> Pada listbox yang diisi dengan rujukan 
> ke object lain (listfillrange atau rowsource) akan didapat nilai asli dari 
> sumbernya.> Data tanggal bertipe datetime memiliki nilai asli berupa serial 
> date dari 0 sampai sekian. > Kalau ambil dari listbox yang pakai 
> listfillrange atau rowsource, dan sumber data bertipe datetime,    lakukan 
> format sebelum ditampilkan dalam textbox (fungsi Format di VBA, seperti 
> fungsi Text di Excel dengan kelebihan dan kekurangan masing-masing)




On Wed, Mar 18, 2020 at 10:01 AM Gobang Gocir gobang13...@yahoo.com 
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

     

 Dear Mr. Kid dan Milis Belajar Excel,
Trimakasih atas masukan dan pembelajaranya, setelah mencari apa yang di ajari 
oleh Mr. Kid saya mendapatkan coding untuk Listbox yang sesuai dengan keinginan 
saya, yang saya mau tanyakan bagaimana membuat hasil pencarian lebih flexibel, 
karana coding sebelumnya hasil pencarian sangat flexibel, kemudian kenapa ya 
textbox yang tampilan dari hasil listbox berupa tanggal, berubah formatnya
berikut codingnya, mohon bantuan untuk modifikasi coding di bawah ini, file 
terlampir

Private Sub LbCariData_Click()
Dim Ws As WorksheetSet Ws = Sheets("DB")Dim wsrekap As WorksheetSet wsrekap = 
Sheets("CARI")Dim R As RangeSet R = Ws.Range("ListDBA")Dim RFilter As RangeSet 
RFilter = Ws.Range("CG1:CG2")Dim RCari As RangeSet RCari = Ws.Range("CG2")Dim C 
As Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.TxtCariData.Text = "" Then    MsgBox "Maaf...!! Anda Belum 
Memasukkan Data ..!!", 16, "Aplikasi Data"    Exit Sub
End If        UserForm1..TxtCariData.Text = RCari        R.AdvancedFilter 
Action:=xlFilterCopy, _        CriteriaRange:=RFilter, 
CopyToRange:=wsrekap.Range("B3:BQ3"), Unique:=False        ListBox1.RowSource = 
"REKAPCARI"
End Sub

Trimakasih


    Pada Senin, 16 Maret 2020 22.04.35 GMT+7, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:  
 
     

ini mesti listbox yang unbound, yang ngisi listbox nya pakai additem trus isi 
kolom berikutnya pakai properti List. Kalau pakai ini, maksimal hanya 10 
kolom.mbok ya pakai listbox yang bound, ngisi listboxnya pakai ngeset area 
range worksheet di properti ListFillRange (kalau listbox di worksheet) atau 
RowSource (kalau listbox di userform)..Kalau pakai bound listbox seperti ini, 
kalau mau nampilin header, set properti ColumnHeads bernilai true.. Ingat, area 
range yang di-set hanya record data. baris header tidak ikut disebut tapi harus 
tepat hanya di 1 baris sebelum baris pertama data.Kalau mau hide kolom, set di 
columnwidths, supaya lebar kolom itu adalah 0.Kalau mau sort listbox, cukup 
sort sumber datanya, lalu set ulang listfillrange atau rowsource
Contoh :regional setting : EN-ussheet bernama 'datanya kid'header di A1:Z1  (26 
kolom)data di A2:Z37 (36 baris)header ditampilkankolom B (kolom ke-2) dan kolom 
E (kolom ke-5) di-hide, selainnya ditampilkan
set di listbox (pakai script atau sejak design)1. ColumnCount : diset bernilai 
262. ColumnHeads : diset true3. ListFillRange (kalau listbox di worksheet) atau 
RowSource (kalau di userform) : diset berisi string berbunyi   'datanya 
kid'!A2:Z374. ColumnWidths : diset 50;0;50;50;0     -> angka 50 adalah contoh 
untuk kolom yang di-set dengan lebar 50 ptjika ada opsi sort isi listbox : - 
lakukan sort di A1:Z37- kemudian set nomor 3 dengan vbnullstring   -> di clear- 
lalu set lagi nomor 3 dengan 'datanya kid'!A2:Z37  -> resetmau clear listbox ? 
set nomor 3 dengan vbnullstring
properrti fillcolor untuk control namanya BackColorkondisi 'jika kosong' 
berarti panjang karakter isinya adalah 0if len(textboxnya.text)=0 then 
textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellow




On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir gobang13...@yahoo.com 
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

     

Dear Para Suhu Milis belajar Excel,
Mohon bantuanya untuk kasus saya, saya sudah mencoba "menyontek" code2 vba dari 
internet termasuk dari milis excel, saya mempunyai data dengan banyak kolom, 
dan saya ingin memunculkanya di form untuk sebagian informasi yang dianggap 
penting, permasalahanya ketika saya mau tampilkan 12 dari kolom yang ada di 
listbox ke textbox itu terjadi error, di listbox ke textbox yang ada hanya bisa 
menampilkan 10 item.
Kemudian saya juga mencoba untuk membuat textbox berubah warna apa bila di 
textbox tersebut kosong
Trimakasih sebelum nya dan mohon Bantuanya, file terlampir
Best RegardsBambang


   
    

   
  #yiv2193948521 #yiv2193948521 -- #yiv2193948521ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2193948521 
#yiv2193948521ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2193948521 
#yiv2193948521ygrp-mkp #yiv2193948521hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv2193948521 #yiv2193948521ygrp-mkp #yiv2193948521ads 
{margin-bottom:10px;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad 
{padding:0 0;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad p 
{margin:0;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad a 
{color:#0000ff;text-decoration:none;}#yiv2193948521 #yiv2193948521ygrp-sponsor 
#yiv2193948521ygrp-lc {font-family:Arial;}#yiv2193948521 
#yiv2193948521ygrp-sponsor #yiv2193948521ygrp-lc #yiv2193948521hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2193948521 
#yiv2193948521ygrp-sponsor #yiv2193948521ygrp-lc .yiv2193948521ad 
{margin-bottom:10px;padding:0 0;}#yiv2193948521 #yiv2193948521actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2193948521 
#yiv2193948521activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2193948521
 #yiv2193948521activity span {font-weight:700;}#yiv2193948521 
#yiv2193948521activity span:first-child 
{text-transform:uppercase;}#yiv2193948521 #yiv2193948521activity span a 
{color:#5085b6;text-decoration:none;}#yiv2193948521 #yiv2193948521activity span 
span {color:#ff7900;}#yiv2193948521 #yiv2193948521activity span 
.yiv2193948521underline {text-decoration:underline;}#yiv2193948521 
.yiv2193948521attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv2193948521 .yiv2193948521attach div a 
{text-decoration:none;}#yiv2193948521 .yiv2193948521attach img 
{border:none;padding-right:5px;}#yiv2193948521 .yiv2193948521attach label 
{display:block;margin-bottom:5px;}#yiv2193948521 .yiv2193948521attach label a 
{text-decoration:none;}#yiv2193948521 blockquote {margin:0 0 0 
4px;}#yiv2193948521 .yiv2193948521bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2193948521 
.yiv2193948521bold a {text-decoration:none;}#yiv2193948521 dd.yiv2193948521last 
p a {font-family:Verdana;font-weight:700;}#yiv2193948521 dd.yiv2193948521last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2193948521 
dd.yiv2193948521last p span.yiv2193948521yshortcuts 
{margin-right:0;}#yiv2193948521 div.yiv2193948521attach-table div div a 
{text-decoration:none;}#yiv2193948521 div.yiv2193948521attach-table 
{width:400px;}#yiv2193948521 div.yiv2193948521file-title a, #yiv2193948521 
div.yiv2193948521file-title a:active, #yiv2193948521 
div.yiv2193948521file-title a:hover, #yiv2193948521 div.yiv2193948521file-title 
a:visited {text-decoration:none;}#yiv2193948521 div.yiv2193948521photo-title a, 
#yiv2193948521 div.yiv2193948521photo-title a:active, #yiv2193948521 
div.yiv2193948521photo-title a:hover, #yiv2193948521 
div.yiv2193948521photo-title a:visited {text-decoration:none;}#yiv2193948521 
div#yiv2193948521ygrp-mlmsg #yiv2193948521ygrp-msg p a 
span.yiv2193948521yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2193948521 
.yiv2193948521green {color:#628c2a;}#yiv2193948521 .yiv2193948521MsoNormal 
{margin:0 0 0 0;}#yiv2193948521 o {font-size:0;}#yiv2193948521 
#yiv2193948521photos div {float:left;width:72px;}#yiv2193948521 
#yiv2193948521photos div div {border:1px solid 
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv2193948521 
#yiv2193948521photos div label 
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2193948521
 #yiv2193948521reco-category {font-size:77%;}#yiv2193948521 
#yiv2193948521reco-desc {font-size:77%;}#yiv2193948521 .yiv2193948521replbq 
{margin:4px;}#yiv2193948521 #yiv2193948521ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv2193948521 #yiv2193948521ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2193948521 
#yiv2193948521ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2193948521 
#yiv2193948521ygrp-mlmsg select, #yiv2193948521 input, #yiv2193948521 textarea 
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2193948521 
#yiv2193948521ygrp-mlmsg pre, #yiv2193948521 code {font:115% 
monospace;}#yiv2193948521 #yiv2193948521ygrp-mlmsg * 
{line-height:1.22em;}#yiv2193948521 #yiv2193948521ygrp-mlmsg #yiv2193948521logo 
{padding-bottom:10px;}#yiv2193948521 #yiv2193948521ygrp-msg p a 
{font-family:Verdana;}#yiv2193948521 #yiv2193948521ygrp-msg 
p#yiv2193948521attach-count span {color:#1E66AE;font-weight:700;}#yiv2193948521 
#yiv2193948521ygrp-reco #yiv2193948521reco-head 
{color:#ff7900;font-weight:700;}#yiv2193948521 #yiv2193948521ygrp-reco 
{margin-bottom:20px;padding:0px;}#yiv2193948521 #yiv2193948521ygrp-sponsor 
#yiv2193948521ov li a {font-size:130%;text-decoration:none;}#yiv2193948521 
#yiv2193948521ygrp-sponsor #yiv2193948521ov li 
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2193948521 
#yiv2193948521ygrp-sponsor #yiv2193948521ov ul {margin:0;padding:0 0 0 
8px;}#yiv2193948521 #yiv2193948521ygrp-text 
{font-family:Georgia;}#yiv2193948521 #yiv2193948521ygrp-text p {margin:0 0 1em 
0;}#yiv2193948521 #yiv2193948521ygrp-text tt {font-size:120%;}#yiv2193948521 
#yiv2193948521ygrp-vital ul li:last-child {border-right:none 
!important;}#yiv2193948521   

Kirim email ke