Search the web
Sign In
New User? Sign Up
belajar-excel · Milis Belajar Microsoft Excel
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Want to share photos of your group with the world? Add a group photo to Flickr.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
Messages 2642 - 2671 of 2671   Newest  |  < Newer  |  Older >  |  Oldest
Messages: Show Message Summaries   (Group by Topic) Sort by Date v  
#2671 From: "Rey" <personalia_manado@...>
Date: Fri Dec 4, 2009 12:28 am
Subject: Re: sort data dari bulan januari hingga desember
personalia_manado@...
Send Email Send Email
 
thengkyu...
 
----- Original Message -----
From: siti Vi
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
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
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
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 Offline
Send Email Send Email
 

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.
 
[ThisWorkbookModule.png]
 
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 Offline
Send Email Send Email
 

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 Offline
Send Email Send Email
 

(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
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 Offline
Send Email Send Email
 

=======
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 Offline
Send Email Send Email
 

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 Offline
Send Email Send Email
 
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! "

#2664 From: siti Vi <setiyowati.devi@...>
Date: Thu Dec 3, 2009 3:06 am
Subject: Re: (unknown)
siti_vi
Offline Offline
Send Email Send Email
 

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 Offline
Send Email Send Email
 

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 -----
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 Offline
Send Email Send Email
 
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 Offline
Send Email Send Email
 



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 Offline
Send Email Send Email
 

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 Offline
Send Email Send Email
 

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!

#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 Offline
Send Email Send Email
 
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




#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 Offline
Send Email Send Email
 
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 Offline
Send Email Send Email
 
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



#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 Offline
Send Email Send Email
 
^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
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
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
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 Offline
Send Email Send Email
 

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


#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 Offline
Send Email Send Email
 
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




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

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 Offline
Send Email Send Email
 

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 Offline
Send Email Send Email
 

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


#2650 From: "Rey" <personalia_manado@...>
Date: Wed Dec 2, 2009 4:19 am
Subject: Re: sort data dari bulan januari hingga desember
personalia_manado@...
Send Email Send Email
 
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
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
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 Offline
Send Email Send Email
 
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 Offline
Send Email Send Email
 
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 Offline
Send Email Send Email
 
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
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 Offline
Send Email Send Email
 
mungkin...
mungkin lho ya...
terhadap workbook tsb belum diperlakukan khusus melalui menu:
Tools > Share Workbook >>  dst...
 
 
 
----- Original Message -----
From: "wahyu71" <wahyu71@...>
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 Offline
Send Email Send Email
 

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

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 Offline
Send Email Send Email
 
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 Offline
Send Email Send Email
 
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-




Messages 2642 - 2671 of 2671   Newest  |  < Newer  |  Older >  |  Oldest
Advanced
Add to My Yahoo!      XML What's This?

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help