� Hery Wahyudi

thengkyu...

----- Original Message -----

From: siti Vi

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 3:54 PM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

^o^ ... berubah total ?! :-),

no problemo ...

'---------------------------------

( sebelum menulis rumusnya, Adek si "Cah Mbelink..." datang ikut nimbrung... mengajak "bedh�kan" )

"aturannya kan hanya ingin mengurutkan berdasarkan bulan dowang ya mbak !

^ kalau sekelompok data bulannya sama, mana yg mau didahulukan mbak?"

( yg tanggalnya lebih muda dong Dek ! )

"^ kalau sekelompok data punya bulan dan tanggal yg sama, mana ygharus didahulukan ?"

( yg tahunnya lebih muda = lebih dulu tampil ! )

"^ kalau sekelompok data punya bulan, tgl dan tahun yg sama, mana yg ditampilkan lebih dulu, hayoh ??"

( yg NAMANYA dimulai dengan karakter yg lebih bernilai keil ( a < b < c <.... < z )

"^ kalau ada sekelompok data punya tgl, bln, th, HURUF PERTAMA NAMA yg sama ??? 'gimana hayoh !?"

( husy ...! yg punya kasus juga ndak ceriwis kayak situ kok Dek...Dek...!!!)

sorting dengan formula itu ada keterbaasannya karena bilangan hanya presisi di 15 digit tauk ?!

'-------------------------------

--cara 1 --

sorting dengan formula (hasil ada di range lain)

formula pengurut: tetap seperti semula, ada variasi & modif sedikit,

karena bila tgl-nya sama diinginkan nama "A.." harus lebih dulu tampil daripada nama "B..."

array formula

=RIGHT(TEXT(SMALL(ROUND((TEXT(B3:B98,"MMDDYYYY")

&CODE(A3:A98))+ROW(B1:B96)/100,2),ROW(B1:B96)),"0.00"),2)

formula untuk menampilkan

=offset(data ke 0, angkapengurut, 0)

--cara 2 --

sorting dengan metoda yg ada pada menu Data > Sort...

kita harus punya kolom kunci yg berupa text angka BULAN_TGL_TAHUN

=TEXT(C3,"MMDDYYYY")

berdasarkan kolom tambahan itulah tabel di sort...

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 11:19 AM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

Sorri data kurang lengkap yang aku maksud seperti ini...

kolom kuning hasilnya.... berurut dari bulan januari juga namanya ngikut disort.

thx

nama tanggal lahir nama hasil urut berdasar bulan

anto 01 Mar 1975 agustinus
15 Jan 1983

budi 01 Apr 1977 parto

01 Jan 1985

donny 19 Sep 1977 verri
13 Feb 1980

agus 26 Feb 1978 agus 26 Feb 1978

supratman 01 Apr 1978 anto 01 Mar 1975

verri 13 Feb 1980 nila 01 Mar 1981

gona 14 Jun 1980 sorte 15 Mar 1989

terra 07 Agust 1980 dst dst

nila 01 Mar 1981

silva 03 Agust 1981

bagoes 20 Agust 1981

renna 21 Sep 1981

agustinus 15 Jan 1983

siti 19 Okt 1983

parto 01 Jan 1985

joe 05 Okt 1987

sorte 15 Mar 1989

----- Original Message -----

From: siti Vi

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 11:17 AM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

seperti apakah hasil yg diinginkan ??
(kebanyakan penanya tidak menyertakan "Bagian Penting" ini, kanafa ya..)

apakah seperti kolom B ? ataukah seperti kolom E ?

sila dipilih sendiri, formulanya ada di worksheet lampiran..

data

hasil

dummies

hasil

01 Mar 1975

01-Mar-75

15

01-Jan-85

01 Apr 1977

01-Apr-77

46

01-Jan-95

19 Sep 1977

19-Sep-77

51

01-Jan-97

26 Feb 1978

26-Feb-78

52

01-Jan-97

01 Apr 1978

01-Apr-78

53

01-Jan-97

13 Feb 1980

13-Feb-80

55

01-Jan-98

14 Jun 1980

14-Jun-80

77

01-Jan-05

07 Aug 1980

07-Aug-80

36

02-Jan-92

01 Mar 1981

01-Mar-81

56

02-Jan-98

03 Aug 1981

03-Aug-81

57

02-Jan-98

20 Aug 1981

20-Aug-81

58

02-Jan-98

21 Sep 1981

21-Sep-81

59

02-Jan-98

15 Jan 1983

15-Jan-83

95

04-Jan-08

19 Oct 1983

19-Oct-83

41

10-Jan-93

01 Jan 1985

01-Jan-85

13

15-Jan-83

05 Oct 1987

05-Oct-87

43

01-Feb-94

15 Mar 1989

15-Mar-89

47

01-Feb-95

15 Mar 1989

15-Mar-89

6

13-Feb-80

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 9:06 AM

Subject: [belajar-excel] sort data dari bulan januari hingga desember

Mohon bantuan nih...

gimana caranya sort data berpatokan pada bulan.

hasilnya menjadi bulan Januari sd Desember

Thx

Rey
PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited.

#2670

From: siti Vi <setiyowati.devi@...>
Date: Thu Dec 3, 2009 8:39 pm
Subject: Re: Hilangkan perintah save as

siti_vi

Offline

lho? kok soal "nongolnya" sub menu.. ?

setelah "menu masih nongol" apakah sudah di clik,

dan setelah diklik apa reaksinya, kok tidak diceriterakan...

prosedur event tsb bukan bekerja sejak workbook dibuka terus meniadakan

SubMenu SaveAs, tetapi baru akan bekerja KETIKA pak sandra mengakses

/ meng-Click subMenu tsb.

yg seharusnya terjadi ketika itu:

excel tidak bereaksi, tidak ada dialogbox SaveAs yg dimunculkan.

nah ini artinya workbook tsb tidak dapat di-SaveAs

jika keadaan spt itu tidak terjadi di workbook pak sandra (yg telah diberi makro tsb),

dugaan sementara: pak sandra salah menuliskan prosedurnya di module lain

selain Module milik object ThisWorkbook

<Workbook_BeforSave> adalah salah-satu event (dari 28 events) milik Object

ThisWorkbook (Excel 2003).

Jadi menuliskan prosedurnya harus di Module milik ThisWorkbook.

ketr. lebih lanjut : dari VBE > F1 (Help) > tuliskan di searchbox: keyword: BeforeSave event

----- Original Message -----
From: Sandra Yudha
To: belajar-excel@yahoogroups.com
Sent: Friday, December 04, 2009 12:37 AM
Subject: Re: [belajar-excel] Hilangkan perintah save as

Terima kasih mas anton atas tanggapannya
sudah aku praktekkan mas, tapi kok.. perintah File --> save as-nya masih nongol juga

atau masih bisa di akses...
yudha

--- Pada Kam, 3/12/09, anton suryadi <summonery@...> menulis:
=======
Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub
=======
>semoga bermanfaat

From: Sandra Yudha <cahayaoptikmandiri@ yahoo.co. id>
Sent: Thu, December 3, 2009 4:29:12 PM

Dear semua
mau nanya nih, bagaimana caranya agar file excel yang dibuka tidak bisa di save as,

soalnya aku punya file excel yang disembunyikan ( hidden ), tapi masih bisa dibuka

melalui sortcut di desktop
Terima kasih
Yudha

#2669

From: Sandra Yudha <cahayaoptikmandiri@...>
Date: Thu Dec 3, 2009 5:37 pm
Subject: Re: Hilangkan perintah save as

cahayaoptikm...

Offline

Terima kasih mas anton atas tanggapannya

sudah aku praktekkan mas, tapi kok.. perintah File --> save as-nya masih nongol juga atau masih bisa di akses...

yudha

--- Pada Kam, 3/12/09, anton suryadi <summonery@...> menulis:

Dari: anton suryadi <summonery@...>
Judul: Re: [belajar-excel] Hilangkan perintah save as
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 3 Desember, 2009, 9:55 AM

=======
Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub
=======

>semoga bermanfaat

From: Sandra Yudha <cahayaoptikmandiri@ yahoo.co. id>
To: belajar excel <belajar-excel@ yahoogroups. com>
Sent: Thu, December 3, 2009 4:29:12 PM
Subject: [belajar-excel] Hilangkan perintah save as

Dear semua
mau nanya nih, bagaimana caranya agar file excel yang dibuka tidak bisa di save as,
soalnya aku punya file excel yang disembunyikan ( hidden ), tapi masih bisa dibuka melalui sortcut di desktop
Terima kasih
Yudha

Berselancar lebih cepat.
Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.Dapatkan IE8 di sini! (Gratis)

Coba Yahoo! Messenger 10 Beta yang baru
Kini dengan update real-time, panggilan video, dan banyak lagi!

#2668

From: siti Vi <setiyowati.devi@...>
Date: Thu Dec 3, 2009 12:22 pm
Subject: Re: (unknown)

siti_vi

Offline

(by phone; ada teman yg salah mengira bahwa 'sistem TampilCetak' itu HARUS

dengan SpinButton). Pendapat ini kurang tepat.

Yg benar adalah HARUS ada angka di Cell G1 dan angka tsb akan kita ganti-ganti

dari 1 menjadi 2, 3, 4 dst.

Angka ini akan di manipulasi (menjadi angka di F1) sedangkan F1 akan kita manfaatkan

sebagai argument IndexBaris, untuk merujuk data/records yg ada di sheet Daftar.

Lihat formula =INDEX(Daftar!$C$23:$F$62,$F$1+$A5-1,$B5)

Jadi misalnya kita mengganti-ganti angka di G1 secara manual (edit / re-entry), maka

'sistem' akan tetap berjalan sesuai keinginan.

SpinButton hanyalah sekedar alat untuk mempercepat / mempermudah penggantian

angka di G1, tanpa harus mengetikkan angka-nya.

----- Original Message -----

From: siti Vi

To: belajar-excel@yahoogroups.com

Sent: Thursday, December 03, 2009 10:06 AM

Subject: Re: [belajar-excel] (unknown)

Tombol yang ada di sheet 'TampilCetak' itu adalah sebuah object control

bernama SipinButton; berasal/dibuat dari toolbar Control ToolBox

lebih lanjut dijelaskan di fle terlampir

----- Original Message -----
From: hartono lentera
To: belajar-excel@yahoogroups.com
Sent: Thursday, December 03, 2009 9:25 AM
Subject: Bls: [belajar-excel] (unknown)

> 2. tlg dijelaskan lebih rinci bagaimana tombol tombol pd sheet cetak itu

> bisa muncul (katanya menggunakan rumus yang sederhana),

> dg harapan saya bisa mengerjakan masalah masalah sejenis

#2667

From: anton suryadi <summonery@...>
Date: Thu Dec 3, 2009 9:55 am
Subject: Re: Hilangkan perintah save as

summonery

Offline

=======
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub

=======

>semoga bermanfaat

From: Sandra Yudha <cahayaoptikmandiri@...>
To: belajar excel <belajar-excel@yahoogroups.com>
Sent: Thu, December 3, 2009 4:29:12 PM
Subject: [belajar-excel] Hilangkan perintah save as

Dear semua

mau nanya nih, bagaimana caranya agar file excel yang dibuka tidak bisa di save as,

soalnya aku punya file excel yang disembunyikan ( hidden ), tapi masih bisa dibuka melalui sortcut di desktop

Terima kasih

Yudha

Berselancar lebih cepat.
Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.Dapatkan IE8 di sini! (Gratis)

#2666

From: Sandra Yudha <cahayaoptikmandiri@...>
Date: Thu Dec 3, 2009 9:29 am
Subject: Hilangkan perintah save as

cahayaoptikm...

Offline

Dear semua

mau nanya nih, bagaimana caranya agar file excel yang dibuka tidak bisa di save as,�

soalnya aku punya file excel yang disembunyikan ( hidden ), tapi masih bisa dibuka melalui sortcut di desktop

Terima kasih

Yudha

Berselancar lebih cepat.
Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.Dapatkan IE8 di sini! (Gratis)

#2665

From: Mochi Underscore <mochi_underscore@...>
Date: Thu Dec 3, 2009 3:14 am
Subject: Bls: Aplkasi entry data pelamar CPNS

mochi_unders...

Offline

nomor pasein dah dapet ni mbak..
kapan dipanggil ni..?
:)

Dari: siti Vi <setiyowati.devi@...>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Sel, 17 November, 2009 12:20:21
Judul: Re: [belajar-excel] Aplkasi entry data pelamar CPNS

lha ini... sudah mendaftarkan nomor pasien, kok ndak jadi datang..

biasanya ada dua kemungkinan. ... 'sudah sembuh'.. atau kemungkinan satu lagi...

he he berjanda lho....

Apakah saya bisa menurunkan berat badan?
Temukan jawabannya di Yahoo! Answers! "

Reply | Forward | Messages in this Topic (6)

#2664

From: siti Vi <setiyowati.devi@...>
Date: Thu Dec 3, 2009 3:06 am
Subject: Re: (unknown)

siti_vi

Offline

Tombol yang ada di sheet 'TampilCetak' itu adalah sebuah object control

bernama SipinButton; berasal/dibuat dari toolbar Control ToolBox

lebih lanjut dijelaskan di fle terlampir

----- Original Message -----
From: hartono lentera
To: belajar-excel@yahoogroups.com
Sent: Thursday, December 03, 2009 9:25 AM
Subject: Bls: [belajar-excel] (unknown)

> 2. tlg dijelaskan lebih rinci bagaimana tombol tombol pd sheet cetak itu

> bisa muncul (katanya menggunakan rumus yang sederhana),

> dg harapan saya bisa mengerjakan masalah masalah sejenis

#2663

From: siti Vi <setiyowati.devi@...>
Date: Thu Dec 3, 2009 2:54 am
Subject: Re: (unknown)

siti_vi

Offline

halo pak hartono

alhamdulillah kalau ternyata Daftar Imajiner itu sudah mendekati keinginan bapak.

Contoh rumus di Sheet 'TampilCetak Cell E5

=INDEX(Daftar!$C$23:$F$62,$F$1+$A5-1,$B5)

ini menandakan bahwa daftar yg dirujuk hanya terbatas pada range

C23:F62 pada Sheet 'Daftar' (dlm contoh rang tsb di arsir kuning..)

Jika pak Har ingin memperluas daftar misalnya menjadi C23:F312

maka rumus di E5 pada sheet 'TampilCetak' harus di edit menjadi

=INDEX(Daftar!$C$23:$F$312,$F$1+$A5-1,$B5)

kemudian tingal mengcopy and paste ke cells lain yg memerlukan

agar diperhatikan bahwa "kolom kedua" pada 'TampilCetak' rumusnya agar sedikit

berbeda (ada +4 nya)

=INDEX(Daftar!$C$23:$F$62,($F$1+$A5-1)+4,$B5)

di edit menjadi

=INDEX(Daftar!$C$23:$F$312,($F$1+$A5-1)+4,$B5)

note:

penulisan rujukan range dlm formula lebihmudah dilakukan dengan cara menunjuk

sheet & range tsb dengan mouse pointer...

----- Original Message -----

From: hartono lentera

To: belajar-excel@yahoogroups.com

Sent: Thursday, December 03, 2009 9:25 AM

Subject: Bls: [belajar-excel] (unknown)

trimaksih banget kpd mbak siti atas keja baktinya. mohon maaf lupa menyertakan data saya secara lengkap. benar, apa yang saya maksud sesuai dg jawaban mbak siti. cuma masih ada beberapa kendala yg kurang ku mengerti( maklulm agak gaptek). beberapa hal yang menjadaii pertanyaan saya adalah:
1. mengapa ketika saya menambahkan data pada sheet daftar tetapi tidak bisa ditampilkan pada sheet tampilcetak?
2. tlg dijelaskan lebih rinci bagaimana tombol tombol pd sheet cetak itu bisa muncul (katanya menggunakan rumus yang sederhana), dg harapan saya bisa mengerjakan masalah masalah sejenis
3. sbg orang awam saya ingin mempelajari materi materi seperti ini (ada orang bila belajar makro), terutama hal hal yang berkaitan dg data data di sekolah tingkat sltp/slta, apa ya yg harus saya pelajari? mohon diinformasikan materi materi tsb. terutama materi materi di web yang sifatnya gratis ( maklum jauh dari sumber informasi)
terimakasih banget atas kebaikan hati mbak siti dan rekan rekan.

#2662

From: "Mr. Kid" <mr.nmkid@...>
Date: Thu Dec 3, 2009 2:40 am
Subject: Re: copy and insert a sheet to other specify file/workbook

nmkid.family...

Offline

Sama-sama Mr. Zam.

Tetap semangat belajar Pak.

Biasanya kode di object event hanya jadi pengatur alur cerita program, sedangkan seluruh kode dalam routine di module jadi alur utama proses.

Kid.

2009/12/3 Ahmad Zamroni <ahzam05@...>

�

Thanks, Mr. Kid�

�

Semalam nyoba semua coding, dengan banyak perubahan tentunya, saya masukkan module sesuai saran yang kemarin dan ternyata bekerja dengan baik.

Sehingga saya tidak perlu menambah command button di sheet yang akan dicopy itu. Sebab saya langsung copy 1 sheet bukan beberapa column, dengan begitu saya bisa menghilangkan perintah �conditional formatting� dan tanpa perlu menyertakan macro di file yang baru.

�

Untuk saran terakhir di bawah saya jadikan referensi dulu aja, saya yakin suatu hari nanti ada diantaranya saya butuhkan.

�

Terima kasih lagi,

-zam-

�

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Wednesday, December 02, 2009 8:24 PM

To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

�

Di module :
Public Sub SetBook()
�� dim dtTgl as date
�� dim Wb as workbook
�� dim sSht as string

�� On Error Resume Next

� 'sudah terbuka ?
� Set Wb = Workbooks("200912 Allocated Stock.xls")
�� If err.number<>0 then
�� 'belum terbuka, oleh sebab itu muncul error
�� 'dihapus status errornya
�� err.clear
��
�� 'cek sudah ada filenya ?
�� if lenb( dir( "f:\data\200912 bla.xls") ) <> 0 then��
�� Set Wb = Workbooks.Open("f:\data\200912 bla.xls")
�� else
�� 'hati-hati disini, jika path (F:\data) belum ada, tetap akan muncul error
�� 'bisa dicek seperti cara di atas
�� '�� if lenb(dir("F:\data")) = 0 then
�� '�� 'lakukan buat folder disini
�� '�� end if
�� 'jadi sampai sini pasti sudah ada foldernya.
�� Set Wb = Workbooks.Add
�� Wb.SaveAs Filename:= "f:\data\200912 bla.xls"
�� end if
�� end if
��
�� 'aktifkan wb set nama sheet
�� Wb.Activate
�� dttgl = now()
�� sSht="ALS" & format$(dttgl,"dd")
��
�� 'Cek ada sheet dimaksud di wb gak ?
�� Sheets(ssht).select
�� if err.number <> 0 then�� 'muncul error = gak ada sheet ssht
�� err.clear
�� sheets.add after:= sheets(sheets.count)
�� sheets(sheets.count).name = ssht
�� end if

�� 'sampai sini, pasti sudah terbuka si workbook wb dan sudah ada si sheet ssht

�� 'proses selanjutnya adalah copy paste
�� 'letakkan disini atau di prosedur lain, yang dipanggil dari sini atau dari mana saja

�� 'diakhiri proses save dengan
�� worksbooks.save
End Sub

di event commandbutton click
Public Sub CommandButton1_Click()
�� SetBook
End Sub

Paket kode seperti ini sering digunakan dan tidak ada masalah.
Sepertinya masalah kode yang lalu (posting terakhir) adalah saat akan buat sheet baru yang namanya sudah ada. Dari kode di atas, bisa digunakan potongan kode dari cek sudah ada sheet atau belum.

Kid.

#2661

From: hartono lentera <harlentera_ngt@...>
Date: Thu Dec 3, 2009 2:25 am
Subject: Bls: (unknown)

harlentera_ngt

Offline

trimaksih banget kpd mbak siti atas keja baktinya. mohon maaf lupa menyertakan data saya secara lengkap. benar, apa yang saya maksud sesuai dg jawaban mbak siti. cuma masih ada beberapa kendala yg kurang ku mengerti( maklulm agak gaptek). beberapa hal yang menjadaii pertanyaan saya adalah:
1. mengapa ketika saya menambahkan data pada sheet daftar tetapi tidak bisa ditampilkan pada sheet tampilcetak?
2. tlg dijelaskan lebih rinci bagaimana tombol tombol pd sheet cetak itu bisa muncul (katanya menggunakan rumus yang sederhana), dg harapan saya bisa mengerjakan masalah masalah sejenis
3. sbg orang awam saya ingin mempelajari materi materi seperti ini (ada orang bila belajar makro), terutama hal hal yang berkaitan dg data data di sekolah tingkat sltp/slta, apa ya yg harus saya pelajari? mohon diinformasikan materi materi tsb. terutama materi materi di web yang sifatnya gratis ( maklum jauh dari sumber informasi)
terimakasih banget atas kebaikan hati mbak siti dan rekan rekan.

Lebih Bersih, Lebih Baik, Lebih Cepat - Rasakan Yahoo! Mail baru yang Lebih Cepat hari ini!

#2660

From: "Ahmad Zamroni" <ahzam05@...>
Date: Thu Dec 3, 2009 2:23 am
Subject: RE: copy and insert a sheet to other specify file/workbook

elits2059

Offline

Thanks, Mr. Kid…

Semalam nyoba semua coding, dengan banyak perubahan tentunya, saya masukkan module sesuai saran yang kemarin dan ternyata bekerja dengan baik.

Sehingga saya tidak perlu menambah command button di sheet yang akan dicopy itu. Sebab saya langsung copy 1 sheet bukan beberapa column, dengan begitu saya bisa menghilangkan perintah “conditional formatting” dan tanpa perlu menyertakan macro di file yang baru.

Untuk saran terakhir di bawah saya jadikan referensi dulu aja, saya yakin suatu hari nanti ada diantaranya saya butuhkan.

Terima kasih lagi,

-zam-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Wednesday, December 02, 2009 8:24 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

Di module :
Public Sub SetBook()
     dim dtTgl as date
     dim Wb as workbook
     dim sSht as string

    On Error Resume Next

'sudah terbuka ?
Set Wb = Workbooks("200912 Allocated Stock.xls")
   If err.number<>0 then
   'belum terbuka, oleh sebab itu muncul error
       'dihapus status errornya
       err.clear

       'cek sudah ada filenya ?
       if lenb( dir( "f:\data\200912 bla.xls") ) <> 0 then
      Set Wb = Workbooks.Open("f:\data\200912 bla.xls")
       else
          'hati-hati disini, jika path (F:\data) belum ada, tetap akan muncul error
          'bisa dicek seperti cara di atas
          '     if lenb(dir("F:\data")) = 0 then
          '           'lakukan buat folder disini
          '     end if
          'jadi sampai sini pasti sudah ada foldernya.
          Set Wb = Workbooks.Add
          Wb.SaveAs Filename:= "f:\data\200912 bla.xls"
       end if
   end if

   'aktifkan wb set nama sheet
   Wb.Activate
   dttgl = now()
   sSht="ALS" & format$(dttgl,"dd")

   'Cek ada sheet dimaksud di wb gak ?
   Sheets(ssht).select
   if err.number <> 0 then       'muncul error = gak ada sheet ssht
         err.clear
         sheets.add after:= sheets(sheets.count)
         sheets(sheets.count).name = ssht
   end if

   'sampai sini, pasti sudah terbuka si workbook wb dan sudah ada si sheet ssht

   'proses selanjutnya adalah copy paste
   'letakkan disini atau di prosedur lain, yang dipanggil dari sini atau dari mana saja

   'diakhiri proses save dengan
   worksbooks.save
End Sub

di event commandbutton click
Public Sub CommandButton1_Click()
      SetBook
End Sub

Paket kode seperti ini sering digunakan dan tidak ada masalah.
Sepertinya masalah kode yang lalu (posting terakhir) adalah saat akan buat sheet baru yang namanya sudah ada. Dari kode di atas, bisa digunakan potongan kode dari cek sudah ada sheet atau belum.

Kid.

#2659

From: Mochi Underscore <mochi_underscore@...>
Date: Thu Dec 3, 2009 2:18 am
Subject: Bls: (unknown)

mochi_unders...

Offline

Buat Pak Hartono :

Betul sekali itu pak. semua kelengkapan pertanyaan harus ada. Saya juga sebelumnya sudah mengajukan "keluhan", istilah dari mbak Siti, dan lengkap dengan file lampiran, tapi saya merasa masih belum lengkap kok pak. Karena mungkin penjelasan saya tidak begitu jelas.
Coba Bapak cari subject pertanyaan saya "

Dari: "belajar-excel-owner@yahoogroups.com" <belajar-excel-owner@yahoogroups.com>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Sel, 1 Desember, 2009 01:33:41
Judul: [belajar-excel] (unknown)

dear pak hartono,

terima kasih & selamat bergabung di milis [b-e].

untuk mempermudah members lain memberikan solusi atas pertanyaan bapak,

barangkali lebih baik bapak melampirkan sheet berisi contoh data.

nomor, nama dsb (bila bersifat rahasia) dapat bapak ganti dengan data fiktif.

(yg diperlukan oleh calon penjawab adalah struktur tabel dan mungkin type data
di tiap kolom), juga: "bentuk" / tampilan kartu peserta & kartu lebel yg diinginkan.

oiya,

dimohon untuk y.a.d. tidak lupa memberi SUBJECT pada setiap email/posting baru.

_,___

Menambah banyak teman sangatlah mudah dan cepat.
Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang!

Reply | Forward | Messages in this Topic (3)

#2658

From: "Mr. Kid" <mr.nmkid@...>
Date: Wed Dec 2, 2009 1:30 pm
Subject: Re: WTA: Mencari Separator (pembatas) pada formula Excel

nmkid.family...

Offline

Sedikit tambahan, kalau untuk currency dan pemisah ribuan, ndak perlu pakai itu, kecuali sudah ada routine-nya. Manfaatkan kemampuan fungsi yang ada seperti format() di VB.

2009/12/2 hery wahyudi <hery@...>

�

Selamat Sore,

Mas Kid dan Mbak Siti,

TerimaKasih, sudah bantu,

nanti akan aku coba, ilmu dari mas kid ini,

Untuk sementara (yang penting Program jalan), aku beri Input Box pada awal applikasi, yang mengharuskan user untuk memilih regional optionnnya ";" atau ","� :)

sambil terus mengembangkan untuk jadi lebih mudah bagi user,

Terimakasih

Miturut Mr. Kid kados ingkang kaserat ing ngandap meniko:
�

Jika memanfaatkan excel application, cara ini yang paling tepat, bias dipanggil dari mana saja.

Jadi begitu sudah deklarasi object sebagai excel.application, maka bisa menggunakan saran mbak Siti yang terakhir itu.

Jika mau pakai WinAPI, ada regional setting diatur oleh kernel32

Fungsi yang bisa digunakan -- contoh dengan VB -- :�

(sesuaikan cara deklarasi fungsi dan include library dengan bahasa pemrograman yag digunakan)

1. Untuk mendapatkan karakter regional�setting�

Declare Function GetLocaleInfo Lib "kernel32" Alias _

"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _

ByVal lpLCData As String, ByVal cchData As Long) As Long

2. Untuk ganti (set) karakter regional setting

Declare Function SetLocaleInfo Lib "kernel32" Alias _

"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _

ByVal lpLCData As String) As Boolean

3. untuk mendapatkan setting yang digunakan si komputer saat ini (yang jadi default)

Declare Function GetUserDefaultLCID% Lib "kernel32" ()�

Seluruh variabel LCType adalah nilai Enum dari berbagai macam item setting.

Deklarasikan variabel masing-masing item yang Anda gunakan sebagai konstanta berisi nilai enum tersebut dalam Hexadecimal.

Contoh untuk list separator :

Public Const LOCALE_SLIST = &HC�

Dan gunakan fungsi-fungsi diatas.

Contoh (menggunakan VB) : Karena ingin mengambil karakter list separator, maka yang digunakan hanya 1 dan 3

Public Const LOCALE_SLIST = &HC�

Public Function ListSeparatorKu() as String

�� Dim sListSeparatorKu as string � �'variabel wadah sementara �(cuma beda s saja)

�� Dim lSettingID as long

��

�� Listseparatorku = vbnullstring

�� 'dapatkan id regional setting yang digunakan (default si komputer sekarang)

�� lSettingID =�GetUserDefaultLCID()

�� 'asumsi : jumlah karakter list separator adalah 4,�

�� 'maka manfaatkan fungsi no 2 untuk dapatkan karakter itu

�� 'dengan memasukkan parameter string yang jumlah karakternya sudah didefinisikan

�� 'dan selalu di tambah 1 dari julah asumsi, supaya mudah diambil lagi.

�� 'dengan karakter bawaan tertentu�

�� sListseparatorku = String$(5, 0) � � ' 5 karena 4 + 1, dan 0 (numerik) = Chr$(0)

�� Call GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, 5) � � �' �5 karena 4 + 1

�� IF instr( sListseparatorku, Chr$(0) ) > 0 then

�� Listseparatorku = Left$(�sListseparatorku ,�instr( sListseparatorku, Chr$(0) ) - 1 )

�� end if

��

�� 'mau lihat hasilnya :

�� msgbox listseparatorku

End Function

Itu tadi masih dengan asumsi julah karakternya 4. Gimana kalau kenyataannya lebih ?

dalam programming ndak ada kata ndak mungkin, oleh sebab itu selalu ada error handler bahkan untuk asumsi yang jelas, diberi atau dicek syarat batas suatu nilainya.

Jadi, lebih enak jika sudah pasti tahu berapa jumlah karakternya kan.

Caranya, memanfaatkan fungsi no.1

�� dim lPanjangKarakter as long

��

�� lSettingID =�GetUserDefaultLCID()

�� lpanjangkarakter = �GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku,0)

�� sListseparatorku = String$(lpanjangkarakter, 0)

�� Call GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, lpanjangkarakter)

�� 'atau :

�� ' � lpanjangkarakter =�GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, lpanjangkarakter)

�� IF instr( sListseparatorku, Chr$(0) ) > 0 then

�� Listseparatorku = Left$(�sListseparatorku ,�instr( sListseparatorku, Chr$(0) ) - 1 )

�� end if

�� 'atau dengan blok :

�� ' � lpanjangkarakter =�instr( sListseparatorku, Chr$(0) )

�� ' � IF lpanjangkarakter > 0 then

�� ' � � � � �Listseparatorku = Left$(�sListseparatorku ,�lpanjangkarakter - 1 )

�� ' � end if

��

Semoga bermanfaat.

Kid.

2009/12/1 siti Vi <setiyowati.devi@...>

�

oo begeetoo...

nah saya blum pernah main main dengan COM
apakah saat main-main dengan COM ndak ada kesempatan ber VBA ria?
karena List-Separator itu disimpan di sebuah property
kalau dilihat dari excel :
Application.International(Index)

untuk percobaan:
Sub ListSeparatorKu()
Dim lsp
lsp = Application.International(xlListSeparator)
MsgBox lsp & "� = Ascii Code : " & Asc(lsp)
End Sub

bgmana ini mas Kid ?? (ahlinya nih...)..

�

�

----- Original Message -----
From: hery wahyudi
To: belajar-excel@yahoogroups.com

Sent: Tuesday, December 01, 2009 3:07 PM
Subject: Re: [belajar-excel] WTA: Mencari Separator (pembatas) pada formula Excel

Mbak Siti Benar,
tapi masalahnya begini mbak,
yang jadi "Exceller sejati " itu program lain, yang dari program ini aku memanfaatkan Component Object Model(COM) nya Excel,
sederhananya, aku control excel dari program lain, dan akan menuliskan formula di excel tsb,
nah, masalahnya separator setiap kompie tergantung settingannya, jadi ya pasti beda2
aku yakin pasti ada source tempat menyimpan separator ini,
cuma belum ketemu
maaf, jadi mbleber topiknya,
BTW Terimakasih Mbak Siti sudah bersedia� membahasnya,
Terimakasih

Miturut siti Vi kados ingkang kaserat ing ngandap meniko:�
Tanpa membuka control panel, tanpa makro ??
IMHO, ya harus dicoba (try & err) tuliskan di fungsi; misal Vlookup(A1;B1:B3;1;FALSE)
(argument / list separator = semicolon (;) jika di enter dianggap SALAH

maka berarti argument-separatornya harus diganti koma (,)
(NOTE err-msg tsb bisa muncul karena kesalahan lain; bukan hanya soal ListSeparator saja)

Sekedar saran, sebagai "exceller sejati", begitu ketemu PC baru tentunya kita ingin segera tahu
(dan mencatat) segala setting yg berhubungan dengan excel bukan ??
*default direktori tempat mensave file
*direktori untuk mensave AutoRecover
*Language setting
*Format date time
*List separator
*Decimal separator
*Thousand Separator
dan sebangsanya..

--

� Hery Wahyudi

Reply | Forward | Messages in this Topic (7)

#2657

From: "Mr. Kid" <mr.nmkid@...>
Date: Wed Dec 2, 2009 1:23 pm
Subject: Re: copy and insert a sheet to other specify file/workbook

nmkid.family...

Offline

Di module :
Public Sub SetBook()
�� dim dtTgl as date
�� dim Wb as workbook
�� dim sSht as string

�� On Error Resume Next

� 'sudah terbuka ?
� Set Wb = Workbooks("200912 Allocated Stock.xls")
�� If err.number<>0 then
�� 'belum terbuka, oleh sebab itu muncul error
�� 'dihapus status errornya
�� err.clear
��
�� 'cek sudah ada filenya ?
�� if lenb( dir( "f:\data\200912 bla.xls") ) <> 0 then��
�� Set Wb = Workbooks.Open("f:\data\200912 bla.xls")
�� else
�� 'hati-hati disini, jika path (F:\data) belum ada, tetap akan muncul error
�� 'bisa dicek seperti cara di atas
�� '�� if lenb(dir("F:\data")) = 0 then
�� '�� 'lakukan buat folder disini
�� '�� end if
�� 'jadi sampai sini pasti sudah ada foldernya.
�� Set Wb = Workbooks.Add
�� Wb.SaveAs Filename:= "f:\data\200912 bla.xls"
�� end if
�� end if
��
�� 'aktifkan wb set nama sheet
�� Wb.Activate
�� dttgl = now()
�� sSht="ALS" & format$(dttgl,"dd")
��
�� 'Cek ada sheet dimaksud di wb gak ?
�� Sheets(ssht).select
�� if err.number <> 0 then�� 'muncul error = gak ada sheet ssht
�� err.clear
�� sheets.add after:= sheets(sheets.count)
�� sheets(sheets.count).name = ssht
�� end if

�� 'sampai sini, pasti sudah terbuka si workbook wb dan sudah ada si sheet ssht

�� 'proses selanjutnya adalah copy paste
�� 'letakkan disini atau di prosedur lain, yang dipanggil dari sini atau dari mana saja

�� 'diakhiri proses save dengan
�� worksbooks.save
End Sub

di event commandbutton click
Public Sub CommandButton1_Click()
�� SetBook
End Sub

Paket kode seperti ini sering digunakan dan tidak ada masalah.
Sepertinya masalah kode yang lalu (posting terakhir) adalah saat akan buat sheet baru yang namanya sudah ada. Dari kode di atas, bisa digunakan potongan kode dari cek sudah ada sheet atau belum.

Kid.

2009/12/2 Ahmad Zamroni <ahzam05@...>

�

Trima kasih, Mr. Kid

�

Belum jalan seperti seharusnya, malah di pembentukan file yang belum ada muncul error, di yang saya buat sebelumnya gak muncul.

Permasalahan yang saya hadapi diantaranya adalah:

�

�� On Error Resume Next

�� Set Wb = Workbooks("200912 Allocated Stock.xls")

�� On Error GoTo 0

�� If Wb Is Nothing Then

�� On Error Resume Next

�� Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

�� On Error GoTo 0

�� If Wb Is Nothing Then

�� Set NewBook = Workbooks.Add

�� NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

�� End If

�� End If

��

Logikanya sih, pertama kali akan dicek apakah file 200912 Allocated Stock.xls aktif/terbuka?

Jika tidak, maka akan dipanggil/dibuka file tersebut.

Jika dipanggil tidak datang, maka artinya file itu belum lahir, sehingga perlu di-create dulu..

�

Jika deretan coding di atas berjalan sebagaimana yang saya harapkan, maka sebenarnya yang berikut tidak diperlukan:

�

�� On Error Resume Next

�� Wb.Close SaveChanges:=True

�� On Error GoTo 0

�

Kenapa harus saya tambahkan itu?

Karena proses insert new sheet tidak jalan ketika file dalam keadaan terbuka.

�

-zam-

�

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Wednesday, December 02, 2009 1:11 PM

To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

�

Selamat Siang Mr. Zam.

Sepertinya masalah ada pada peletakan kode (tapi ini kira-kira), karena belum bisa membuktikannya.

Coba proses buat workbook baru termasuk save diletakkan pada sebuah module, tidak sebagai sebuah routine event object sheet. Kegiatan dalam object sheet ada beberapa batasan, yang belum tahu detil batasannya dimana saja.

Ketika kode diletakkan diluar object sheet (dari class worksheet), maka kode bekerja sebagai pihak luar walau dipanggil oleh routine dalam object sheet.

Jadi, kira-kira seperti ini (hanya copas dari yang ada) :

di sebuah module :

Public Sub SaveBook()

Dim Wb As Workbook

on error resume next�

� Set Wb = Workbooks("200912 Allocated Stock.xls")

�� On Error GoTo 0

�� If Wb Is Nothing Then

�� On Error Resume Next

�� Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

�� On Error GoTo 0

�� If Wb Is Nothing Then

�� Set NewBook = Workbooks.Add

�� NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

�� End If

�� End If

End Sub

pada event commandbutton click di object sheet :

Private Sub CommandButton1_Click()

Dim Tgl As String

�

�� Tgl = Range("H1").Value

�� 'panggil routine SaveBook untuk lakukan create/open lalu save

� � savebook

�� On Error Resume Next

��

�� Workbooks("200912 Allocated Stock.xls").Sheets.Add after:=Sheets(Sheets.Count)

�� ActiveSheet.Name = "ALS" & Left(Tgl, 2)

�� Tgl = ActiveSheet.Name

��

�� Application.DisplayAlerts = False

�� On Error Resume Next

�� Sheets("Sheet1").Delete

�� On Error GoTo 0

�� Application.DisplayAlerts = True

��

�� Workbooks("200912 File Order.xls").Sheets("ALS").Range("B:H").Copy

�� Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteValues)

�� Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteFormats)

��

�� On Error Resume Next

�� Wb.Close SaveChanges:=True

�� On Error GoTo 0

�

End Sub

#2656

From: hery wahyudi <hery@...>
Date: Wed Dec 2, 2009 8:32 am
Subject: Re: WTA: Mencari Separator (pembatas) pada formula Excel

hery_male

Offline

Selamat Sore,

Mas Kid dan Mbak Siti,

TerimaKasih, sudah bantu,

nanti akan aku coba, ilmu dari mas kid ini,

Untuk sementara (yang penting Program jalan), aku beri Input Box pada awal applikasi, yang mengharuskan user untuk memilih regional optionnnya ";" atau ","� :)

sambil terus mengembangkan untuk jadi lebih mudah bagi user,

Terimakasih

Miturut Mr. Kid kados ingkang kaserat ing ngandap meniko:

�

Jika memanfaatkan excel application, cara ini yang paling tepat, bias dipanggil dari mana saja.

Jadi begitu sudah deklarasi object sebagai excel.application, maka bisa menggunakan saran mbak Siti yang terakhir itu.

Jika mau pakai WinAPI, ada regional setting diatur oleh kernel32

Fungsi yang bisa digunakan -- contoh dengan VB -- :�

(sesuaikan cara deklarasi fungsi dan include library dengan bahasa pemrograman yag digunakan)

1. Untuk mendapatkan karakter regional�setting�

Declare Function GetLocaleInfo Lib "kernel32" Alias _

"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _

ByVal lpLCData As String, ByVal cchData As Long) As Long

2. Untuk ganti (set) karakter regional setting

Declare Function SetLocaleInfo Lib "kernel32" Alias _

"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _

ByVal lpLCData As String) As Boolean

3. untuk mendapatkan setting yang digunakan si komputer saat ini (yang jadi default)

Declare Function GetUserDefaultLCID% Lib "kernel32" ()�

Seluruh variabel LCType adalah nilai Enum dari berbagai macam item setting.

Deklarasikan variabel masing-masing item yang Anda gunakan sebagai konstanta berisi nilai enum tersebut dalam Hexadecimal.

Contoh untuk list separator :

Public Const LOCALE_SLIST = &HC�

Dan gunakan fungsi-fungsi diatas.

Contoh (menggunakan VB) : Karena ingin mengambil karakter list separator, maka yang digunakan hanya 1 dan 3

Public Const LOCALE_SLIST = &HC�

Public Function ListSeparatorKu() as String

�� Dim sListSeparatorKu as string � �'variabel wadah sementara �(cuma beda s saja)

�� Dim lSettingID as long

��

�� Listseparatorku = vbnullstring

�� 'dapatkan id regional setting yang digunakan (default si komputer sekarang)

�� lSettingID =�GetUserDefaultLCID()

�� 'asumsi : jumlah karakter list separator adalah 4,�

�� 'maka manfaatkan fungsi no 2 untuk dapatkan karakter itu

�� 'dengan memasukkan parameter string yang jumlah karakternya sudah didefinisikan

�� 'dan selalu di tambah 1 dari julah asumsi, supaya mudah diambil lagi.

�� 'dengan karakter bawaan tertentu�

�� sListseparatorku = String$(5, 0) � � ' 5 karena 4 + 1, dan 0 (numerik) = Chr$(0)

�� Call GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, 5) � � �' �5 karena 4 + 1

�� IF instr( sListseparatorku, Chr$(0) ) > 0 then

�� Listseparatorku = Left$(�sListseparatorku ,�instr( sListseparatorku, Chr$(0) ) - 1 )

�� end if

��

�� 'mau lihat hasilnya :

�� msgbox listseparatorku

End Function

Itu tadi masih dengan asumsi julah karakternya 4. Gimana kalau kenyataannya lebih ?

dalam programming ndak ada kata ndak mungkin, oleh sebab itu selalu ada error handler bahkan untuk asumsi yang jelas, diberi atau dicek syarat batas suatu nilainya.

Jadi, lebih enak jika sudah pasti tahu berapa jumlah karakternya kan.

Caranya, memanfaatkan fungsi no.1

�� dim lPanjangKarakter as long

��

�� lSettingID =�GetUserDefaultLCID()

�� lpanjangkarakter = �GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku,0)

�� sListseparatorku = String$(lpanjangkarakter, 0)

�� Call GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, lpanjangkarakter)

�� 'atau :

�� ' � lpanjangkarakter =�GetLocaleInfo(lSettingID, LOCALE_SLIST, sListseparatorku, lpanjangkarakter)

�� IF instr( sListseparatorku, Chr$(0) ) > 0 then

�� Listseparatorku = Left$(�sListseparatorku ,�instr( sListseparatorku, Chr$(0) ) - 1 )

�� end if

�� 'atau dengan blok :

�� ' � lpanjangkarakter =�instr( sListseparatorku, Chr$(0) )

�� ' � IF lpanjangkarakter > 0 then

�� ' � � � � �Listseparatorku = Left$(�sListseparatorku ,�lpanjangkarakter - 1 )

�� ' � end if

��

Semoga bermanfaat.

Kid.

2009/12/1 siti Vi <setiyowati.devi@gmail.com>

�

oo begeetoo...

nah saya blum pernah main main dengan COM
apakah saat main-main dengan COM ndak ada kesempatan ber VBA ria?
karena List-Separator itu disimpan di sebuah property
kalau dilihat dari excel :
Application.International(Index)

untuk percobaan:
Sub ListSeparatorKu()
Dim lsp
lsp = Application.International(xlListSeparator)
MsgBox lsp & "� = Ascii Code : " & Asc(lsp)
End Sub

bgmana ini mas Kid ?? (ahlinya nih...)..

�

�

----- Original Message -----
From: hery wahyudi
To: belajar-excel@yahoogroups.com

Sent: Tuesday, December 01, 2009 3:07 PM
Subject: Re: [belajar-excel] WTA: Mencari Separator (pembatas) pada formula Excel

Mbak Siti Benar,
tapi masalahnya begini mbak,
yang jadi "Exceller sejati " itu program lain, yang dari program ini aku memanfaatkan Component Object Model(COM) nya Excel,
sederhananya, aku control excel dari program lain, dan akan menuliskan formula di excel tsb,
nah, masalahnya separator setiap kompie tergantung settingannya, jadi ya pasti beda2
aku yakin pasti ada source tempat menyimpan separator ini,
cuma belum ketemu
maaf, jadi mbleber topiknya,
BTW Terimakasih Mbak Siti sudah bersedia� membahasnya,
Terimakasih

Miturut siti Vi kados ingkang kaserat ing ngandap meniko:�
Tanpa membuka control panel, tanpa makro ??
IMHO, ya harus dicoba (try & err) tuliskan di fungsi; misal Vlookup(A1;B1:B3;1;FALSE)
(argument / list separator = semicolon (;) jika di enter dianggap SALAH

maka berarti argument-separatornya harus diganti koma (,)
(NOTE err-msg tsb bisa muncul karena kesalahan lain; bukan hanya soal ListSeparator saja)

Sekedar saran, sebagai "exceller sejati", begitu ketemu PC baru tentunya kita ingin segera tahu
(dan mencatat) segala setting yg berhubungan dengan excel bukan ??
*default direktori tempat mensave file
*direktori untuk mensave AutoRecover
*Language setting
*Format date time
*List separator
*Decimal separator
*Thousand Separator
dan sebangsanya..

--
Template

� Hery Wahyudi

Reply | Forward | Messages in this Topic (7)

#2655

From: siti Vi <setiyowati.devi@...>
Date: Wed Dec 2, 2009 7:54 am
Subject: Re: sort data dari bulan januari hingga desember

siti_vi

Offline

^o^ ... berubah total ?! :-),

no problemo ...

'---------------------------------

( sebelum menulis rumusnya, Adek si "Cah Mbelink..." datang ikut nimbrung... mengajak "bedh�kan" )

"aturannya kan hanya ingin mengurutkan berdasarkan bulan dowang ya mbak !

^ kalau sekelompok data bulannya sama, mana yg mau didahulukan mbak?"

( yg tanggalnya lebih muda dong Dek ! )

"^ kalau sekelompok data punya bulan dan tanggal yg sama, mana ygharus didahulukan ?"

( yg tahunnya lebih muda = lebih dulu tampil ! )

"^ kalau sekelompok data punya bulan, tgl dan tahun yg sama, mana yg ditampilkan lebih dulu, hayoh ??"

( yg NAMANYA dimulai dengan karakter yg lebih bernilai keil ( a < b < c <.... < z )

"^ kalau ada sekelompok data punya tgl, bln, th, HURUF PERTAMA NAMA yg sama ??? 'gimana hayoh !?"

( husy ...! yg punya kasus juga ndak ceriwis kayak situ kok Dek...Dek...!!!)

sorting dengan formula itu ada keterbaasannya karena bilangan hanya presisi di 15 digit tauk ?!

'-------------------------------

--cara 1 --

sorting dengan formula (hasil ada di range lain)

formula pengurut: tetap seperti semula, ada variasi & modif sedikit,

karena bila tgl-nya sama diinginkan nama "A.." harus lebih dulu tampil daripada nama "B..."

array formula

=RIGHT(TEXT(SMALL(ROUND((TEXT(B3:B98,"MMDDYYYY")

&CODE(A3:A98))+ROW(B1:B96)/100,2),ROW(B1:B96)),"0.00"),2)

formula untuk menampilkan

=offset(data ke 0, angkapengurut, 0)

--cara 2 --

sorting dengan metoda yg ada pada menu Data > Sort...

kita harus punya kolom kunci yg berupa text angka BULAN_TGL_TAHUN

=TEXT(C3,"MMDDYYYY")

berdasarkan kolom tambahan itulah tabel di sort...

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 11:19 AM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

Sorri data kurang lengkap yang aku maksud seperti ini...

kolom kuning hasilnya.... berurut dari bulan januari juga namanya ngikut disort.

thx

nama tanggal lahir nama hasil urut berdasar bulan

anto 01 Mar 1975 agustinus
15 Jan 1983

budi 01 Apr 1977 parto

01 Jan 1985

donny 19 Sep 1977 verri
13 Feb 1980

agus 26 Feb 1978 agus 26 Feb 1978

supratman 01 Apr 1978 anto 01 Mar 1975

verri 13 Feb 1980 nila 01 Mar 1981

gona 14 Jun 1980 sorte 15 Mar 1989

terra 07 Agust 1980 dst dst

nila 01 Mar 1981

silva 03 Agust 1981

bagoes 20 Agust 1981

renna 21 Sep 1981

agustinus 15 Jan 1983

siti 19 Okt 1983

parto 01 Jan 1985

joe 05 Okt 1987

sorte 15 Mar 1989

----- Original Message -----

From: siti Vi

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 11:17 AM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

seperti apakah hasil yg diinginkan ??
(kebanyakan penanya tidak menyertakan "Bagian Penting" ini, kanafa ya..)

apakah seperti kolom B ? ataukah seperti kolom E ?

sila dipilih sendiri, formulanya ada di worksheet lampiran..

data

hasil

dummies

hasil

01 Mar 1975

01-Mar-75

15

01-Jan-85

01 Apr 1977

01-Apr-77

46

01-Jan-95

19 Sep 1977

19-Sep-77

51

01-Jan-97

26 Feb 1978

26-Feb-78

52

01-Jan-97

01 Apr 1978

01-Apr-78

53

01-Jan-97

13 Feb 1980

13-Feb-80

55

01-Jan-98

14 Jun 1980

14-Jun-80

77

01-Jan-05

07 Aug 1980

07-Aug-80

36

02-Jan-92

01 Mar 1981

01-Mar-81

56

02-Jan-98

03 Aug 1981

03-Aug-81

57

02-Jan-98

20 Aug 1981

20-Aug-81

58

02-Jan-98

21 Sep 1981

21-Sep-81

59

02-Jan-98

15 Jan 1983

15-Jan-83

95

04-Jan-08

19 Oct 1983

19-Oct-83

41

10-Jan-93

01 Jan 1985

01-Jan-85

13

15-Jan-83

05 Oct 1987

05-Oct-87

43

01-Feb-94

15 Mar 1989

15-Mar-89

47

01-Feb-95

15 Mar 1989

15-Mar-89

6

13-Feb-80

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 9:06 AM

Subject: [belajar-excel] sort data dari bulan januari hingga desember

Mohon bantuan nih...

gimana caranya sort data berpatokan pada bulan.

hasilnya menjadi bulan Januari sd Desember

Thx

Rey

#2654

From: "Ahmad Zamroni" <ahzam05@...>
Date: Wed Dec 2, 2009 7:07 am
Subject: RE: copy and insert a sheet to other specify file/workbook

elits2059

Offline

Trima kasih, Mr. Kid

Belum jalan seperti seharusnya, malah di pembentukan file yang belum ada muncul error, di yang saya buat sebelumnya gak muncul.

Permasalahan yang saya hadapi diantaranya adalah:

On Error Resume Next

Set Wb = Workbooks("200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

On Error Resume Next

Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

End If

Logikanya sih, pertama kali akan dicek apakah file 200912 Allocated Stock.xls aktif/terbuka?

Jika tidak, maka akan dipanggil/dibuka file tersebut.

Jika dipanggil tidak datang, maka artinya file itu belum lahir, sehingga perlu di-create dulu..

Jika deretan coding di atas berjalan sebagaimana yang saya harapkan, maka sebenarnya yang berikut tidak diperlukan:

On Error Resume Next

Wb.Close SaveChanges:=True

On Error GoTo 0

Kenapa harus saya tambahkan itu?

Karena proses insert new sheet tidak jalan ketika file dalam keadaan terbuka.

-zam-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Wednesday, December 02, 2009 1:11 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

Selamat Siang Mr. Zam.

Sepertinya masalah ada pada peletakan kode (tapi ini kira-kira), karena belum bisa membuktikannya.

Coba proses buat workbook baru termasuk save diletakkan pada sebuah module, tidak sebagai sebuah routine event object sheet. Kegiatan dalam object sheet ada beberapa batasan, yang belum tahu detil batasannya dimana saja.

Ketika kode diletakkan diluar object sheet (dari class worksheet), maka kode bekerja sebagai pihak luar walau dipanggil oleh routine dalam object sheet.

Jadi, kira-kira seperti ini (hanya copas dari yang ada) :

di sebuah module :

Public Sub SaveBook()

Dim Wb As Workbook

on error resume next

Set Wb = Workbooks("200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

On Error Resume Next

Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

End If

End Sub

pada event commandbutton click di object sheet :

Private Sub CommandButton1_Click()

Dim Tgl As String

Tgl = Range("H1").Value

'panggil routine SaveBook untuk lakukan create/open lalu save

savebook

On Error Resume Next

Workbooks("200912 Allocated Stock.xls").Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "ALS" & Left(Tgl, 2)

Tgl = ActiveSheet.Name

Application.DisplayAlerts = False

On Error Resume Next

Sheets("Sheet1").Delete

On Error GoTo 0

Application.DisplayAlerts = True

Workbooks("200912 File Order.xls").Sheets("ALS").Range("B:H").Copy

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteValues)

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteFormats)

On Error Resume Next

Wb.Close SaveChanges:=True

On Error GoTo 0

End Sub

#2653

From: "Mr. Kid" <mr.nmkid@...>
Date: Wed Dec 2, 2009 6:11 am
Subject: Re: copy and insert a sheet to other specify file/workbook

nmkid.family...

Offline

Dim Wb As Workbook

on error resume next

Set Wb = Workbooks("200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

On Error Resume Next

Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

End If

End Sub

pada event commandbutton click di object sheet :

Private Sub CommandButton1_Click()

Dim Tgl As String

Tgl = Range("H1").Value

'panggil routine SaveBook untuk lakukan create/open lalu save

savebook

On Error Resume Next

Workbooks("200912 Allocated Stock.xls").Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "ALS" & Left(Tgl, 2)

Tgl = ActiveSheet.Name

Application.DisplayAlerts = False

On Error Resume Next

Sheets("Sheet1").Delete

On Error GoTo 0

Application.DisplayAlerts = True

Workbooks("200912 File Order.xls").Sheets("ALS").Range("B:H").Copy

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteValues)

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteFormats)

On Error Resume Next

Wb.Close SaveChanges:=True

On Error GoTo 0

End Sub

2009/12/2 Ahmad Zamroni <ahzam05@...>

Ndak, lah… saya hanyalah seorang pembelajar yang pengin mengetahui banyak hal..

Terima kasih untuk Siti yang bagaimanapun adalah Guru Macro saya, sering japri ketika baru mulai tergoda dengan macro

Back to case:

Di attachment, setelah googling sana sini nemukan ramuan untuk masalah saya..

Tapi memang belum sempurna

Proses check error sepertinya memerlukan masukan agar lebih efisien.

Dan yang saya heran di bagian akhir kok tidak bekerja saat pembentukan file yang belum ada. Karena tanpa control menimbulkan error, makanya saya kasih pagar.

Any advice??

Private Sub CommandButton1_Click()

Dim Tgl As String

Dim Wb As Workbook

    Tgl = Range("H1").Value

    On Error Resume Next

    Set Wb = Workbooks("200912 Allocated Stock.xls")

    On Error GoTo 0

    If Wb Is Nothing Then

        On Error Resume Next

        Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

        On Error GoTo 0

        If Wb Is Nothing Then

            Set NewBook = Workbooks.Add

            NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

        End If

    End If


    Workbooks("200912 Allocated Stock.xls").Sheets.Add after:=Sheets(Sheets.Count)

    ActiveSheet.Name = "ALS" & Left(Tgl, 2)

    Tgl = ActiveSheet.Name



    Application.DisplayAlerts = False

    On Error Resume Next

    Sheets("Sheet1").Delete

    On Error GoTo 0

    Application.DisplayAlerts = True



    Workbooks("200912 File Order.xls").Sheets("ALS").Range("B:H").Copy

    Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteValues)

    Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteFormats)



    On Error Resume Next

    Wb.Close SaveChanges:=True

    On Error GoTo 0

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of siti Vi
Sent: Wednesday, December 02, 2009 10:00 AM

To: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

saya kira tidak seperti itu lah yauw..

saya kenal pak zam sbg orang yg sudah lama & banyak bergelut dgn excel,
bentuk laporan, dan pangkalan datanya.

beliau seorang "formula-composser" yg handal, formula2nya efisien tapi canggih;

beliau juga masuk di hall of fame pada "challenger" nya milis excel terbesar di dunia.
juga sampai ada istilah "zamproduct", siapa lagi orangnya..?

(julukan itu pun diberikan oleh seorang pakar) dan itu sudah terjadi bertahun2 y.l.

sekedar "bentuk laporan" bukan menjadi masalah bagi pak zam
IMHO yg beliau tanyakan adalah cara mengotomatiskan (dgn makro)

<> tiap bulan_baru : membuat workbook baru (otomatis)
<> tiap tanggal_baru : membuat sheet baru (otomatis)

ha ! ini promisi apa ya?? (biar dijadikan menantu ?? he he.. )

cmiiw

#2652

From: siti Vi <setiyowati.devi@...>
Date: Wed Dec 2, 2009 5:43 am
Subject: Re: (unknown)

siti_vi

Offline

berhubung pak hartono tidak mau menambahkan informasi..

barangkali ada kendala dlm mengirim attachment...??

terpaksa kita "karang-mengarang" sendiri mengenai data fiktip nya

( kerja bakti 'ni yee... )

tabel ditulis di sheet 'daftar'

Rec#	Nomor Ujuan	Nama Peserta Ujian	Kelas	Ruang Ujian
1	UJ-001	Fitri	IV F	R 6
2	UJ-002	Tiara	VI A	R 5
3	UJ-003	Deasy	IV F	R 2
4	UJ-004	Wulan	V H	R 4
5	UJ-005	Britni	IV J	R 6
6	UJ-006	Olga	VI D	R 4
7	UJ-007	Pritta	VI C	R 4

dst...

tampilan 2 x 4 = 8 kartu (persekali tampil) yg akan dicetak: di sheet 'tampilcetak'

setiap kali SpinButton di klik >> tampilan cetak berganti 8 kartu berikutnya

tidak ada makro, dicarikan cara dan formula yg sederhana.. lihat di lampiran

----- Original Message -----
From: hartono lentera
To: belajar-excel@yahoogroups.com
Sent: Monday, November 30, 2009 11:43 PM
Subject: [belajar-excel] (unknown)

pengasuh belajar excel dan rekan rekan yang saya hormati,
sebagai anggota baru saya mohon pemecahan masalah excel sbb:

sebagai panitia ujian si sekolah saya harus membuat kartu peserta ujian dan kartu label

yang ditempelkan di bangku tempat ujian.

saya sudah susun no ujian nama, peserta ujian, kelas, dan ruang ujian. tetapi ketika saya

akan mencetak kartu atau label tsb, saya menjadi bingung karena tidak tahu bagaimanakah

cara yang praktis untuk menulis data pada kartu tersebut dan cara pencetakannya.

saya rencanakan dalam satu lembar folio bisa dibuat 8 kartu peserta.

terima kasih atas kebaikan rekan rekan.

#2651

From: "Ahmad Zamroni" <ahzam05@...>
Date: Wed Dec 2, 2009 4:37 am
Subject: RE: copy and insert a sheet to other specify file/workbook

elits2059

Offline

Ndak, lah… saya hanyalah seorang pembelajar yang pengin mengetahui banyak hal..

Terima kasih untuk Siti yang bagaimanapun adalah Guru Macro saya, sering japri ketika baru mulai tergoda dengan macro

Back to case:

Di attachment, setelah googling sana sini nemukan ramuan untuk masalah saya..

Tapi memang belum sempurna

Proses check error sepertinya memerlukan masukan agar lebih efisien.

Dan yang saya heran di bagian akhir kok tidak bekerja saat pembentukan file yang belum ada. Karena tanpa control menimbulkan error, makanya saya kasih pagar.

Any advice??

Private Sub CommandButton1_Click()

Dim Tgl As String

Dim Wb As Workbook

Tgl = Range("H1").Value

On Error Resume Next

Set Wb = Workbooks("200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

On Error Resume Next

Set Wb = Workbooks.Open("C:\Users\ahzam\Documents\200912 Allocated Stock.xls")

On Error GoTo 0

If Wb Is Nothing Then

Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:="C:\Users\ahzam\Documents\200912 Allocated Stock.xls"

End If

Workbooks("200912 Allocated Stock.xls").Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "ALS" & Left(Tgl, 2)

Tgl = ActiveSheet.Name

Application.DisplayAlerts = False

On Error Resume Next

Sheets("Sheet1").Delete

On Error GoTo 0

Application.DisplayAlerts = True

Workbooks("200912 File Order.xls").Sheets("ALS").Range("B:H").Copy

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteValues)

Workbooks("200912 Allocated Stock.xls").Sheets(Tgl).Range("B:H").PasteSpecial (xlPasteFormats)

On Error Resume Next

Wb.Close SaveChanges:=True

On Error GoTo 0

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of siti Vi
Sent: Wednesday, December 02, 2009 10:00 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

saya kira tidak seperti itu lah yauw..

saya kenal pak zam sbg orang yg sudah lama & banyak bergelut dgn excel,
bentuk laporan, dan pangkalan datanya.

beliau seorang "formula-composser" yg handal, formula2nya efisien tapi canggih;

beliau juga masuk di hall of fame pada "challenger" nya milis excel terbesar di dunia.
juga sampai ada istilah "zamproduct", siapa lagi orangnya..?

(julukan itu pun diberikan oleh seorang pakar) dan itu sudah terjadi bertahun2 y.l.

sekedar "bentuk laporan" bukan menjadi masalah bagi pak zam
IMHO yg beliau tanyakan adalah cara mengotomatiskan (dgn makro)

<> tiap bulan_baru : membuat workbook baru (otomatis)
<> tiap tanggal_baru : membuat sheet baru (otomatis)

ha ! ini promisi apa ya?? (biar dijadikan menantu ?? he he.. )

cmiiw

#2650

From: "Rey" <personalia_manado@...>
Date: Wed Dec 2, 2009 4:19 am
Subject: Re: sort data dari bulan januari hingga desember

personalia_manado@...

Sorri data kurang lengkap yang aku maksud seperti ini...

kolom kuning hasilnya.... berurut dari bulan januari juga namanya ngikut disort.

thx

nama	tanggal lahir	nama	hasil urut berdasar bulan
anto	01 Mar 1975	agustinus	15 Jan 1983
budi	01 Apr 1977	parto	01 Jan 1985
donny	19 Sep 1977	verri	13 Feb 1980
agus	26 Feb 1978	agus	26 Feb 1978
supratman	01 Apr 1978	anto	01 Mar 1975
verri	13 Feb 1980	nila	01 Mar 1981
gona	14 Jun 1980	sorte	15 Mar 1989
terra	07 Agust 1980	dst	dst
nila	01 Mar 1981
silva	03 Agust 1981
bagoes	20 Agust 1981
renna	21 Sep 1981
agustinus	15 Jan 1983
siti	19 Okt 1983
parto	01 Jan 1985
joe	05 Okt 1987
sorte	15 Mar 1989

----- Original Message -----

From: siti Vi

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 11:17 AM

Subject: Re: [belajar-excel] sort data dari bulan januari hingga desember

seperti apakah hasil yg diinginkan ??

(kebanyakan penanya tidak menyertakan "Bagian Penting" ini, kanafa ya..)

apakah seperti kolom B ? ataukah seperti kolom E ?

sila dipilih sendiri, formulanya ada di worksheet lampiran..

data

hasil

dummies

hasil

01 Mar 1975

01-Mar-75

15

01-Jan-85

01 Apr 1977

01-Apr-77

46

01-Jan-95

19 Sep 1977

19-Sep-77

51

01-Jan-97

26 Feb 1978

26-Feb-78

52

01-Jan-97

01 Apr 1978

01-Apr-78

53

01-Jan-97

13 Feb 1980

13-Feb-80

55

01-Jan-98

14 Jun 1980

14-Jun-80

77

01-Jan-05

07 Aug 1980

07-Aug-80

36

02-Jan-92

01 Mar 1981

01-Mar-81

56

02-Jan-98

03 Aug 1981

03-Aug-81

57

02-Jan-98

20 Aug 1981

20-Aug-81

58

02-Jan-98

21 Sep 1981

21-Sep-81

59

02-Jan-98

15 Jan 1983

15-Jan-83

95

04-Jan-08

19 Oct 1983

19-Oct-83

41

10-Jan-93

01 Jan 1985

01-Jan-85

13

15-Jan-83

05 Oct 1987

05-Oct-87

43

01-Feb-94

15 Mar 1989

15-Mar-89

47

01-Feb-95

15 Mar 1989

15-Mar-89

6

13-Feb-80

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 9:06 AM

Subject: [belajar-excel] sort data dari bulan januari hingga desember

Mohon bantuan nih...

gimana caranya sort data berpatokan pada bulan.

hasilnya menjadi bulan Januari sd Desember

Thx

Rey
PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited.

#2649

From: wahyu abdi <wahyu71@...>
Date: Wed Dec 2, 2009 4:08 am
Subject: RE: Share document

wahyu71

Offline

Thanks a lot Pak Agung dan Mbak Vi

--- On Tue, 12/1/09, Agung S <asupriyanto@...> wrote:

From: Agung S <asupriyanto@...>
Subject: RE: [belajar-excel] Share document
To: belajar-excel@yahoogroups.com
Date: Tuesday, December 1, 2009, 9:45 PM

Coba Buka document yang di share trus pilih Tools ----Share Workbook ----- beri tanda ceklist pada kotak Allow….

Salam

Agung

From: belajar-excel@ yahoogroups. com [mailto:belajar- excel@yahoogroup s.com] On Behalf Of wahyu71
Sent: Wednesday, December 02, 2009 9:24 AM
To: belajar-excel@ yahoogroups. com
Subject: [belajar-excel] Share document

Dear Milis,

Saya sudah buat file yg saya tempatkan di sharedoc, tapi tidak bisa diakses bila sedang digunakan oleh user yg lain.

Mohon bantuannya solusi apa yg harus saya pakai? karena file tersebut memang untuk dapat dilihat, dan di rubah oleh lebih dari satu orang.

Thanks sebelumnya

Salam
Wahyu

CONFIDENTIALITY NOTICE
This message including any attachment(s) , may contain confidential and/or privileged information. Unless you are the intended recipient (or authorized to receive for the intended recipient) you may not read, print, retain, use, copy, distribute or disclose to anyone the message or any information contained in the message herein. If you have received this communication in error, please advise the sender by reply e-mail and destroy all copies (including any attachments) of the original message. PT. Elnusa Tbk. is neither liable for the proper and complete transmission of the information contained in this communication nor for any delay in its receipt. If you require further assistance, please contact our office : +6221 7883 0850 (hunting) or corporate@elnusa. co.id

#2648

From: wahyu abdi <wahyu71@...>
Date: Wed Dec 2, 2009 4:04 am
Subject: Re: copy and insert a sheet to other specify file/workbook

wahyu71

Offline

o ya

senang sekali kalau begitu, salam kenal Pak Zam, postingan saya tidak bermaksud merendahkan kan ? saya mohon maaf kalau ada ynag beranggapan begitu

salam wahyu

--- On Tue, 12/1/09, siti Vi <setiyowati.devi@...> wrote:

From: siti Vi <setiyowati.devi@...>
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook
To: belajar-excel@yahoogroups.com
Date: Tuesday, December 1, 2009, 10:00 PM

saya kira tidak seperti itu lah yauw..

saya kenal pak zam sbg orang yg sudah lama & banyak bergelut dgn excel,
bentuk laporan, dan pangkalan datanya.

beliau seorang "formula-composser" yg handal, formula2nya efisien tapi canggih;

beliau juga masuk di hall of fame pada "challenger" nya milis excel terbesar di dunia.
juga sampai ada istilah "zamproduct" , siapa lagi orangnya..?

(julukan itu pun diberikan oleh seorang pakar) dan itu sudah terjadi bertahun2 y.l.

sekedar "bentuk laporan" bukan menjadi masalah bagi pak zam
IMHO yg beliau tanyakan adalah cara mengotomatiskan (dgn makro)

<> tiap bulan_baru : membuat workbook baru (otomatis)
<> tiap tanggal_baru : membuat sheet baru (otomatis)

ha ! ini promisi apa ya?? (biar dijadikan menantu ?? he he.. )

cmiiw

----- Original Message -----
From: wahyu abdi
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, December 02, 2009 9:15 AM
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

Sekedar nambahin komen nya Mr. Kid,
Kita tidak boleh terpaku pada hasil tapi juga pada proses, apa yang Mr Zam minta adalah untuk memenuhi suatu bentuk laporan, yang bisa berbagai macam bentuknya.

Sumber datanya justru ada di transaksi harian itu sendiri, sebaiknya dibuat satu worbook atau sheet yang berisi field yg memuat informasi tersebut selengkap mungkin.

Kalau datanya ada, laporan seperti apapun bisa di buat.

Semoga bermanfaat.

Salam
Wahyu Abdi

--- On Tue, 12/1/09, Mr. Kid <mr.nmkid@gmail. com> wrote:
From: Mr. Kid <mr.nmkid@gmail. com>
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook
To: belajar-excel@ yahoogroups. com
Date: Tuesday, December 1, 2009, 3:34 AM

Mungkin lebih baik seluruh file berjumlah sheet yang sama berisi header saja Mr. Zam.
Lalu sediakan satu sheet sebagai log jumlah data dan nama data dimasing-masing sheet

(seperti catalog pada database).
Jadi, seluruh file strukturnya sama, dan bisa dibuat sebuah file template.
Cara generate file bulan berikutnya, tetap pakai cara mbak siti juga tetap bisa.

Kid.

#2647

From: siti Vi <setiyowati.devi@...>
Date: Wed Dec 2, 2009 3:17 am
Subject: Re: sort data dari bulan januari hingga desember

siti_vi

Offline

seperti apakah hasil yg diinginkan ??

(kebanyakan penanya tidak menyertakan "Bagian Penting" ini, kanafa ya..)

apakah seperti kolom B ? ataukah seperti kolom E ?

sila dipilih sendiri, formulanya ada di worksheet lampiran..

data	hasil	dummies	hasil
01 Mar 1975	01-Mar-75	15	01-Jan-85
01 Apr 1977	01-Apr-77	46	01-Jan-95
19 Sep 1977	19-Sep-77	51	01-Jan-97
26 Feb 1978	26-Feb-78	52	01-Jan-97
01 Apr 1978	01-Apr-78	53	01-Jan-97
13 Feb 1980	13-Feb-80	55	01-Jan-98
14 Jun 1980	14-Jun-80	77	01-Jan-05
07 Aug 1980	07-Aug-80	36	02-Jan-92
01 Mar 1981	01-Mar-81	56	02-Jan-98
03 Aug 1981	03-Aug-81	57	02-Jan-98
20 Aug 1981	20-Aug-81	58	02-Jan-98
21 Sep 1981	21-Sep-81	59	02-Jan-98
15 Jan 1983	15-Jan-83	95	04-Jan-08
19 Oct 1983	19-Oct-83	41	10-Jan-93
01 Jan 1985	01-Jan-85	13	15-Jan-83
05 Oct 1987	05-Oct-87	43	01-Feb-94
15 Mar 1989	15-Mar-89	47	01-Feb-95
15 Mar 1989	15-Mar-89	6	13-Feb-80

----- Original Message -----

From: Rey

To: belajar-excel@yahoogroups.com

Sent: Wednesday, December 02, 2009 9:06 AM

Subject: [belajar-excel] sort data dari bulan januari hingga desember

Mohon bantuan nih...

gimana caranya sort data berpatokan pada bulan.

hasilnya menjadi bulan Januari sd Desember

Thx

Rey

#2646

From: siti Vi <setiyowati.devi@...>
Date: Wed Dec 2, 2009 3:03 am
Subject: Re: Share document

siti_vi

Offline

mungkin...

mungkin lho ya...

terhadap workbook tsb belum diperlakukan khusus melalui menu:

Tools > Share Workbook >> dst...

----- Original Message -----

From: "wahyu71" <wahyu71@...>

To: <belajar-excel@yahoogroups.com>

Sent: Wednesday, December 02, 2009 9:24 AM

Subject: [belajar-excel] Share document

> Dear Milis,
>
> Saya sudah buat file yg saya tempatkan di sharedoc, tapi tidak bisa diakses

> bila sedang digunakan oleh user yg lain.
>
> Mohon bantuannya solusi apa yg harus saya pakai? > karena file tersebut memang

> untuk dapat dilihat, dan di rubah oleh lebih dari satu orang.
>
> Thanks sebelumnya
>
> Salam
> Wahyu

#2645

From: siti Vi <setiyowati.devi@...>
Date: Wed Dec 2, 2009 3:00 am
Subject: Re: copy and insert a sheet to other specify file/workbook

siti_vi

Offline

saya kira tidak seperti itu lah yauw..

saya kenal pak zam sbg orang yg sudah lama & banyak bergelut dgn excel,
bentuk laporan, dan pangkalan datanya.

beliau seorang "formula-composser" yg handal, formula2nya efisien tapi canggih;

beliau juga masuk di hall of fame pada "challenger" nya milis excel terbesar di dunia.
juga sampai ada istilah "zamproduct", siapa lagi orangnya..?

<> tiap bulan_baru : membuat workbook baru (otomatis)
<> tiap tanggal_baru : membuat sheet baru (otomatis)

ha ! ini promisi apa ya?? (biar dijadikan menantu ?? he he.. )

cmiiw

----- Original Message -----
From: wahyu abdi
To: belajar-excel@yahoogroups.com
Sent: Wednesday, December 02, 2009 9:15 AM
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook

Sekedar nambahin komen nya Mr. Kid,
Kita tidak boleh terpaku pada hasil tapi juga pada proses, apa yang Mr Zam minta adalah untuk memenuhi suatu bentuk laporan, yang bisa berbagai macam bentuknya.

Sumber datanya justru ada di transaksi harian itu sendiri, sebaiknya dibuat satu worbook atau sheet yang berisi field yg memuat informasi tersebut selengkap mungkin.

Kalau datanya ada, laporan seperti apapun bisa di buat.

Semoga bermanfaat.

Salam
Wahyu Abdi

--- On Tue, 12/1/09, Mr. Kid <mr.nmkid@...> wrote:
From: Mr. Kid <mr.nmkid@...>
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook
To: belajar-excel@yahoogroups.com
Date: Tuesday, December 1, 2009, 3:34 AM

Mungkin lebih baik seluruh file berjumlah sheet yang sama berisi header saja Mr. Zam.
Lalu sediakan satu sheet sebagai log jumlah data dan nama data dimasing-masing sheet

(seperti catalog pada database).
Jadi, seluruh file strukturnya sama, dan bisa dibuat sebuah file template.
Cara generate file bulan berikutnya, tetap pakai cara mbak siti juga tetap bisa.

Kid.

#2644

From: "Agung S" <asupriyanto@...>
Date: Wed Dec 2, 2009 2:45 am
Subject: RE: Share document

asupriyanto@...

Coba Buka document yang di share trus pilih Tools ----Share Workbook ----- beri tanda ceklist pada kotak Allow….

Salam

Agung

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of wahyu71
Sent: Wednesday, December 02, 2009 9:24 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Share document

Dear Milis,

Saya sudah buat file yg saya tempatkan di sharedoc, tapi tidak bisa diakses bila sedang digunakan oleh user yg lain.

Mohon bantuannya solusi apa yg harus saya pakai? karena file tersebut memang untuk dapat dilihat, dan di rubah oleh lebih dari satu orang.

Thanks sebelumnya

Salam
Wahyu

CONFIDENTIALITY NOTICE
This message including any attachment(s), may contain confidential and/or privileged information. Unless you are the intended recipient (or authorized to receive for the intended recipient) you may not read, print, retain, use, copy, distribute or disclose to anyone the message or any information contained in the message herein. If you have received this communication in error, please advise the sender by reply e-mail and destroy all copies (including any attachments) of the original message. PT. Elnusa Tbk. is neither liable for the proper and complete transmission of the information contained in this communication nor for any delay in its receipt. If you require further assistance, please contact our office : +6221 7883 0850 (hunting) or corporate@...

#2643

From: "wahyu71" <wahyu71@...>
Date: Wed Dec 2, 2009 2:24 am
Subject: Share document

wahyu71

Offline

Dear Milis,

Saya sudah buat file yg saya tempatkan di sharedoc, tapi tidak bisa diakses bila
sedang digunakan oleh user yg lain.

Mohon bantuannya solusi apa yg harus saya pakai? karena file tersebut memang
untuk dapat dilihat, dan di rubah oleh lebih dari satu orang.

Thanks sebelumnya

Salam
Wahyu

#2642

From: wahyu abdi <wahyu71@...>
Date: Wed Dec 2, 2009 2:15 am
Subject: Re: copy and insert a sheet to other specify file/workbook

wahyu71

Offline

Sekedar nambahin komen nya Mr. Kid,

Kita tidak boleh terpaku pada hasil tapi juga pada proses, apa yang Mr Zam minta adalah untuk memenuhi suatu bentuk laporan, yang bisa berbagai macam bentuknya.

Sumber datanya justru ada di transaksi harian itu sendiri, sebaiknya dibuat satu worbook atau sheet yang berisi field yg memuat informasi tersebut selengkap mungkin.

Kalau datanya ada, laporan seperti apapun bisa di buat.

Semoga bermanfaat.

Salam

Wahyu Abdi

--- On Tue, 12/1/09, Mr. Kid <mr.nmkid@...> wrote:

From: Mr. Kid <mr.nmkid@...>
Subject: Re: [belajar-excel] copy and insert a sheet to other specify file/workbook
To: belajar-excel@yahoogroups.com
Date: Tuesday, December 1, 2009, 3:34 AM

Mungkin lebih baik seluruh file berjumlah sheet yang sama berisi header saja Mr. Zam.
Lalu sediakan satu sheet sebagai log jumlah data dan nama data dimasing-masing sheet (seperti catalog pada database).

Jadi, seluruh file strukturnya sama, dan bisa dibuat sebuah file template.

Cara generate file bulan berikutnya, tetap pakai cara mbak siti juga tetap bisa.

Kid.

2009/12/1 Ahmad Zamroni <ahzam05@gmail. com>

Assalamu’alaikum wr. wb.

Dear pakar macro,

Di lampiran file berisi makro yang mengcopy sheet ALS pada workbook yang sama.

Saya ingin merubahnya menjadi mengcopy ke workbook lain dengan nama file menyesuaikan bulan berjalan

Nantinya file baru yang dibuat bernama: 200912 Allocated Stock.xls dimana didalamnya akan berisi sheet ALS01, ALS02,…,ALS31

Jadi ketika di awal bulan file kedua belum ada, tentu oleh macro akan dibuatkan dan ketika menginjak hari berikutnya proses yang sama akan menambahkan sheet tanggal terakhir pada file yang sudah ada…

Terima kasih,

wassalam
-zam-