belajar-excel : Messages : 18592-18621 of 25331

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@...


--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------


**********************************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
**********************************

#18594

From: "Kid Mr." <mr.nmkid@...>
Date: Sat Aug 18, 2012 11:25 am
Subject: Re: 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.088
Email : sumardiana596@...

--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------

**********************************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
**********************************

#18595

From: hendrik karnadi <hendrikkarnadi@...>
Date: Sat Aug 18, 2012 11:53 am
Subject: Fw: 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@...>
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@..." <sin.ur4t@...>
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

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
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

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-excel/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-excel-digest@yahoogroups.com
belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

#18596

From: <sumardiana596@...>
Date: Sat Aug 18, 2012 2:20 pm
Subject: Re: Tampilkan Columnheads listbox

hekerkampoeng

masih >250KB ya...?sblmnya ku cek 214KB .Maaf.. Sick smile

..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

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.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
**********************************

#18597

From: "rere" <rererua@...>
Date: Sat Aug 18, 2012 1:46 pm
Subject: select beberapa coloumb

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 ??

#18598

From: sin.ur4t@...
Date: Sat Aug 18, 2012 1:19 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

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

From: hendrik karnadi <hendrikkarnadi@...>

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:

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

Maaf, yang begini sementara saya belum bisa buat.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru

#18599

From: hendrik karnadi <hendrikkarnadi@...>
Date: Sat Aug 18, 2012 3:12 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

Yth. Pak Sinurat,

Sama2 Pak.

Kebetulan saya teringat buku tersebut yang saya pakai ketika pertama kali belajar macro.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Saturday, 18 August 2012, 20:19
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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:

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

Maaf, yang begini sementara saya belum bisa buat.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru

#18600

From: hendrik karnadi <hendrikkarnadi@...>
Date: Sat Aug 18, 2012 3:17 pm
Subject: Re: select beberapa coloumb

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@...>
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 ??

#18601

From: sin.ur4t@...
Date: Sun Aug 19, 2012 10:48 am
Subject: Re: Makro - Memberi Nama Sheet Baru

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

From: hendrik karnadi <hendrikkarnadi@...>

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:

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

Maaf, yang begini sementara saya belum bisa buat.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru

#18602

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 11:08 am
Subject: Re: 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@...> 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@...>
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@...>
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@..." <sin.ur4t@...>
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@...>
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@..." <sin.ur4t@...>
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

<*> To visit your group on the web, go to:
� � http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
� � Individual Email | Traditional

<*> To change settings online go to:
� � http://groups.yahoo.com/group/belajar-excel/join
� � (Yahoo! ID required)

<*> To change settings via email:
� � belajar-excel-digest@yahoogroups.com
� � belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
� � belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
� � http://docs.yahoo.com/info/terms/

#18603

From: sin.ur4t@...
Date: Sun Aug 19, 2012 12:51 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

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

From: "Kid Mr." <mr.nmkid@...>

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

Wassalam,
Kid.

On Aug 19, 2012 6:04 PM, <sin.ur4t@...> 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@...>
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@...>
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@..." <sin.ur4t@...>
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@...>
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@..." <sin.ur4t@...>
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

<*> To visit your group on the web, go to:
� � http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
� � Individual Email | Traditional

<*> To change settings online go to:
� � http://groups.yahoo.com/group/belajar-excel/join
� � (Yahoo! ID required)

<*> To change settings via email:
� � belajar-excel-digest@yahoogroups.com
� � belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
� � belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
� � http://docs.yahoo.com/info/terms/

#18604

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 1:48 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

oh bukan Pak... yang ini :

2012/8/17 Kid Mr. <mr.nmkid@...>
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@...>

�

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@...>
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@...> 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@...>
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@...>
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@..." <sin.ur4t@...>
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@...>
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@..." <sin.ur4t@...>
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

<*> To visit your group on the web, go to:
� � http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
� � Individual Email | Traditional

<*> To change settings online go to:
� � http://groups.yahoo.com/group/belajar-excel/join
� � (Yahoo! ID required)

<*> To change settings via email:
� � belajar-excel-digest@yahoogroups.com
� � belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
� � belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
� � http://docs.yahoo.com/info/terms/

#18605

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 2:00 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

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@...>

oh bukan Pak... yang ini :

2012/8/17 Kid Mr. <mr.nmkid@...>

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@...>

�

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@...>
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@...> 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@...>
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@...>
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@..." <sin.ur4t@...>
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@...>
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@..." <sin.ur4t@...>
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

<*> To visit your group on the web, go to:
� � http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
� � Individual Email | Traditional

<*> To change settings online go to:
� � http://groups.yahoo.com/group/belajar-excel/join
� � (Yahoo! ID required)

<*> To change settings via email:
� � belajar-excel-digest@yahoogroups.com
� � belajar-excel-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
� � belajar-excel-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
� � http://docs.yahoo.com/info/terms/

#18606

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 2:08 pm
Subject: Re: Tampilkan Columnheads listbox

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@...>

�

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@...>

�

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
**********************************

#18607

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 2:18 pm
Subject: Re: select beberapa coloumb

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@...>

�

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 ??

#18608

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 2:26 pm
Subject: Re: Memperkecil ukuran file

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@...>

�

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...�

Reply | Messages in this Topic (2)

#18609

From: hendrik karnadi <hendrikkarnadi@...>
Date: Sun Aug 19, 2012 4:14 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:

- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali

- nama yaitu bagian yg "(1)" itu ingin dihilangkan.

Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:

mySheet.Name = myBase & "(" & mySuffix & ")" dengan

mySheet.Name = myBase

Semoga pas sesuai keinginan (kayak iklan pertamina aja).

File revisinya terlampir.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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:

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

Maaf, yang begini sementara saya belum bisa buat.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru

#18610

From: hendrik karnadi <hendrikkarnadi@...>
Date: Sun Aug 19, 2012 4:33 pm
Subject: (No subject)

Selamat hari raya IDUL FITRI bagi Mods dan member Be-Excel.

Orang Batawi bilang "Kalo ade sale-sale kate mohon dimaapin ye"

Salam,

Hendrik Karnadi

Reply | Messages in this Topic (1)

#18611

From: rere Rua <rererua@...>
Date: Sun Aug 19, 2012 5:47 pm
Subject: Re: select beberapa coloumb

rererua

error 1004

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb

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@...>

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 ??

#18612

From: sin.ur4t@...
Date: Sun Aug 19, 2012 6:17 pm
Subject: Re: Makro - Memberi Nama Sheet Baru

sin.ur4t

Solved, pak karnadi, sesuai seutuhnya.. Case closed :D
Sekali lagi terima kasih, mhn jgn bosan membimbing utk kasus2 selanjutnya.

Salam
Sinurat

From: hendrik karnadi <hendrikkarnadi@...>

Sender: belajar-excel@yahoogroups.com

Date: Sun, 19 Aug 2012 09:14:16 -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

Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:

- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali

- nama yaitu bagian yg "(1)" itu ingin dihilangkan.

Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:

mySheet.Name = myBase & "(" & mySuffix & ")" dengan

mySheet.Name = myBase

Semoga pas sesuai keinginan (kayak iklan pertamina aja).

File revisinya terlampir.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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:

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

Maaf, yang begini sementara saya belum bisa buat.

Salam,

Hendrik Karnadi

From: "sin.ur4t@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru

From: hendrik karnadi <hendrikkarnadi@...>

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@..." <sin.ur4t@...>
To: Belajar Excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru

#18613

From: "Kid Mr." <mr.nmkid@...>
Date: Sun Aug 19, 2012 10:42 pm
Subject: Re: select beberapa coloumb

Setelah baris calculate beri :
Lcols=range("c1").value

Kid.

On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@...> wrote:

�

error 1004

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb

�

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@...>

�

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 ??

#18614

From: "dhen.baguse" <bagusejogja@...>
Date: Sun Aug 19, 2012 11:30 pm
Subject: Bls: Re: Memperkecil ukuran file

bagusejogja

Salam mr kid
Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
Wassalam

Dikirim dari Yahoo! Mail pada Androidd

From: Kid Mr. <mr.nmkid@...>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Memperkecil ukuran file
Sent: Sun, Aug 19, 2012 2:26:57 PM

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@...>

�

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...�

#18615

From: "Kid Mr." <mr.nmkid@...>
Date: Mon Aug 20, 2012 12:37 am
Subject: Re: Bls: Re: Memperkecil ukuran file

Mohon posting berikutnya tanpa cc.

Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.

Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.

Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).

Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.

Wassalam,
Kid.

On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@...> wrote:

Salam mr kid
Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
Wassalam

Dikirim dari Yahoo! Mail pada Androidd

From: Kid Mr. <mr.nmkid@...>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Memperkecil ukuran file
Sent: Sun, Aug 19, 2012 2:26:57 PM

�

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@...>

�

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...�

#18616

From: "dhen.baguse" <bagusejogja@...>
Date: Mon Aug 20, 2012 2:05 am
Subject: Re: Bls: Re: Memperkecil ukuran file

bagusejogja

Maaf mr kid klo email saya tadi ke cc,  sahabat excel saya melampirkan excel seperti yang pertama dan dilampiran terdapat rumus rumus dan conditonal formatting yang sama seperti aslinya, hanya saya merampingkan jumlah barisnya agar file tidak terlalu besar. Untuk jumlah baris yang sebenarnya juga saya informasikan di sheet pertanyaan.. Semoga bisa membantu.. maturnuwun. Salam Jaya Bexceller....
wassalam

   From: Kid Mr. <mr.nmkid@...>
 To: BeExcel <belajar-excel@yahoogroups.com> 
 Sent: Monday, August 20, 2012 7:37 AM
 Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file

 Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya, 

fungsi offset bisa diganti dengan index. 

Fungsi today atau now cukup di sebuah cell saja. 

Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)

Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.

Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,

Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@...> wrote:
Salam mr kid

Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..

Wassalam

Dikirim dari Yahoo! Mail pada Androidd

From:

Kid Mr. <mr.nmkid@...>; 

To:

<belajar-excel@yahoogroups.com>; 

Subject:

Re: [belajar-excel] Memperkecil ukuran file 

Sent:

Sun, Aug 19, 2012 2:26:57 PM 

 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@...>
 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...

#18617

From: "dhen.baguse" <bagusejogja@...>
Date: Mon Aug 20, 2012 2:22 am
Subject: Re: Bls: Re: Memperkecil ukuran file

bagusejogja

maaf attach tertinggal.....

Maaf mr kid klo email saya tadi ke cc,  sahabat excel saya melampirkan excel seperti yang pertama dan dilampiran terdapat rumus rumus dan conditonal formatting yang sama seperti aslinya, hanya saya merampingkan
jumlah barisnya agar file tidak terlalu besar. Untuk jumlah baris yang sebenarnya juga saya informasikan di sheet pertanyaan.. Semoga bisa membantu.. maturnuwun. Salam Jaya Bexceller....

wassalam

   From: Kid Mr. <mr.nmkid@...>
 To: BeExcel <belajar-excel@yahoogroups.com> 
 Sent: Monday, August 20, 2012 7:37 AM
 Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file

 Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya, 

fungsi offset bisa diganti dengan index. 

Fungsi today atau now cukup di sebuah cell saja. 

Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)

Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.

Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,

Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@...> wrote:
Salam mr kid

Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..

Wassalam

Dikirim dari Yahoo! Mail pada Androidd

From:

Kid Mr. <mr.nmkid@...>; 

To:

<belajar-excel@yahoogroups.com>; 

Subject:

Re: [belajar-excel] Memperkecil ukuran file 

Sent:

Sun, Aug 19, 2012 2:26:57 PM 

 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@...>
 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...

#18618

From: rere Rua <rererua@...>
Date: Mon Aug 20, 2012 6:09 am
Subject: Re: select beberapa coloumb

rererua

thanks udah bisa

tp bisa ga di jelaskan

klo Public Sub AturKolom() adalah fungsi

end sub adalah akhir fungsi

Dim lCols As Long deklarasi variable nama lCols tipe data long

ActiveSheet.Calculate ???

lCols = Range("c1").Value ????

Range("d1").Resize(, lCols).ColumnWidth =

mohon maaf klo banyak bertanya

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com
Sent: Monday, August 20, 2012 5:42 AM
Subject: Re: [belajar-excel] select beberapa coloumb

Setelah baris calculate beri :
Lcols=range("c1").value

Kid.

On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@...> wrote:

error 1004

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb

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@...>

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 ??

#18619

From: "Kid Mr." <mr.nmkid@...>
Date: Mon Aug 20, 2012 6:24 am
Subject: Re: select beberapa coloumb

ActiveSheet.Calculate 'perintahkan Excel untuk mengkalkulasi worksheet yang aktif (untuk antisipasi jika file diset calculation opsi adalah manual)
lCols = Range("c1").Value�� 'isi variabel lcols dengan nilai dari range c1
Range("d1").Resize(, lCols).ColumnWidth = 15�� 'set nilai lebar kolom dengan 15, untuk kolom mulai dari cell d1 diperlebar sebanyak lcols kolom

Wassalam,
Kid.

2012/8/20 rere Rua <rererua@...>

�

thanks udah bisa
tp bisa ga di jelaskan�
klo Public Sub AturKolom() adalah fungsi

end sub adalah akhir fungsi
Dim lCols As Long deklarasi variable nama lCols tipe data long
ActiveSheet.Calculate ???
lCols = Range("c1").Value ????

Range("d1").Resize(, lCols).ColumnWidth =

mohon maaf klo banyak bertanya

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com

Sent: Monday, August 20, 2012 5:42 AM

Subject: Re: [belajar-excel] select beberapa coloumb

�

Setelah baris calculate beri :
Lcols=range("c1").value

Kid.

On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@...> wrote:

�

error 1004

From: Kid Mr. <mr.nmkid@...>
To: belajar-excel@yahoogroups.com
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb

�

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@...>

�

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 ??

#18620

From: <sumardiana596@...>
Date: Mon Aug 20, 2012 7:48 am
Subject: Re: Tampilkan Columnheads listbox

hekerkampoeng

jadi begitu ya..Terimakasih Mr Kid,

Pengennya bikin aplikasi kasir,merujuknya ke database worksheet pakai vba,cuma dbgrid/data grid kayak di vb6 blm aku temui di vba.

Makanya pakai listbox, diakal-akalin tetep tidak bisa mulus.Mungkin master-master be-excel ada solusi.

rgds,

mardi

From: Kid Mr.

Sent: Sunday, August 19, 2012 9:08 PM

To: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] Tampilkan Columnheads listbox

2012/8/18 <sumardiana596@...>

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@...>

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
**********************************

#18621

From: hendrik karnadi <hendrikkarnadi@...>
Date: Mon Aug 20, 2012 12:45 pm
Subject: Membuat Daftar File yang ada dalam Dir atau SubDir di Sheet Excel