Dear dhen.baguse,

Maaf, saya memang belum mendalami persoalan yang sedang anda hadapi karena 
belum mengikuti secara mendetail.


Mengutip pernyataan anda (warna biru) coba lihat kembali 2 kalimat kutipan dari 
jawaban saya:
"Mencoba menjawab sebagian pertanyaan anda......, kebetulan saya 
sedang mengutak atik macro yang mungkin mirip dengan kebutuhan anda".

"Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut".

Salam,
Hendrik Karnadi



________________________________
 From: dhen.baguse <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Sunday, 18 November 2012, 15:51
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
 

  
Salam Mas Hendri Karnadi khususnya dan master master lainnya umumnya, 
mungkin saya salah menafsirkan pikiran saya dengan apa yang saya tuliskan. 
Kalau yang di lampirkan mas Hendri itu menhapus sheet dan yang saya tanyakan 
menghapus isi sheet yang lebih dari 1 sheet dalam workbook. Coding yang sudah 
ada (sharing dari Miss Jan di milis belajar excel juga) sbb :

If ws.Name <> "Input" Then

Kalau dari sepenggal koding tersebut menerangkan bahwa data yang akan dihapus 
selain sheet "input", nah... bagimana menambahi di coding tersebut agar tidak 
hanya sheet "input" saja, melaninkan ada sheet lainnya. saya coba menambahkan 
tetapi pasti erorr:)

terimakasih atas semuanya

________________________________
From: hendrik karnadi <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Sunday, November 18, 2012 2:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet


  
Dear dhen.baguse,

Mencoba menjawab sebagian pertanyaan anda (warna merah), kebetulan saya sedang 
mengutak atik macro yang mungkin mirip dengan kebutuhan anda.
Macro dalam file terlampir terdiri dari dua bagian:

1. Membuat daftar sheet dalam suatu file (Range("A1:A8"))

2. Menghapus sheet selain sheet yang disebut dalam Range("B1:B3") 

Semoga dapat menjadi bahan renungan untuk pengembangan lebih lanjut.

Salam,
Hendrik Karnadi

________________________________

 

Kirim email ke