Makasih atensinya pak mr kid.
Maaf, prosedur newsheet yg bpk mksd itu:
Sub newsheet()
Sheets.add
Activesheet.Name="medan010712"
End sub
Begitu bukan?? Itu sdh dilakukan pak. Problemnya ada pd "cara penamaan sheet".
Sheet yg baru dibentuk ingin diberi nama sesuai isi sel (dlm hal ini sel A3)
secara otomatis.
Jika ingin membuat sheet baru dgn nama 'medan010712' dan ternyata sheet tsb sdh
ada, maka sheet yg baru ini otomatis diberi nama 'medan010712(2)'.. Jika sheet
itu pun sdh ada, maka nama sheet yg baru ini mjd 'medan010712(3)' dst..
-->mirip2 cara excel menamai sheet saat kita inserting worksheet secara manual.
Pak karnadi sdh memberi rumus yahud yg sbnrnya sdh ready to use, tapi dasarnya
manusia gak ada puasnya :D
Khusus utk sheet 'medan010712(1)' saya ingin bagian yg "(1)" itu dihilangkan,
shg namanya mjd 'medan010712'. Utk nama sheet Yg lainnya sdh ok bgt.
Jika berkenan mhn dituntun pak, mklm saya baru mulai berkenalan dgn makro.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: "Kid Mr." <mr.nm...@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 19 Aug 2012 18:08:59
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Belum mencoba prosedur newsheet ya.
Beri nama sheet lokasi input nama sheet dengan template.
Kemudian di vbe menu insert module dan copas prosedur newsheet.
Dari worksheet, run macro bernama new sheet.
Wassalam,
Kid.
On Aug 19, 2012 6:04 PM, <sin.u...@yahoo.com> wrote:
> **
>
>
> Sdg libur lebaran pak??
> Mau laporan nih. Makro sdh saya terapkan, pd dasarnya sdh oke, hanya msh
> ada yg terasa kurang manis, yaitu saat running makro pertama kali..
> Running makro pertama kali akan membentuk sheet '010712(1)'..
>
> Jika sebagian nama yaitu bagian yg "(1)" itu ingin dihilangkan gmn
> caranya??
> (khusus utk angka (1) saja. Utk angka (2),(3),dst sdh cucok bgt)
>
> Saya sdh coba sedikit ubah makro yaitu mysuffix=1 menjadi mysuffix=0,
> hasilnya malah nama sheet mjd '010712(0)'..
>
> Mhn bimbingannya lagi pak, trm ksh sblmnya.
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * hendrik karnadi <hendrikkarn...@yahoo.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Fw: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Akhirnya saya temukan Macronya dalam buku karangan Reed Jacobson terbitan
> th 2001 (sudah 11 tahun namun masih solid)
> Macronya seperti ini:
>
> Sub MembuatSheetsSerial()
> Dim mySheet As Worksheet
> Dim myBase As String
> Dim mySuffix As Integer
>
> Set mySheet = Worksheets.Add
> myBase = Sheets("Sheet1").Range("A3").Value 'cuma ini modifikasi dari
> saya, selebihnya tulisan beliau
> mySuffix = 1
>
> On Error Resume Next
> mySheet.Name = myBase & "(" & mySuffix & ")"
> Do Until Err.Number = 0
> Err.Clear
> mySuffix = mySuffix + 1
> mySheet.Name = myBase & "(" & mySuffix & ")"
> Loop
> End Sub
>
> Kunci utamanya adalah menggunakan Do Loop dengan mentrap Err (Error)
> sampai tidak ada lagi Error (Err.Number = 0)
>
> File beserta macronya terlmpir.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarn...@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 16 August 2012, 8:44
> *Subject:* Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Maaf, yang begini sementara saya belum bisa buat.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "sin.u...@yahoo.com" <sin.u...@yahoo.com>
> *To:* Belajar Excel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 16 August 2012, 1:44
> *Subject:* Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
>
> Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd
> kasus yg saya hadapi..
> maaf ternyata msh ada masalah yg tadinya tdk terfikirkan..
> Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita
> bentuk lagi sheet yg sama, maka akan muncul pesan error(debug??) Karena
> sheet tsb sdh ada sblmnya.
>
> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
> medan010712(2), medan010712(3) dst --> persis seperti nama sheet kalo sheet
> tsb dikopi secara manual.
>
> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * hendrik karnadi <hendrikkarn...@yahoo.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu
> sel(mis. A3) untuk menggabungkan sel A1 dan A2.
> Sel A3 berisi function sbb:
> =LEFT(A2,FIND("-",A2)-1)&DAY(A1)&RIGHT("00"&MONTH(A1),2)&RIGHT(YEAR(A1),2)
>
> Kemudian buat macro sbb:
> Sub ShBaru()
> Sheets.Add
> ActiveSheet.Name = Sheets("Sheet1").Range("A3").Value
> End Sub
>
> Salamat mencoba.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "sin.u...@yahoo.com" <sin.u...@yahoo.com>
> *To:* Belajar Excel <belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, 15 August 2012, 16:54
> *Subject:* [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Salam exceler..
> Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi
> nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan
> makro??
>
> Misalkan pada suatu sheet:
> Sel A1 berisi tanggal --> 17 agustus 2012
> Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan
> propinsi yg dipisahkan dgn tanda penghubung "-").
>
> Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"??
> (Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit
> tanggal, dua digit bulan, dan dua digit tahun dari sel A1)..
>
> mohon dicerahkan, trm ksh sblmnya.. :)
>
> Wassalam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ---------------------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscr...@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-ow...@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscr...@yahoogroups.com
> ---------------------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
>
>
>
>
