Solved, pak karnadi, sesuai seutuhnya.. Case closed :D
Sekali lagi terima kasih, mhn jgn bosan membimbing utk kasus2 selanjutnya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarn...@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 19 Aug 2012 09:14:16
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:
- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika
salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap
berurut), kecuali
- nama yaitu bagian yg "(1)" itu ingin dihilangkan.
Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:
mySheet.Name = myBase & "(" & mySuffix & ")" dengan
mySheet.Name = myBase
Semoga pas sesuai keinginan (kayak iklan pertamina aja).
File revisinya terlampir.
Salam,
Hendrik Karnadi
________________________________
From: "sin.u...@yahoo.com" <sin.u...@yahoo.com>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
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 utamanyaadalah 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
