Re: ]] XL-mania [[ menemukan sheet

 

ikutan dong.... (walaupun sudah terlambat 5 hari)
meskipun membuatkan makronya, tetapi saya tetap mendukung usulan pak Kusnadi
yaitu mengorganisasikan data tidak harus dengan cara dipisahpisah dlm
BUANYAK sheet sperti itu

workbook terlampir mengusung "fitur baru"
- ketika dibuka >> langsung menampilkan ListBox berisi daftar nma sheets.
- nama sheet dapat dipilih secara cepat: dengan mouse-pointer maupun dengan
  tombol panah atas / bawah
- setiap nama sheet yg sedang diipilih dlm listbox langsung diaktifkan
- jika sudah ketemu sheet yg anda kehendaki tinggal menutup userformnya.

lain kali jika ingin menampilkan UserForm (berisi Listbox daftar Nama Sheet)
anda tinggal Klik kanan di cell di sheet manapun


vba codingnya kira kira spt ini

1. di module milik ThisWorkbook

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
           ByVal Target As Range, Cancel As Boolean)
Dim YN As Long
YN = MsgBox("Mo lihat daftar sheets ??", _
vbQuestion + vbYesNo, ThisWorkbook.Name)
If YN = vbYes Then
Cancel = True
UserForm1.Show
End If
End Sub

dibuat 1 UserForm, di dalm userform dibuat 1 ListBox
code vba di module milik UserForm1

Private Sub ListBox1_Change()
Sheets(ListBox1.Value).Activate
End Sub

Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next
End Sub

2010/5/26 dyat <dyat_dy@yahoo.com>

hai xl mania mohon bantuannya ya..

gimana menemukan sheet dari sebuah worksheet...ada rumus macronya
gak?...karena biasanya data saya dalam 1 worksheet ada ratusan sheet...

gimana cara mudahnya, agar saya tidak selalu menggeser k'kiri dan
k'kanan untuk menemukan sheet yg saya inginkan..

terima kasih... ^^

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

• New Members 74

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat hari raya waisak untuk merayakan... selamat long weekend. |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___