Kalau nyari "kata" nya mau di seluruh sheets bisa pakai macro dalam file terlampir.
Salam,
HK
On Wednesday, September 10, 2014 8:14 PM, "hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Kiki,
Ini adalah macro sekali pakai (cari),
Sub Cari()
Dim a
a = InputBox("Masukkan kata yang mau dicari", "Find")
On Error GoTo Pesan
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Exit Sub
Pesan:
MsgBox "Kata yang dicari tidak ada", vbCritical, "KESAN DAN PESAN"
End Sub
Icon Macro tsb diletakkan pada Quick Access Toolbar mel. Customize Quick Access
Toolbar.
Waktu mau dipake tinggal klik Iconnya.
Salam,
HK
On Wednesday, September 10, 2014 4:43 PM, "kiki tanjung kiek...@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Pak Hendrik
Terima kasih atas pencerahannya.
Jika berkenan, bolehkah diberi petunjuk dalam pembuatan macro nya?
On Wednesday, September 10, 2014 11:47 AM, "hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Kiki,
Coba dibuat macronya.
Macronya diinsert di Quick Access Toolbar.
Salam,
HK
On Wednesday, September 10, 2014 11:28 AM, "kiki tanjung kiek...@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Teman-teman
Mohon pencerahan nya, apakah ada cara untuk menampilkan fasilitas "search"
secara permanen dalam bentuk bar?
Selama ini saya kalau ingin memakai fasilitas ini, menggunakan Ctrl+F atau klik
"Find & Search" di ribbon.
Nah, adakah cara agar fasilitas "search" ini ditampilkan secara permanen dalam
bentuk bar, seperti Formula Bar ?
Jadi jika ingin mencari sesuatu, tinggal ketik saja.
Terima kasih atas pencerahannya.
Find certain word in all worksheets.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
