bener2 ngga nyesel masuk milis ini. file nya mba ctv sudah saya buat mainan juga...enak juga ya main-main sama UDF...jadi pgn iseng2 coba yg lain. btw terima kasih lagi mba rara, mr.kid n pak hendrik.
------- Original message ------- > From: Kid Mr. <[email protected]> > To: [email protected] > Sent: 30.3., 14:18 > > > > 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
