Kita akan menjiplak sedikit: bentuk DilaogBox FIND, dgn sebuah UserForm
Ketika Anda men-Doobel-Click sebuah data Nama di sheet IDENTITAS
maka Nama yg diDobelKlik tadi dingat dlm variable X, sembari kita
aktifkan userForm FIND WHAT
di kotak kriteria: tidak perlu diisi dengan manual / cara copy paste, karena
userfor sudah kita SURUH mengisikan X ke situhh...
sebelum anda sempat melihat dengan jelas, seandainya di data KAMPUS
tsb terdapat BANYAK DATA YG SAMA, si UserForm sudah membuat daftarnya
tsb terdapat BANYAK DATA YG SAMA, si UserForm sudah membuat daftarnya
di sebuah Listbox
Jika item di Listbox di pilih, maka cell yg berisi NAMA diaktifkan
Private Sub UserForm_Activate()
Dim r As Long, n As Long
LbKrite = X
Sheets("Kampus").Activate
Set Rng = Sheets("Kampus").Range("E4").CurrentRegion
Set Rng = Rng.Offset(1, 0).Resize(, 1)
With LstHasil
.ColumnCount = 2
.ColumnWidths = "44 pt;150 pt"
.Clear
For r = 1 To Rng.Rows.Count - 1
If LCase(Rng(r, 1)) = LCase(X) Then
n = n + 1
If n = 1 Then Rng(r, 1).Activate
.AddItem
.Column(0, n - 1) = Rng(r, 1).Address(False, False)
.Column(1, n - 1) = Rng(r, 1).Value
End If
Next r
End With
If n = 0 Then MsgBox "Tidak ada data " & X, 48, "Oops !!"
End Sub
2011/4/1 Raden Saputra <raden.saputra@gmail.com>
Dear Para Suhu XL-Mania
Terlampir data Excel, yang terdiri Kampus dan Identitas.
Kalau memakai cara biasa (mencari Nama Adi dari Sheet Identitas ke
Sheet Kampus) :
1. Aktif pada Sheet Identitas dan berada pada Cell yang bertuliskan nama Adi.
2. tekan tombol Ctrl_C kemudian huruf F dan ditutup dengan huruf V.
3. Kemudian pindah ke Sheet Kampus (dengan Ctrl_F masih Aktiv)
4. Tekan tombol "Find All" atau "Find Next".
5 Setelah melakukan point 4 kita akan ada persis pada cell
bertuliskan nama Adi.
kalau memakai cara diatas ada 5 (lima) cara, Mohon petunjuk bagaimana
Kalau memakai Ctrl_Find secara Makro.
Best Regards
--
Raden Saputra
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci |
| chart anda cuma segituhh? pokoknya™ yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci |
| chart anda cuma segituhh? pokoknya™ yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário