8 New Messages
Digest #1736
Messages
Sun Aug 19, 2012 4:04 am (PDT) . Posted by:
"sin.ur4t@yahoo.com" sin.ur4t
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®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Sat, 18 Aug 2012 04:53:32
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: 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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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-subscribe@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-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
----------------------------------------------------------Yahoo! Groups Links
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®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Sat, 18 Aug 2012 04:53:32
To: belajar-excel@
Reply-To: belajar-excel@
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"
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 <hendrikkarnadi@
To: "belajar-excel@
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.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
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?
Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai medan010712(
Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
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(
Kemudian buat macro sbb:
Sub ShBaru()
Sheets.Add
ActiveSheet.
End Sub
Salamat mencoba.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
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-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Sun Aug 19, 2012 4:09 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
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.ur4t@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 <hendrikkarnadi@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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-subscribe@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-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
>
>
>
>
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.ur4t@yahoo.
> **
>
>
> 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 <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *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"
> 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 <hendrikkarnadi@
> *To:* "belajar-excel@
> *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.ur4t@yahoo.
> *To:* Belajar Excel <belajar-excel@
> *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?
> sheet tsb sdh ada sblmnya.
>
> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
> medan010712(
> tsb dikopi secara manual.
>
> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry�
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *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(
>
> Kemudian buat macro sbb:
> Sub ShBaru()
> Sheets.Add
> ActiveSheet.
> End Sub
>
> Salamat mencoba.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* "sin.ur4t@yahoo.
> *To:* Belajar Excel <belajar-excel@
> *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-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
>
>
>
>
>
>
>
Sun Aug 19, 2012 6:31 am (PDT) . Posted by:
"sin.ur4t@yahoo.com" sin.ur4t
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.nmkid@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.ur4t@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 <hendrikkarnadi@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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-subscribe@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-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
>
>
>
>
Maaf, prosedur newsheet yg bpk mksd itu:
Sub newsheet()
Sheets.add
Activesheet.
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(
Pak karnadi sdh memberi rumus yahud yg sbnrnya sdh ready to use, tapi dasarnya manusia gak ada puasnya :D
Khusus utk sheet 'medan010712(
Jika berkenan mhn dituntun pak, mklm saya baru mulai berkenalan dgn makro.
Salam
Sinurat
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 19 Aug 2012 18:08:59
To: <belajar-excel@
Reply-To: belajar-excel@
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.ur4t@yahoo.
> **
>
>
> 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 <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *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"
> 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 <hendrikkarnadi@
> *To:* "belajar-excel@
> *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.ur4t@yahoo.
> *To:* Belajar Excel <belajar-excel@
> *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?
> sheet tsb sdh ada sblmnya.
>
> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
> medan010712(
> tsb dikopi secara manual.
>
> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry�
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *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(
>
> Kemudian buat macro sbb:
> Sub ShBaru()
> Sheets.Add
> ActiveSheet.
> End Sub
>
> Salamat mencoba.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* "sin.ur4t@yahoo.
> *To:* Belajar Excel <belajar-excel@
> *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-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
>
>
>
>
>
>
>
Sun Aug 19, 2012 6:48 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
oh bukan Pak... yang ini :
2012/8/17 Kid Mr. <mr.nmkid@gmail.com >
Coba dengan prosedur berikut :
Public Sub NewSheet()
Dim sht As Worksheet
Dim lSht As Long, lShtNum As Long, lShtName As Long
Dim sShtName As String
With Sheets("template")
'init nama dasaran sheet baru
sShtName = .Range("a2").Value & Format$(.Range("a1").Value,
"ddmmyy")
lShtName = Len(sShtName)
'hitung jumlah sheet dengan nama dasaran yang sama
lSht = 0
For Each sht In ThisWorkbook.Worksheets
If InStr(LCase$(sht.Name), LCase$(sShtName)) <> 0 Then
'nomor yang sudah digunakan
lShtNum = CLng(0 & _
Mid$( _
Replace$( _
Replace$(sht.Name, "
(", vbNullString) _
, ")", vbNullString) _
, lShtName + 1, 3) _
)
If lShtNum = 0 Then
lShtNum = 1
End If
'set nilai maksimum yang telah digunakan
If lShtNum > lSht Then
lSht = lShtNum
End If
End If
Next sht
'set nama sheet dengan nomor baru
If lSht <> 0 Then
sShtName = sShtName & " (" & lSht + 1 & ")"
End If
'buat sheet baru
Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
sht.Name = sShtName
.Activate 'kembali ke sheet template
End With
End Sub
Syarat :
data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
pasti tipe data di A1 adalah datetime.
Pastikan nama sheet input oleh user adalah template.
Jadi user tulis kata medan beserta tanggal (di 2 cell yang Anda maksud) itu
di sheet bernama template
Wassalam,
Kid.
2012/8/19 <sin.ur4t@yahoo.com >
> **
>
>
> 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�
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 19 Aug 2012 18:08:59 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * 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.ur4t@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 <hendrikkarnadi@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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-subscribe@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-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
2012/8/17 Kid Mr. <mr.nmkid@gmail.
Coba dengan prosedur berikut :
Public Sub NewSheet()
Dim sht As Worksheet
Dim lSht As Long, lShtNum As Long, lShtName As Long
Dim sShtName As String
With Sheets("template"
'init nama dasaran sheet baru
sShtName = .Range("a2")
"ddmmyy")
lShtName = Len(sShtName)
'hitung jumlah sheet dengan nama dasaran yang sama
lSht = 0
For Each sht In ThisWorkbook.
If InStr(LCase$
'nomor yang sudah digunakan
lShtNum = CLng(0 & _
Mid$( _
Replace$( _
Replace$(sht.
(", vbNullString) _
, ")", vbNullString) _
, lShtName + 1, 3) _
)
If lShtNum = 0 Then
lShtNum = 1
End If
'set nilai maksimum yang telah digunakan
If lShtNum > lSht Then
lSht = lShtNum
End If
End If
Next sht
'set nama sheet dengan nomor baru
If lSht <> 0 Then
sShtName = sShtName & " (" & lSht + 1 & ")"
End If
'buat sheet baru
Set sht = Sheets.Add(after:
sht.Name = sShtName
.Activate 'kembali ke sheet template
End With
End Sub
Syarat :
data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
pasti tipe data di A1 adalah datetime.
Pastikan nama sheet input oleh user adalah template.
Jadi user tulis kata medan beserta tanggal (di 2 cell yang Anda maksud) itu
di sheet bernama template
Wassalam,
Kid.
2012/8/19 <sin.ur4t@yahoo.
> **
>
>
> Makasih atensinya pak mr kid.
> Maaf, prosedur newsheet yg bpk mksd itu:
> Sub newsheet()
> Sheets.add
> Activesheet.
> 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(
> Jika sheet itu pun sdh ada, maka nama sheet yg baru ini mjd
> 'medan010712(
> 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(
> dihilangkan, shg namanya mjd 'medan010712'
> ok bgt.
>
> Jika berkenan mhn dituntun pak, mklm saya baru mulai berkenalan dgn makro.
>
> Salam
> Sinurat
>
>
> Powered by Telkomsel BlackBerry�
> ------------
> *From: * "Kid Mr." <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Sun, 19 Aug 2012 18:08:59 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *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.ur4t@yahoo.
>
>> **
>>
>>
>> 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 <hendrikkarnadi@
>> *Sender: * belajar-excel@
>> *Date: *Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
>> *To: *belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *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"
>> 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 <hendrikkarnadi@
>> *To:* "belajar-excel@
>> *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.ur4t@yahoo.
>> *To:* Belajar Excel <belajar-excel@
>> *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?
>> sheet tsb sdh ada sblmnya.
>>
>> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
>> medan010712(
>> tsb dikopi secara manual.
>>
>> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>>
>> Salam
>> Sinurat-sumut
>> Powered by Telkomsel BlackBerry�
>> ------------
>> *From: * hendrik karnadi <hendrikkarnadi@
>> *Sender: * belajar-excel@
>> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
>> *To: *belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *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(
>>
>> Kemudian buat macro sbb:
>> Sub ShBaru()
>> Sheets.Add
>> ActiveSheet.
>> End Sub
>>
>> Salamat mencoba.
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------
>> *From:* "sin.ur4t@yahoo.
>> *To:* Belajar Excel <belajar-excel@
>> *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-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
Sun Aug 19, 2012 7:01 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Berikut file lampirannya..
moga-moga bisa ter-upload dengan baik.
Coba jalankan beberapa kali, misal 3 atau 4 kali.
Kemudian, hapus yang sheet dengan (3)
dan jalankan ulang beberapa kali.
Maka hasil akan terus bertambah, bukan membuat index yang pernah
dihilangkan (sheet yang dihapus).
Hal ini akan menjaga informasi tentang jumlah perulangan yang pernah
dilakukan dan sudah ada berapa sheet yang terhapus berdasar index terakhir.
Jadi index terakhir yang akan menjadi acuan. Jika sheet dihapus sampai
index terakhirnya, maka statusnya bahwa seluruh proses akan diulang mulai
index terakhir yang tersisa.
Kid.
2012/8/19 Kid Mr. <mr.nmkid@gmail.com >
> oh bukan Pak... yang ini :
>
> 2012/8/17 Kid Mr. <mr.nmkid@gmail.com >
>
> Coba dengan prosedur berikut :
> Public Sub NewSheet()
> Dim sht As Worksheet
> Dim lSht As Long, lShtNum As Long, lShtName As Long
> Dim sShtName As String
>
> With Sheets("template")
> 'init nama dasaran sheet baru
> sShtName = .Range("a2").Value & Format$(.Range("a1").Value,
> "ddmmyy")
> lShtName = Len(sShtName)
>
> 'hitung jumlah sheet dengan nama dasaran yang sama
> lSht = 0
> For Each sht In ThisWorkbook.Worksheets
> If InStr(LCase$(sht.Name), LCase$(sShtName)) <> 0 Then
> 'nomor yang sudah digunakan
> lShtNum = CLng(0 & _
> Mid$( _
> Replace$( _
> Replace$(sht.Name, "
> (", vbNullString) _
> , ")", vbNullString) _
> , lShtName + 1, 3) _
> )
> If lShtNum = 0 Then
> lShtNum = 1
> End If
>
> 'set nilai maksimum yang telah digunakan
> If lShtNum > lSht Then
> lSht = lShtNum
> End If
> End If
> Next sht
>
> 'set nama sheet dengan nomor baru
> If lSht <> 0 Then
> sShtName = sShtName & " (" & lSht + 1 & ")"
> End If
>
> 'buat sheet baru
> Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
> sht.Name = sShtName
>
> .Activate 'kembali ke sheet template
> End With
> End Sub
>
> Syarat :
> data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
> pasti tipe data di A1 adalah datetime.
> Pastikan nama sheet input oleh user adalah template.
> Jadi user tulis kata medan beserta tanggal (di 2 cell yang Anda maksud)
> itu di sheet bernama template
>
>
> Wassalam,
> Kid.
>
> 2012/8/19 <sin.ur4t@yahoo.com >
>
> **
>>
>>
>> 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�
>> ------------------------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Sun, 19 Aug 2012 18:08:59 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * 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.ur4t@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 <hendrikkarnadi@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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 <hendrikkarnadi@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.ur4t@yahoo.com " <sin.ur4t@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-subscribe@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-owner@yahoogroups.com
>>>
>>> keluar dari membership milis (UnSubscribe):
>>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>>> ----------------------------------------------------------Yahoo!
>>> Groups Links
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
moga-moga bisa ter-upload dengan baik.
Coba jalankan beberapa kali, misal 3 atau 4 kali.
Kemudian, hapus yang sheet dengan (3)
dan jalankan ulang beberapa kali.
Maka hasil akan terus bertambah, bukan membuat index yang pernah
dihilangkan (sheet yang dihapus).
Hal ini akan menjaga informasi tentang jumlah perulangan yang pernah
dilakukan dan sudah ada berapa sheet yang terhapus berdasar index terakhir.
Jadi index terakhir yang akan menjadi acuan. Jika sheet dihapus sampai
index terakhirnya, maka statusnya bahwa seluruh proses akan diulang mulai
index terakhir yang tersisa.
Kid.
2012/8/19 Kid Mr. <mr.nmkid@gmail.
> oh bukan Pak... yang ini :
>
> 2012/8/17 Kid Mr. <mr.nmkid@gmail.
>
> Coba dengan prosedur berikut :
> Public Sub NewSheet()
> Dim sht As Worksheet
> Dim lSht As Long, lShtNum As Long, lShtName As Long
> Dim sShtName As String
>
> With Sheets("template"
> 'init nama dasaran sheet baru
> sShtName = .Range("a2")
> "ddmmyy")
> lShtName = Len(sShtName)
>
> 'hitung jumlah sheet dengan nama dasaran yang sama
> lSht = 0
> For Each sht In ThisWorkbook.
> If InStr(LCase$
> 'nomor yang sudah digunakan
> lShtNum = CLng(0 & _
> Mid$( _
> Replace$( _
> Replace$(sht.
> (", vbNullString) _
> , ")", vbNullString) _
> , lShtName + 1, 3) _
> )
> If lShtNum = 0 Then
> lShtNum = 1
> End If
>
> 'set nilai maksimum yang telah digunakan
> If lShtNum > lSht Then
> lSht = lShtNum
> End If
> End If
> Next sht
>
> 'set nama sheet dengan nomor baru
> If lSht <> 0 Then
> sShtName = sShtName & " (" & lSht + 1 & ")"
> End If
>
> 'buat sheet baru
> Set sht = Sheets.Add(after:
> sht.Name = sShtName
>
> .Activate 'kembali ke sheet template
> End With
> End Sub
>
> Syarat :
> data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
> pasti tipe data di A1 adalah datetime.
> Pastikan nama sheet input oleh user adalah template.
> Jadi user tulis kata medan beserta tanggal (di 2 cell yang Anda maksud)
> itu di sheet bernama template
>
>
> Wassalam,
> Kid.
>
> 2012/8/19 <sin.ur4t@yahoo.
>
> **
>>
>>
>> Makasih atensinya pak mr kid.
>> Maaf, prosedur newsheet yg bpk mksd itu:
>> Sub newsheet()
>> Sheets.add
>> Activesheet.
>> 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(
>> Jika sheet itu pun sdh ada, maka nama sheet yg baru ini mjd
>> 'medan010712(
>> 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(
>> dihilangkan, shg namanya mjd 'medan010712'
>> ok bgt.
>>
>> Jika berkenan mhn dituntun pak, mklm saya baru mulai berkenalan dgn makro.
>>
>> Salam
>> Sinurat
>>
>>
>> Powered by Telkomsel BlackBerry�
>> ------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Sun, 19 Aug 2012 18:08:59 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *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.ur4t@yahoo.
>>
>>> **
>>>
>>>
>>> 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 <hendrikkarnadi@
>>> *Sender: * belajar-excel@
>>> *Date: *Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
>>> *To: *belajar-excel@
>>> *ReplyTo: * belajar-excel@
>>> *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"
>>> 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 <hendrikkarnadi@
>>> *To:* "belajar-excel@
>>> *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.ur4t@yahoo.
>>> *To:* Belajar Excel <belajar-excel@
>>> *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?
>>> sheet tsb sdh ada sblmnya.
>>>
>>> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
>>> medan010712(
>>> tsb dikopi secara manual.
>>>
>>> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>>>
>>> Salam
>>> Sinurat-sumut
>>> Powered by Telkomsel BlackBerry�
>>> ------------
>>> *From: * hendrik karnadi <hendrikkarnadi@
>>> *Sender: * belajar-excel@
>>> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
>>> *To: *belajar-excel@
>>> *ReplyTo: * belajar-excel@
>>> *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(
>>>
>>> Kemudian buat macro sbb:
>>> Sub ShBaru()
>>> Sheets.Add
>>> ActiveSheet.
>>> End Sub
>>>
>>> Salamat mencoba.
>>>
>>> Salam,
>>> Hendrik Karnadi
>>>
>>> ------------
>>> *From:* "sin.ur4t@yahoo.
>>> *To:* Belajar Excel <belajar-excel@
>>> *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-
>>>
>>> posting ke milis, kirimkan ke:
>>> belajar-excel@
>>>
>>> berkunjung ke web milis
>>> http://tech.
>>>
>>> melihat file archive / mendownload lampiran
>>> http://www.mail-
>>> atau (sejak 25-Apr-2011) bisa juga di :
>>> http://milis-
>>>
>>> menghubungi moderators & owners: belajar-excel-
>>>
>>> keluar dari membership milis (UnSubscribe)
>>> kirim mail kosong ke belajar-excel-
>>> ------------
>>> Groups Links
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Sun Aug 19, 2012 7:09 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
e...
yang ...
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa
aku salah contek ya ???)
>> untuk menampilkan column head, biasanya dirujuk ke sebuah range tertentu
(lihat lampiran)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya
bagaimana ?
>> Header dalam sebuah listbox mengikuti besaran font dari object control
yang berlaku untuk seluruh item listbox. Jadi sepertinya ndak bisa
dilakukan.
Kadang kala, header listbox diletakkan diluar listbox memanfaatkan object
label atau listbox 1 baris, tetapi untuk listbox dengan multi column, akan
sulit mengatur posisi setiap label control untuk header atau listbox untuk
header ketika listbox untuk item di scroll ke kanan. Jika lebar listbox
bisa mencakup seluruh kolom (tidak perlu scroll) maka akan lebih mudah.
Wassalam,
Kid.
2012/8/18 <sumardiana596@gmail.com >
> **
>
>
> masih >250KB ya...?sblmnya ku cek 214KB .Maaf..[image: Sick smile]..kurang
> teliti!!. Dan mohon pencerahanya...
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *Sent:* Saturday, August 18, 2012 6:25 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tampilkan Columnheads listbox
>
>
>
> File lampiran dari Pak Mardi yang telah dihilangkan object shape
> picture-nya.
>
> Wassalam,
> Kid.
>
> ************************************
> Selamat Hari Raya Idul Fitri 1433 H
> Mohon Maaf Lahir dan Batin
> ************************************
>
> 2012/8/18 <sumardiana596@gmail.com >
>
>> **
>>
>>
>> Terlampir adalah contoh dari Mr Kid yang disampaikan oleh Pak O�
>> Seno.Yang mau saya tanyakan :
>> 1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa
>> aku salah contek ya ???)
>> 2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya
>> bagaimana ?
>> Mohon pencerahan dari master2 dan member yang lain
>>
>> terima kasih,
>>
>> Hp : +6281.382.103.088
>> Email : mailto:sumardiana596%40gmail.com <sumardiana596%40gmail.com>
>>
>>
>> --- Mods ---
>> File lampiran yang lebih dari 250KB dihilangkan.
>> ------------
>>
>> **********************************
>> Selamat Hari Raya Idul Fitri 1433H
>> Mohon Maaf Lahir dan Batin
>> **********************************
>>
>>
>
>
yang ...
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa
aku salah contek ya ???)
>> untuk menampilkan column head, biasanya dirujuk ke sebuah range tertentu
(lihat lampiran)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya
bagaimana ?
>> Header dalam sebuah listbox mengikuti besaran font dari object control
yang berlaku untuk seluruh item listbox. Jadi sepertinya ndak bisa
dilakukan.
Kadang kala, header listbox diletakkan diluar listbox memanfaatkan object
label atau listbox 1 baris, tetapi untuk listbox dengan multi column, akan
sulit mengatur posisi setiap label control untuk header atau listbox untuk
header ketika listbox untuk item di scroll ke kanan. Jika lebar listbox
bisa mencakup seluruh kolom (tidak perlu scroll) maka akan lebih mudah.
Wassalam,
Kid.
2012/8/18 <sumardiana596@
> **
>
>
> masih >250KB ya...?sblmnya ku cek 214KB .Maaf..[image: Sick smile]..kurang
> teliti!!. Dan mohon pencerahanya.
> *From:* Kid Mr. <mr.nmkid@gmail.
> *Sent:* Saturday, August 18, 2012 6:25 PM
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Tampilkan Columnheads listbox
>
>
>
> File lampiran dari Pak Mardi yang telah dihilangkan object shape
> picture-nya.
>
> Wassalam,
> Kid.
>
> ************
> Selamat Hari Raya Idul Fitri 1433 H
> Mohon Maaf Lahir dan Batin
> ************
>
> 2012/8/18 <sumardiana596@
>
>> **
>>
>>
>> Terlampir adalah contoh dari Mr Kid yang disampaikan oleh Pak O�
>> Seno.Yang mau saya tanyakan :
>> 1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa
>> aku salah contek ya ???)
>> 2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya
>> bagaimana ?
>> Mohon pencerahan dari master2 dan member yang lain
>>
>> terima kasih,
>>
>> Hp : +6281.382.103.
>> Email : mailto:sumardiana59
>>
>>
>> --- Mods ---
>> File lampiran yang lebih dari 250KB dihilangkan.
>> ------------
>>
>> ************
>> Selamat Hari Raya Idul Fitri 1433H
>> Mohon Maaf Lahir dan Batin
>> ************
>>
>>
>
>
Sun Aug 19, 2012 7:19 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
-> module])
public sub AturKolom()
dim lCols as long
activesheet.calculate
range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan
lebar kolom yang diinginkan
'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris
di atas
'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true
menjadi false untuk meng-un-hide kolom
end sub
Wassalam,
Kid.
2012/8/18 rere <rererua@yahoo.com >
> **
>
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
-> module])
public sub AturKolom()
dim lCols as long
activesheet.
range("d1").
lebar kolom yang diinginkan
'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris
di atas
'range("d1")
menjadi false untuk meng-un-hide kolom
end sub
Wassalam,
Kid.
2012/8/18 rere <rererua@yahoo.
> **
>
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
Sun Aug 19, 2012 7:27 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Apakah ada penggunaan fungsi-fungsi seperti :
Now(),Date(),Offset(),Indirect()
pada file aslinya ?
baik dalam penentuan nama range maupun pada formula disebuah sheet ?
Kid.
2012/8/18 dhen.baguse <bagusejogja@yahoo.com >
> **
>
>
> Salam Sahabat Excel,
> saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat
> excel agar sedikit yahud...;)
>
> wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut
> belajar excel...
>
>
>
Now(),Date()
pada file aslinya ?
baik dalam penentuan nama range maupun pada formula disebuah sheet ?
Kid.
2012/8/18 dhen.baguse <bagusejogja@
> **
>
>
> Salam Sahabat Excel,
> saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat
> excel agar sedikit yahud...;)
>
> wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut
> belajar excel...
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@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-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@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-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar