Coba buat function :
public function SheetnyaAda( sNamaSheet as string ) as long
on error resume next
sheetnyaada=-not sheets(snamasheet) is nothing
err.clear
on error goto 0
end function
Cara pakai : misal di sebuah prosedur
public sub SebuahProsedur()
if sheetnyaada("mysheet")<>0 then
'kodenya di here ya...
endif
end sub
Kid.
On Fri, Mar 30, 2012 at 13:56, <[email protected]> wrote:
> **
>
>
> terima kasih atas bantuannya pak Hendrik,terima kasih juga untuk contoh
> lampiran xlsm nya.
>
> tadinya saya berpikir macro excel sudah dapat mendeteksi setiap nama
> sheets yg dimiliki tanpa menggunakan pengecekan For Next.
>
>
> ------- Original message -------
> > From: hendrik karnadi <[email protected]>
> > To: [email protected]
> > Sent: 30.3., 13:13
> >
> >
> >
> > Coba di perbaiki sedikit Macronya,
> >
> > Sub Coba()
> > Dim ws As Worksheet 'utk deklarasi variable
> > Application.DisplayAlerts = False 'utk meniadakan display
> (tampilan) dialog
> > For Each ws In ActiveWorkbook.Worksheets 'utk looping seluruh
> worksheets dalam Workbook
> > If ws.Name = "Hapus" Then
> > ws.Delete 'Untuk menghapus ws (Worksheet) bernama "Hapus"
> > End If
> > Next
> > End Sub
> >
> > Salam,
> > Hendrik Karnadi
> >
> > ---------------
>
> > From: "[email protected]" <[email protected]>
> > To: [email protected]
> > Sent: Friday, 30 March 2012, 12:13
> > Subject: [belajar-excel] Macro - belajar deteksi nama sheets
> >
> >
> > dear all,
> > mohon dibantu lagi.
> >
> > saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang
> dituju,
> > bila ada nanti nya akan ada action berikutnya. saya masih bingung
> bagaimana
> > cara deteksinya.
> > yang saya buat seperti ini (misal sheet nya ingin di delete) :
> >
> > If Worksheets.Name = "hapus" Then
> > Sheets("hapus").Delete
> > End If
> >
> > tapi malah muncul warning kira2 bunyinya "object or method not find".
> > penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
> > tentang workbook dibuat expired.
> > kira2 salahnya dimana ya?
> > maaf kalau pertanyaannya newbie bgt.
> >
> > salam
> > vega
> >
> >
> >
> >
>
>
>
