1 Message
Digest #3894
Message
Thu Jun 23, 2016 10:52 pm (PDT) . Posted by:
"Heru Safrudin" heru.safrudin
Dear Eko,
Ganti prosedur berikut :
Private Sub cmdfind_Click()
Dim X As Integer
With Sheets("KATALOG")
For X = 1 To .Range("A3").CurrentRegion.Rows.Count + 2
If InStr(.Cells(X, 7).Value, tnama.Text) > 0 Then
ListBox1.AddItem .Cells(X, 5).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(X, 7).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(X, 13).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(X, 14).Value
End If
Next
End With
End Sub
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: Septian Eko Saputro monnalissa0809@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 23 Juni 2016 11:07
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] List Box Hasil Input Data [1 Attachment]
Dear Master Excel
saya mengalami kesulitan dalam menampilkan hasil data inputan yang telah diinputkan sebelumnya melalui form kedalam bentuk list box dan kata kunci pencarian berdasarkan nama penyewa. (jadi misalkan kita masukkan kata kunci ahmad maka akan muncul beberapa nama ahmad yang mendekati seperti Ahmad, ahmad subarja, ahmad soni, dll). mohon bantuan kode vba terkait hal tersebut terima kasih. (terlampir)
Best Regards,
"---SE---"
Ganti prosedur berikut :
Private Sub cmdfind_Click()
Dim X As Integer
With Sheets("KATALOG")
For X = 1 To .Range("A3").CurrentRegion.Rows.Count + 2
If InStr(.Cells(X, 7).Value, tnama.Text) > 0 Then
ListBox1.AddItem .Cells(X, 5).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(X, 7).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(X, 13).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(X, 14).Value
End If
Next
End With
End Sub
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: Septian Eko Saputro monnalissa0809@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 23 Juni 2016 11:07
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] List Box Hasil Input Data [1 Attachment]
Dear Master Excel
saya mengalami kesulitan dalam menampilkan hasil data inputan yang telah diinputkan sebelumnya melalui form kedalam bentuk list box dan kata kunci pencarian berdasarkan nama penyewa. (jadi misalkan kita masukkan kata kunci ahmad maka akan muncul beberapa nama ahmad yang mendekati seperti Ahmad, ahmad subarja, ahmad soni, dll). mohon bantuan kode vba terkait hal tersebut terima kasih. (terlampir)
Best Regards,
"---SE-
============================================================
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar