9 New Messages
Digest #1735
Messages
Fri Aug 17, 2012 2:07 pm (PDT) . Posted by:
"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...
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...
Sat Aug 18, 2012 4:20 am (PDT) . Posted by:
"sumardiana596@gmail.com" hekerkampoeng
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 : sumardiana596@gmail.com
--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------
**********************************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
**********************************
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 : sumardiana596@
--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------
************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
************
Sat Aug 18, 2012 4:25 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
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 : sumardiana596@gmail.com
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dihilangkan.
> ------------
>
> **********************************
> Selamat Hari Raya Idul Fitri 1433H
> Mohon Maaf Lahir dan Batin
> **********************************
>
>
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 : sumardiana596@
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dihilangkan.
> ------------
>
> ************
> Selamat Hari Raya Idul Fitri 1433H
> Mohon Maaf Lahir dan Batin
> ************
>
>
Sat Aug 18, 2012 7:56 am (PDT) . Posted by:
"sumardiana596@gmail.com" hekerkampoeng
masih >250KB ya...?sblmnya ku cek 214KB .Maaf....kurang teliti!!. Dan mohon pencerahanya...
From: Kid Mr.
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
--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------
**********************************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
**********************************
From: Kid Mr.
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
************
Sat Aug 18, 2012 4:53 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
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
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-
------------
Sat Aug 18, 2012 7:58 am (PDT) . Posted by:
"sin.ur4t@yahoo.com" sin.ur4t
Yth. Pak karnadi..
Wuiihhh...nggak nyangka euy, ternyata bpk tetap berusaha bantu solusi, ckckck... Mencicipi kebaikan pak karnadi yg rela men-capek-kan diri melepaskan ke-galau-an saya pdhl masa libur lebaran begini, hati saya berbunga-bunga bagai gadis muda belia yg menerima seikat bunga dari pemuda idaman.. (Gombal lebay Hehe)..
Petuahnya segera akan saya terapkan..
Trm ksh bnyk pak, semoga bpk/keluarga sehat selalu, amin..
Wassalam
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
Wuiihhh...nggak nyangka euy, ternyata bpk tetap berusaha bantu solusi, ckckck... Mencicipi kebaikan pak karnadi yg rela men-capek-kan diri melepaskan ke-galau-an saya pdhl masa libur lebaran begini, hati saya berbunga-bunga bagai gadis muda belia yg menerima seikat bunga dari pemuda idaman.. (Gombal lebay Hehe)..
Petuahnya segera akan saya terapkan..
Trm ksh bnyk pak, semoga bpk/keluarga sehat selalu, amin..
Wassalam
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-
------------
Sat Aug 18, 2012 8:12 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yth. Pak Sinurat,
Sama2 Pak.
Kebetulan saya teringat buku tersebut yang saya pakai ketika pertama kali belajar macro.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Saturday, 18 August 2012, 20:19
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Yth. Pak karnadi..
Wuiihhh...nggak nyangka euy, ternyata bpk tetap berusaha bantu solusi, ckckck... Mencicipi kebaikan pak karnadi yg rela men-capek-kan diri melepaskan ke-galau-an saya pdhl masa libur lebaran begini, hati saya berbunga-bunga bagai gadis muda belia yg menerima seikat bunga dari pemuda idaman.. (Gombal lebay Hehe)..
Petuahnya segera akan saya terapkan..
Trm ksh bnyk pak, semoga bpk/keluarga sehat selalu, amin..
Wassalam
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 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
Sama2 Pak.
Kebetulan saya teringat buku tersebut yang saya pakai ketika pertama kali belajar macro.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Saturday, 18 August 2012, 20:19
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Yth. Pak karnadi..
Wuiihhh...nggak nyangka euy, ternyata bpk tetap berusaha bantu solusi, ckckck... Mencicipi kebaikan pak karnadi yg rela men-capek-kan diri melepaskan ke-galau-an saya pdhl masa libur lebaran begini, hati saya berbunga-bunga bagai gadis muda belia yg menerima seikat bunga dari pemuda idaman.. (Gombal lebay Hehe)..
Petuahnya segera akan saya terapkan..
Trm ksh bnyk pak, semoga bpk/keluarga sehat selalu, amin..
Wassalam
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"
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-
------------
Sat Aug 18, 2012 7:57 am (PDT) . Posted by:
"rere" rererua
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 ??
Sat Aug 18, 2012 8:17 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yang mau diubah mulai dari kolom ke 4 (kolom d) sebanyak 4 kolom (d,e,f,g) ? Ukurannya s, m, l atau xl ?
Salam,
Hendrik Karnadi
________________________________
From: rere <rererua@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Saturday, 18 August 2012, 20:46
Subject: [belajar-excel] select beberapa coloumb
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 ??
Salam,
Hendrik Karnadi
____________
From: rere <rererua@yahoo.
To: belajar-excel@
Sent: Saturday, 18 August 2012, 20:46
Subject: [belajar-excel] select beberapa coloumb
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 ??
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