Messages In This Digest (25 Messages)
- 1a.
- Conditional Formating From: Harry
- 1b.
- Re: Conditional Formating From: Kid Mr.
- 2a.
- Re: Sort By Name (FILTER) From: Haps
- 3a.
- Bls: [belajar-excel] MEMBUAT MANUAL BOOK From: neza ibaneza
- 3b.
- Re: MEMBUAT MANUAL BOOK From: Haps
- 3c.
- Bls: [belajar-excel] MEMBUAT MANUAL BOOK From: neza ibaneza
- 4a.
- EDIT DATA From: Djati Walujo
- 4b.
- Re: EDIT DATA From: jkssxls Sudarsono
- 5a.
- ListBox Multi Selection From: Purnomo Sidi
- 5b.
- Re: ListBox Multi Selection From: Onto Seno
- 5c.
- Re: ListBox Multi Selection From: Purnomo Sidi
- 6.
- mengunci cell terisi di validation From: Tony Bexcel
- 7a.
- Week berdasar sel tanggal dan Bulan From: agung_widodo@sanyo.com
- 7b.
- Re: Week berdasar sel tanggal dan Bulan From: Udin Haeruddin
- 7c.
- Re: Week berdasar sel tanggal dan Bulan From: agung_widodo@sanyo.com
- 7d.
- Re: Week berdasar sel tanggal dan Bulan From: Kid Mr.
- 8a.
- Re: Debug dan restart my workbook From: ppc lambda
- 8b.
- Re: Debug dan restart my workbook From: jkssxls Sudarsono
- 8c.
- Re: Debug dan restart my workbook From: ppc lambda
- 8d.
- Re: Debug dan restart my workbook From: jkssxls Sudarsono
- 8e.
- Re: Debug dan restart my workbook From: Kid Mr.
- 8f.
- Re: Debug dan restart my workbook From: ppc lambda
- 8g.
- Re: Debug dan restart my workbook From: ppc lambda
- 8h.
- Re: Debug dan restart my workbook From: Kid Mr.
- 8i.
- Re: Debug dan restart my workbook From: Kid Mr.
Messages
- 1a.
-
Conditional Formating
Posted by: "Harry" hariansyahptk@yahoo.com hariansyahptk
Sun Dec 4, 2011 8:03 am (PST)
Dear BeExellers,
Mohon informasi cara menampilkan gambar sprt dibawah ini:
Pertanyaan saya ini berkenaan dengan pertanyaan saya sebelumnya mengenaiSort By Nama (FILTER) yang sampai sekarang saya belum tau jawabannya.
Terima kasih atas berkanan jawabannya.
Regards,
Harry - 1b.
-
Re: Conditional Formating
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Dec 4, 2011 8:07 am (PST)
Pada xl2003, ke menu Format, kemudian pilih Conditional Formatting
Pada xl2007, ke ribbon (menu) Home, grup Styles, klik Conditional
Formatting, dan pilih Use Formula bla-bla-bla
Kid.
2011/12/4 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExellers,
>
> Mohon informasi cara menampilkan gambar sprt dibawah ini:
>
>
> Pertanyaan saya ini berkenaan dengan pertanyaan saya sebelumnya
> mengenaiSort By Nama (FILTER) yang sampai sekarang saya belum tau
> jawabannya.
>
> Terima kasih atas berkanan jawabannya.
>
> Regards,
>
>
> Harry
>
>
>
>
>
>
>
- 2a.
-
Re: Sort By Name (FILTER)
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Sun Dec 4, 2011 2:55 pm (PST)
Sebelum meneruskan baca tanggapan ini, diharapkan pak hari sudah membuka
workbook "FILTER by NAME (RUMUS or formula) (haps).xls" (lampiran tangapan
yg dikirim ke milis Sabtu , 3 Dec 2011 2:56 AM.
*
*
*Conditional formatting (Excel 2003)*
*Range* yg akan diberi format pewarnaan berdasarkan syarat-syarat tertentu
(=conditional formatting); harus di select / blok lebih dulu, baru kemudian
hidupkan fiturnya (menu: Format > Conditional Formatting).
Dalam contoh yg dikirim waktu itu, daerah yg dikenai conditonal formatting
ada 2 (dua) area:
Range MANA yg sudah *dikenai* conditional formatting ? *bisa dicari sendiri
!!* dengan cara seperti ini (lihat gambar1)
[image: cara menjadi conditional format area.PNG]
Setelah diketemukan AREA-nya, select salah satu area/range (Pojok
Kiri-Atas-nya), atau lebih baik: Biarkan saja Selected-Range hasil
pencarian dengan dialog GotoSpecial tadi. Untuk memeriksa seperti apa
conditonal formatting yd diberlakukan, caranya dengan men-ceklik menu :
Format > Conditional Formatting..
Tutorial yg cukup baik bisa dibaca di sini..
http://www.contextures.com/xlcondFo rmat01.html
http://www.contextures.com/xlcondfo rmat03.html
http://chandoo.org/wp/2009/ 03/13/excel- conditional- formatting- basics/
*Array formula*
(adalah) Formula yg dlm kalkulasinya melibatan larik data (array),
Array formula harus di akhiri dengan menekan 3 kunci : Cttrl + Shift, Enter
Jika diinginkan menghasilkan* MULTI HASIL dalam beberapa cell
sekaligus,*cara menulisnya harus secara sekaligus pada BEBERAPA cells
tsb. (
* Blok/Select Range nya; tulis rumusnya (di formula bar), tekan 3 Tombol
C+S,E tsb )
Misal seperti dalam contoh yg kita kirim waktu itu; lihat *KOLOM K*; rumus
tertulis di* K2:K26 *(secara sekaligus)
=SMALL(IF(DATABASE!B3:B27=KEYWORD! A1,DATABASE! A3:A27),DATABASE !A3:A27)
Akhiri dengan menekan kunci [Ctrl] + [Shift], [ENTER]
Rumus tsb akan membuat *array angka urut posisi/nomor records* milik tabel
yg berada di sheet "Database" hanya dimunculkan yg sesuai kriteria saja
(kriterianya ada di sheet "keyword" cell A1). Anga tsb kemudian akan kita
manfaatkan untuk menghadirkan data / records ex Referenced-Tabel. (bisanya
dengan fungsi INDEX, VLOOKUP, HLOOKP ataupun (seperti dlm contoh) : OFFSET).
Array formula yg ditulis secara multi cell, *areanya *juga *dapat anda cari
sendiri,* caranya yg mirip dengan 'Cara Mencari area Conditional
Formatting" tetapi berbeda Optionnya saja : option = [ Current Array ]
Setelah mengetahui areanya, harusnya tidak bingung lagi: formula yg ada di
area tsb berlaku di Range mana.
Penjelasan array formula yg cukup baik ada di sini
http://www.cpearson.com/excel/ ArrayFormulas. aspx
http://chandoo.org/wp/tag/ array-formulas/
Beberapa contoh array formula (dlm kasus berbahasa indonesia) ada di sini
http://www.box.com/s/m4d7k8gixi 2lmp25631r
http://www.box.com/s/cimq7tvisp i3g53hyyvn
Sekarang gantian tanya, (mudah mudahan ada jawabannya)
Sekarang ini, untuk mempelajari excel dengan mudah, pak hari sudah pegang
buku apa ? (judul & pengarang / penerbit)?
Jika/seandainya belajar excel masih di tingkat ini ([array formula] &
[conditional formatting] saja masih menjadi kendala) tetapi sama sekali
tidak pegang text book (sesederhana apapun texsbook-nya), berarti pak hari
"sedang berlayar di samudera excel yg cukup luas, dengan perahu tanpa
membawa kompas dan peta; jarak ke pulau pertama yg hanya perlu waktu *7
jam *bisa pak hari tempuh dlm* 7 tahun* (akhirnya* sama *seperti belajar
sambil pegang textbook, yaitu SAMPAI JUGA, tetapi kelamaan) karena harus
berpurtar-purtar dulu mengarungi* **7 samudera*...
Maaf mungkin kalimat tsb tidak enak didengarnya, tetapi maksud saya murni
ingin menyemangati semua members yg sedang belajar, termasuk pak hari dan
terutama untuk diri saya sendiri.
Saya menduga: hal yg terjadi pada pak hari tidak seperti itu ( dgn lain
kata: kedua topik penjelasan di atas sebenarnya tidak diperlukan); karena
selama ini pertanyaan pak hari sudah level agak advanced yaitu sudah gemar
menyelesaikan keperluan di sheet dengan makro / vba - Excel programming)
Memang tidak ada yg mengharuskan, tetapi biasanya makro mulai dipelajari
ketika pemakaian excel ON SHEETS, baik formula yg melibatkan fungsi-fungsi
worksheet, maupun fitur-fitur &/ metoda-metoda yg bisa diakses langsung di
sheet, sudah dikuasi dengan cukup baik. Ibarat pondasi sebaiknya dipasang
dulu, maka bangunan di atasnya baru dapat didirikan dengan cukup mudah
serta hasil yg baik & kokoh.
h
*2011/12/4 Harry <hariansyahptk@yahoo.com >
*
>
> *Terima kasih atas penjalasan dan jawabannya.*
> *Saat ini saya masih kesulitan untuk mennambah Row dan Colom pada
> Lampiran yang sudah saya terima. Dan saya juga kesulitan memulai dari
> pertama untuk membuat Fileter terutama untuk memunculkan tampilan seperti
> gambar yang Bapak kirimkan (Conditional Formating).*
> *Mohon berkenan informasinya.*
> *Terima kasih.*
> *
> *
> *Regards,*
> **
> *Harry*
>
> --------------------- ---------
> *Dari:* Haps <hapsari.stlizbeth@gmail.com >
> *Dikirim:* Sabtu, 3 Desember 2011 2:56
> *Judul:* Re: [belajar-excel] Sort By Name
>
> *SORTING dan FITERING itu berbeda*
> *Sorting* hanya mengubah posisi-urutan tiap record dengan tujuan
> mengurutkan records berdasarkan kunci kolom (kolom-kolom) yg kita
> tentukan.
> *Filtering* "mengambil" records yg hanya memenuhi kriteria saja.
>
>
- 3a.
-
Bls: [belajar-excel] MEMBUAT MANUAL BOOK
Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza
Sun Dec 4, 2011 4:13 pm (PST)
terima kasih master Kid atas pencerahan excel, cara itu sdh berjalan ok, tp klw link
ke word gimana (pertanyaan kedua saya pada posting awal)?
regards
neza
_____________________ _________ __
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Sabtu, 3 Desember 2011 16:18
Judul: Re: [belajar-excel] MEMBUAT MANUAL BOOK
Coba pakai hyperlink
Klik kanan cell, pilih hyperlink, pilih place in this document, pilih nama sheet, dan isi alamat cell di tex box.
Kid.
2011/12/3 neza ibaneza <nezaibaneza@yahoo.co. >id
>
>tapi maaf nih master sekalian. pertanyaan saya belum dijawab mengenai manual book.
>
>
>
>
>
>____________________ _________ ___
> Dari: jkssxls Sudarsono <jkssxls@hotmail.com >
>Kepada: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups. >com
>Dikirim: Jumat, 2 Desember 2011 15:29
>Judul: RE: [belajar-excel] MEMBUAT MANUAL BOOK
>
>
>
>
>
>
>kLu sisiliah keluarga ada software untuk kebutuhan tsb. silakan cari melalui bing.com atau yang ini nih :
>
>http://www.ocidbrass.com/2008/ 09/gramps- program-untuk- menyusun- silsilah. html
>
>
>
>____________________ _________ ___
>To: belajar-excel@yahoogroups. com
>From: agung_widodo@sanyo.com
>Date: Fri, 2 Dec 2011 12:54:29 +0900
>Subject: RE: [belajar-excel] MEMBUAT MANUAL BOOK
>
>
>Maaf bukan menanggapi namun juga mau tanya
pertanyaan senada.
>
>
>Saya juga mengangankan membuat suatu file hampir
semacam Manual book
>Namun berisi tentang silsilah Keluarga.
>
>Berisi data anak, siapa saja, Ortunya asal
dari mana
>Orang tuanya siapa bin siapa bin siapa dst
>Termasuk dalam file ini ada foto dan sedikit
data data tentang alamat, nomor HP dll.
>
>(Kebetulan
saat reuni kemarin baru sadar bahwa keluarga kami telah menjadi keluarga besar
>Jadi
perlu dibuat dokumentasinya untuk anak cucu kelak biar tahu nama Mbah Buyutnya
siapa)
>
>Maaf saya sendiri belum punya gambaran
dibentuk bagaimana.
>Jadi maklum kalau tidak memberi lampiran.
>
>Wacana yang ada dengan memakai hyperlink
atau lookupkah
>
>Kiranya ada yang punya file semacam itu
atau solusi yang ditawarkan.
>
>Thanks
>Agung W
>
>
>
>____________________ _________ ___
>
>From:belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of neza ibanezacom
>Sent: Friday, December 02, 2011
7:50 AM
>To: EXCEL EXCEL
>Subject: [belajar-excel] MEMBUAT
MANUAL BOOK
>
>
>DEAR ALL
>Salam
Be-Excel
>
>mohon bantuan
para pakar excel,
>kemarin saya
bertanya tentang cara membuat manual book, seperti terlampir file manual book,
yaitu gimana caranya
>jika cell
chapter 1 di klik pada "sheet home" maka otomatis menunjuk cell
"chapter 1" pada "sheet introducing" dst.
>
>sebenarnya
mbak siti pernah memberikan satu solusi seperti terlampir file "membuat
struktur organisasi", tetapi membutuhkan
>banyak sheet.
kalau boleh mohon bantuan lagi pada para pakar excel untuk menghemat kapasitas
file dan sheet caranya seperti
>pertanyaan
diatas.
>
>
>best regards
>Neza
>
>
>
>
>
- 3b.
-
Re: MEMBUAT MANUAL BOOK
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Sun Dec 4, 2011 4:55 pm (PST)
lho... apa bener-bener gak mencoba yg bisa dicoba ?
pada saat mempraktekkan advice dari Mr. Kid; tentunya pada saat
dipraktekkan,
hal yg dapat dilakukan *tidak hanya SATU pilihan* persis seperti advice
saja, tetapi
seharusnya ada pilihan lain yg bisa dicoba-coba, misalnya (lihat gambar)
[image: hyperlink di cell EXCEL destinasi WORD_doc.PNG]
Hyperlink "bab1" di cell C6 (excel) jika di klik akan membuka* WORD
dokumen*"Agung Sedayu
naksir Sekar Mirah tapi ndak berani bilang.."
Untuk menentukan dokumennya sudah disediakan alat "Folder-Browser".
2011/12/5 neza ibaneza <nezaibaneza@yahoo.co. >id
> **
> terima kasih master Kid atas pencerahan excel, cara itu sdh berjalan ok,
> tp klw link
> ke word gimana (pertanyaan kedua saya pada posting awal)?
> regards
> neza
>
> --------------------- ---------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Dikirim:* Sabtu, 3 Desember 2011 16:18
> *
> * Coba pakai hyperlink
> Klik kanan cell, pilih hyperlink, pilih place in this document, pilih nama
> sheet, dan isi alamat cell di tex box.
> Kid.
>
>
- 3c.
-
Bls: [belajar-excel] MEMBUAT MANUAL BOOK
Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza
Sun Dec 4, 2011 5:17 pm (PST)
kalau mencoba link ke word udah. tp maksud dari pertanyaan adalah untuk penunjukan cell atau tulisan judul pada 1 file word saja yang mengandung banyak judul,
mirip kalau kita membuka help excel yang dapat membuka setiap judul dengan hanya mengkilk saja.
maaf kalau pertanyaannya kurang baik...
regards
neza
_____________________ _________ __
Dari: Haps <hapsari.stlizbeth@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Senin, 5 Desember 2011 8:54
Judul: Re: [belajar-excel] MEMBUAT MANUAL BOOK
lho... apa bener-bener gak mencoba yg bisa dicoba ?
pada saat mempraktekkan advice dari Mr. Kid; tentunya pada saat dipraktekkan,
hal yg dapat dilakukan tidak hanya SATU pilihan persis seperti advice saja, tetapi
seharusnya ada pilihan lain yg bisa dicoba-coba, misalnya (lihat gambar)
Hyperlink "bab1" di cell C6 (excel) jika di klik akan membukaWORD dokumen"Agung Sedayu
naksir Sekar Mirah tapi ndak berani bilang.."
Untuk menentukan dokumennya sudah disediakan alat "Folder-Browser".
2011/12/5 neza ibaneza <nezaibaneza@yahoo.co. >id
>terima kasih master Kid atas pencerahan excel, cara itu sdh berjalan ok, tp klw link
>ke word gimana (pertanyaan kedua saya pada posting awal)?
>regards
>neza
>
>
>
>____________________ _________ ___
> Dari: Kid Mr. <mr.nmkid@gmail.com >
>Dikirim: Sabtu, 3 Desember 2011 16:18
>
>
> Coba pakai hyperlink
>Klik kanan cell, pilih hyperlink, pilih place in this document, pilih nama sheet, dan isi alamat cell di tex box.
>Kid.
>
>
- 4a.
-
EDIT DATA
Posted by: "Djati Walujo" walujodjati@yahoo.co.id
Sun Dec 4, 2011 6:05 pm (PST)
Salam Excel
Setelah saya praktekkan, ternyata hasilnya adalah sebagai berikut :
1. Untuk edit data sudah ===> OK
2. Untuk menambah data , setelah klik :
a. Add/Edit ====> muncul
b. kemudian klik Debug ====> muncul
Bagaimana ini penyelesaiannya ?
( Maaf, hal ini terpaksa saya tanyakan, karena saya masih baru baru ini belajar dengan macro Excel )
Terima kasih kepada semuanya
Djati W - 4b.
-
Re: EDIT DATA
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Sun Dec 4, 2011 8:37 pm (PST)
Prosedur menambah ( Add ) , saat mengetik nama , jangan klik Add/Edit , tapi tekan [Enter] dan saya ubah koding : Private Sub cmdAdd_Click()
'Kembalikan ke CommandButton Default
Me.cmdAdd.Caption = "Add/Edit"
Me.cmdClose.Caption = "Close"
' Agar dapat diisi
Me.txtnam.Locked = False' posisi baru yg akan diisi
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data Induk")
Select Case StatusAksi
Case "ADD"
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
Case "EDIT"
iRow = BarisIsian
Case ""
Me.txtnam.SetFocus
Exit Sub
End Select'check for a part number
If Trim(Me.txtnam.Value) = "" Then
Me.txtnam.SetFocus
MsgBox "Masukkan Datanya Dulu"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = iRow - 2
ws.Cells(iRow, 2).Value = Me.txtnam.Value
ws.Cells(iRow, 3).Value = Me.txtklmn.Value
ws.Cells(iRow, 4).Value = Me.txtkotlhr.Value
ws.Cells(iRow, 5).Value = Me.txttgllhr.Value
ws.Cells(iRow, 6).Value = Me.txtstat.Value
ws.Cells(iRow, 7).Value = Me.Txtalmt.Value
ws.Cells(iRow, 8).Value = Me.Txtkot.Value
ws.Cells(iRow, 9).Value = Me.txtagam.Value
ws.Cells(iRow, 10).Value = Me.txttglmsk.Value
ws.Cells(iRow, 11).Value = Me.txtunitmsk.Value
ws.Cells(iRow, 12).Value = Me.txtnid.Value
ws.Cells(iRow, 13).Value = Me.txtprk.Value
ws.Cells(iRow, 14).Value = Me.txtjab.Value
ws.Cells(iRow, 15).Value = Me.txtnpwp.Value
ws.Cells(iRow, 16).Value = Me.Txtisteri.Value
ws.Cells(iRow, 17).Value = Me.Txtank1.Value
ws.Cells(iRow, 18).Value = Me.Txtank2.Value
ws.Cells(iRow, 19).Value = Me.Txtank3.Value'lab_AddExit :
StatusAksi = ""
' Kosongkan
Call KosongkanText(True)
' posisi fokus ke CmdAdd
Me.cmdAdd.SetFocusEnd Sub
Private Sub txtnam_Exit(ByVal Cancel As MSForms.ReturnBoole an)
If Me.txtnam.Text = "" Then
' jika kosong keluar
Cancel = False
Exit Sub
End If
Dim ketemu As Range
'cari dahulu pada 'data induk' di kolom B
Set ketemu = Worksheets("Data Induk").Range( "B:B").Find( what:=txtnam. Value, LookIn:=xlValues, LookAt:=XlLookAt. xlWhole)
If Not ketemu Is Nothing Then
' Ada
BarisIsian = ketemu.Row
StatusAksi = "EDIT"
Me.txtklmn.Value = ketemu.Offset(0, 1).Value
Me.txtkotlhr.Value = ketemu.Offset( 0, 2).Value
Me.txttgllhr.Value = ketemu.Offset( 0, 3).Value
Me.txtstat.Value = ketemu.Offset(0, 4).Value
Me.Txtalmt.Value = ketemu.Offset(0, 5).Value
Me.Txtkot.Value = ketemu.Offset(0, 6).Value
Me.txtagam.Value = ketemu.Offset(0, 7).Value
Me.txttglmsk.Value = ketemu.Offset( 0, 8).Value
Me.txtunitmsk.Value = ketemu.Offset( 0, 9).Value
Me.txtnid.Value = ketemu.Offset(0, 10).Value
Me.txtprk.Value = ketemu.Offset(0, 11).Value
Me.txtjab.Value = ketemu.Offset(0, 12).Value
Me.txtnpwp.Value = ketemu.Offset(0, 13).Value
Me.Txtisteri.Value = ketemu.Offset( 0, 14).Value
Me.Txtank1.Value = ketemu.Offset(0, 15).Value
Me.Txtank2.Value = ketemu.Offset(0, 16).Value
Me.Txtank3.Value = ketemu.Offset(0, 17).Value
Else
' belum ada
StatusAksi = "ADD"
Call KosongkanText(False)
End If
' jika Add atau Edit maka akan muncul Simpan dan Cancel
Me.cmdAdd.Caption = "Simpan"
Me.cmdClose.Caption = "Cancel"
' tak dapat edit isian nama
Me.txtnam.Locked = True
End Sub
To: belajar-excel@yahoogroups. com
From: walujodjati@yahoo.co. id
Date: Mon, 5 Dec 2011 09:28:39 +0800
Subject: [belajar-excel] EDIT DATA
Salam Excel
Setelah saya praktekkan, ternyata hasilnya adalah sebagai berikut :
1. Untuk edit data sudah ===> OK
2. Untuk menambah data , setelah klik :
a. Add/Edit ====> muncul
b. kemudian klik Debug ====> muncul
Bagaimana ini penyelesaiannya ?
( Maaf, hal ini terpaksa saya tanyakan, karena saya masih baru baru ini belajar dengan macro Excel )
Terima kasih kepada semuanya
Djati W
- 5a.
-
ListBox Multi Selection
Posted by: "Purnomo Sidi" pysa_2605@yahoo.com pysa_2605
Sun Dec 4, 2011 6:42 pm (PST)
Dear, Master Excel
mohon bantuannya dengan ilustrasi sebagai berikut :
saya mempunya data yang ingin saya filter menggunakan List Box yang ingin saya tanyakan apakah bisa list box tersebut menghasilkan data sesuai apa yang kita pilih namun Item yang dipilih lebih dari satu pilihan ("MULTI SELECTION TYPE"). File terlampir
Terima kasih atas bantuan dan petunjuknya - 5b.
-
Re: ListBox Multi Selection
Posted by: "Onto Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Sun Dec 4, 2011 6:59 pm (PST)
Bisa... dengan mempengaruhi NILAI *PROPERTI*NYA yg bernama *'MultiSelect'*
Kalau anda pernah melihat fie contoh dari bu boss siti: *Sheet Manager
xls *(maaf
boss)
http://www.box.com/shared/ / downloadable / unduhable? ..1u16ctdvlj
di situ di suatu userform dibuat Listbox yg itemsnya dapat dipilih dengan
cara multi select
smart dech pokoknya....
'o Seno
2011/12/5 Purnomo Sidi <pysa_2605@yahoo.com >
> **
> Dear, Master Excel
> mohon bantuannya dengan ilustrasi sebagai berikut :
> saya mempunya data yang ingin saya filter menggunakan List Box yang ingin
> saya tanyakan apakah bisa list box tersebut menghasilkan data sesuai apa
> yang kita pilih namun Item yang dipilih lebih dari satu pilihan ("MULTI
> SELECTION TYPE"). File terlampir
> Terima kasih atas bantuan dan petunjuknya
>
>
>
- 5c.
-
Re: ListBox Multi Selection
Posted by: "Purnomo Sidi" pysa_2605@yahoo.com pysa_2605
Sun Dec 4, 2011 8:37 pm (PST)
Trims Pak/Mas Onto Seno. kebetulan saya ingat banget file tersebut berhubungan dengan Hide sheet. Sayangnya saya tidak tahu banyak tentang macro jadi (bagi saya) sangat sulit di terapkan di kasus saya. sekali lagi terima kasih atas bantuannya
_____________________ _________ __
From: Onto Seno <ontoseno84@gmail.com >
To: belajar-excel@yahoogroups. com
Sent: Monday, December 5, 2011 10:59 AM
Subject: Re: [belajar-excel] ListBox Multi Selection
Bisa... dengan mempengaruhi NILAI PROPERTINYA yg bernama 'MultiSelect'
Kalau anda pernah melihat fie contoh dari bu boss siti: Sheet Manager xls (maaf boss)
http://www.box.com/shared/ / downloadable / unduhable? ..1u16ctdvlj
di situ di suatu userform dibuat Listbox yg itemsnya dapat dipilih dengan cara multi select
smart dech pokoknya....
'o Seno
2011/12/5 Purnomo Sidi <pysa_2605@yahoo.com >
>Dear, Master Excel
>
>mohon bantuannya dengan ilustrasi sebagai berikut :
>saya mempunya data yang ingin saya filter menggunakan List Box yang ingin saya tanyakan apakah bisa list box tersebut menghasilkan data sesuai apa yang kita pilih namun Item yang dipilih lebih dari satu pilihan ("MULTI SELECTION TYPE"). File terlampir
>Terima kasih atas bantuan dan petunjuknya
>
>
- 6.
-
mengunci cell terisi di validation
Posted by: "Tony Bexcel" tonybexcel@yahoo.co.id
Sun Dec 4, 2011 7:08 pm (PST)
Dear Pakar yang Budiman,
Selamat pagi temanz..Mohonbantuan nya dooong..saya ingin tau apakah ada cara untuk mengunci cell dari list validation bila sudah terisi tidak bisa di ubah lagi?
Berikut lampiran contoh dari masalah saya.
Terimakasih banyak atas segala bantuan dan waktunya untuk temanz semua..
Salam,
Tony
- 7a.
-
Week berdasar sel tanggal dan Bulan
Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com
Sun Dec 4, 2011 8:36 pm (PST)
Rekan Belajar-Excel sekalian,
Bila di kolom pertama hanya berisi angka (bermaksud tanggal)
Dan di kolom kedua berupa data Date (bermaksud Bulan dan tahun)
Apa formulanya dan formatnya agar di kolom ke-3 akan berisi 44 (minggu ke 44 dalam tahun 2011)
Saya menggunakan formula "=A2&B2 " tidak bisa. Nongolnya 140848
Date
Month
Week No
1
Nov-11
1
Nov-11
2
Nov-11
4
Nov-11
4
Nov-11
5
Nov-11
Thanks
Agung Widodo
- 7b.
-
Re: Week berdasar sel tanggal dan Bulan
Posted by: "Udin Haeruddin" herumamuda@gmail.com ruddin1795
Sun Dec 4, 2011 11:43 pm (PST)
Coba
*=WEEKNUM(DATE(YEAR(B2), MONTH(B2) ,A2),13)*
--
====== Haeruddin, S.Pd ======
- 7c.
-
Re: Week berdasar sel tanggal dan Bulan
Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com
Mon Dec 5, 2011 12:37 am (PST)
Mohon maaf pak Udin,
Tampaknya belum bisa.
[cid:image001.gif@01CCB363. ]B9C4ABF0
_____________________ _________ __
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Udin Haeruddincom
Sent: Monday, December 05, 2011 1:58 PM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Week berdasar sel tanggal dan Bulan
Coba
=WEEKNUM(DATE(YEAR(B2), MONTH(B2) ,A2),13)
--
====== Haeruddin, S.Pd ======
- 7d.
-
Re: Week berdasar sel tanggal dan Bulan
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Dec 5, 2011 12:44 am (PST)
Coba angka 13 diganti dengan 1 (jika hari pertama sebuah week adalah
minggu), dan 2 jika mulai senin.
Berurusan dengan week number dalam setahun, harus memiliki kriteria yang
jelas titik start yang disebut week pertama sebuah tahun.
Selamat mencoba,
Kid.
2011/12/5 <agung_widodo@sanyo.com >
> **
>
>
> Mohon maaf pak Udin,****
>
> Tampaknya belum bisa.****
>
> ** **
>
>
> ** **
>
> ** **
> --------------------- ---------
>
> *From:* **belajar-excel@yahoogroups. ** [mailto:**com
> belajar-excel@yahoogroups. **] *On Behalf Of *Udin Haeruddincom
> *Sent:* Monday, December 05, 2011 1:58 PM
> *To:* **belajar-excel@yahoogroups. **com
> *Subject:* Re: [belajar-excel] Week berdasar sel tanggal dan Bulan****
>
> ** **
>
> ****
>
> Coba****
>
> *=WEEKNUM(DATE(YEAR(B2), MONTH(B2) ,A2),13)* ****
>
> ** **
>
>
> ****
>
> ** **
>
> --
> ====== Haeruddin, S.Pd ======****
>
>
>
- 8a.
-
Re: Debug dan restart my workbook
Posted by: "ppc lambda" ppc_03@sami.co.id
Sun Dec 4, 2011 8:38 pm (PST)
ma'af baru masuk kerja dan lihat email sehabis weekend,
maksud dari dari kode nya
W Mod 30 = 0 jika nilai W tidak mempunyai (=0) hasil bagi dari 30/ kelipatan 30 (30,60,90...)
Or w1 = 1 atau pertama di jalankan maka
lakukan proses copy sheet dari thisworkbook sheet ("SPKL") ke book Wadd ( ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1) )
kemudian sheet tersebut yang di aktifkan ( Set SAdd = ActiveSheet) dan mengganti nama sheet SPKL tersebut menjadi SPKL1 (..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar excel
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Friday, December 02, 2011 3:44 PM
Subject: RE: [belajar-excel] Debug dan restart my workbook
==This message was identified as spam.==
Coba terangkan maksud dan tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 , .... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 ) berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count ) Jadi bisa kah diperjelas ?
--------------------- ---------
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook
Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) = cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) = txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) = Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) = (WorksheetFunction. Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next
End Sub
Terimakasih
Best
Regard
Sidoel
- 8b.
-
Re: Debug dan restart my workbook
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Sun Dec 4, 2011 9:01 pm (PST)
perhatikan koding : For W = 1 To Rng.Rows.Countjika nilainya besar maka akan menimbulkan error saat membuat sheet. Jadi sebaiknya dibatasi , misal 30maka sebelumnya di tambahkan koding cek , sehingga kodingnya menjadi : .. ..Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
if Rng.Rows.Count > 30 then exit subFor W = 1 To Rng.Rows.Count .. .. ..To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 10:32:02 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
ma'af baru masuk kerja dan lihat email sehabis
weekend,
maksud dari dari kode nya
W Mod 30 = 0 jika nilai W tidak mempunyai
(=0) hasil bagi dari 30/ kelipatan 30 (30,60,90...)
Or w1 = 1 atau pertama di jalankan maka
lakukan proses copy sheet dari thisworkbook
sheet ("SPKL") ke book Wadd ( ThisWorkbook.Sheets("SPKL" ).Copy
Before:=WAdd.Sheets(1) )
kemudian sheet tersebut yang di aktifkan ( Set SAdd =
ActiveSheet) dan mengganti nama sheet SPKL tersebut menjadi SPKL1
(..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar
excel
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Friday, December 02, 2011 3:44
PM
Subject: RE: [belajar-excel] Debug dan
restart my workbook
==This message was identified as spam.==
Coba terangkan maksud dan
tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet
jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 ,
.... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 )
berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count )
Jadi bisa kah diperjelas ?
--------------------- ---------
To: belajar-excel@yahoogroups. com
From:
ppc_03@sami.co.id
Date: Fri, 2 Dec
2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my
workbook
Pagi para pakar & All member mohon bantuan lagi
nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon
koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal =
1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set
Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
For W = 1 To
Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1
Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set SAdd =
ActiveSheet
SAdd.Name = "SPKL" &
hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) =
cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) =
txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) =
lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) =
Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) =
(WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " &
(WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw =
1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw, 3)
= Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam,
5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw +
1
Next
End Sub
Terimakasih
Best
Regard
Sidoel
- 8c.
-
Re: Debug dan restart my workbook
Posted by: "ppc lambda" ppc_03@sami.co.id
Sun Dec 4, 2011 10:47 pm (PST)
terimakasih pak jkssxls data yang di ambil sangat fleksibel, terkadang 100,40,15, dst
kira-2 bagai mana solusi nya yaa. ??? mohon bantuannya
saya pernah mencoba, dengan coding seperti itu (For W = 1 To Rng.Rows.Count)
namun datanya hanya 3 baris hasilnya masih saja error
suatu ketika error bisa tersorot pada bagian
(ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1) )
tak lama kemudian permintaan restart Excel muncul
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 11:48 AM
Subject: RE: [belajar-excel] Debug dan restart my workbook
perhatikan koding :
For W = 1 To Rng.Rows.Count
jika nilainya besar maka akan menimbulkan error saat membuat sheet. Jadi sebaiknya dibatasi , misal 30
maka sebelumnya di tambahkan koding cek , sehingga kodingnya menjadi :
..
..
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
if Rng.Rows.Count > 30 then exit sub
For W = 1 To Rng.Rows.Count
..
..
& nbsp; ..
--------------------- --------- --------- --------- --------- -
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 10:32:02 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
ma'af baru masuk kerja dan lihat email sehabis weekend,
maksud dari dari kode nya
W Mod 30 = 0 jika nilai W tidak mempunyai (=0) hasil bagi dari 30/ kelipatan 30 (30,60,90...)
Or w1 = 1 atau pertama di jalankan maka
lakukan proses copy sheet dari thisworkbook sheet ("SPKL") ke book Wadd ( ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1) )
kemudian sheet tersebut yang di aktifkan ( Set SAdd = ActiveSheet) dan mengganti nama sheet SPKL tersebut menjadi SPKL1 (..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar excel
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Friday, December 02, 2011 3:44 PM
Subject: RE: [belajar-excel] Debug dan restart my workbook
==This message was identified as spam.==
Coba terangkan maksud dan tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 , .... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 ) berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count ) Jadi bisa kah diperjelas ?
--------------------- ---------
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook
Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) = cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) = txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) = Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) = (WorksheetFunction. Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next
End Sub
Terimakasih
Best
Regard
Sidoel
- 8d.
-
Re: Debug dan restart my workbook
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Sun Dec 4, 2011 11:42 pm (PST)
sulit membayangkan kejadian error yang anda hadapi , misal saat :SAdd.Name = "SPKL" & hal
akan menimbulkan error jika nama tsb sudah ada . Kadang secara logika sudah besar , mungkin msalah dapat timbul karena bug pada excel. untuk pastinya silakan kirim file yg error tsb ....
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 13:33:06 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
terimakasih pak jkssxls data yang di ambil sangat
fleksibel, terkadang 100,40,15, dst
kira-2 bagai mana solusi nya yaa. ??? mohon
bantuannya
saya pernah mencoba, dengan coding seperti itu
(For W = 1 To
Rng.Rows.Count)
namun datanya hanya 3 baris hasilnya masih saja
error
suatu ketika error bisa tersorot pada bagian
(ThisWorkbook.Sheets("SPKL" ).Copy
Before:=WAdd.Sheets(1) )
tak lama kemudian permintaan restart Excel
muncul
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 11:48
AM
Subject: RE: [belajar-excel] Debug dan
restart my workbook
perhatikan koding :
For W = 1 To
Rng.Rows.Count
jika nilainya besar maka akan menimbulkan error saat membuat
sheet. Jadi sebaiknya dibatasi , misal 30
maka sebelumnya di tambahkan
koding cek , sehingga kodingnya menjadi
:
..
..
Set WAdd = ActiveWorkbook
Set Rng =
WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng,
Rng.End(xlDown))
if Rng.Rows.Count > 30 then exit sub
For W = 1 To
Rng.Rows.Count
..
..
&
nbsp; ..
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5
Dec 2011 10:32:02 +0700
Subject: Re: [belajar-excel] Debug dan restart my
workbook
ma'af baru masuk kerja dan lihat email sehabis
weekend,
maksud dari dari kode nya
W Mod 30 = 0 jika nilai W tidak mempunyai
(=0) hasil bagi dari 30/ kelipatan 30 (30,60,90...)
Or w1 = 1 atau pertama di jalankan
maka
lakukan proses copy sheet dari thisworkbook
sheet ("SPKL") ke book Wadd ( ThisWorkbook.Sheets("SPKL" ).Copy
Before:=WAdd.Sheets(1) )
kemudian sheet tersebut yang di aktifkan ( Set SAdd =
ActiveSheet) dan mengganti nama sheet SPKL tersebut menjadi SPKL1
(..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar
excel
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent:
Friday, December 02, 2011 3:44 PM
Subject:
RE: [belajar-excel] Debug dan restart my workbook
==This message was identified as spam.==
Coba terangkan maksud dan
tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet
jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 ,
.... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 )
berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count
) Jadi bisa kah diperjelas ?
--------------------- ---------
To: belajar-excel@yahoogroups. com
From:
ppc_03@sami.co.id
Date: Fri, 2
Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my
workbook
Pagi para pakar & All member mohon bantuan lagi
nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug
dan
langsung meminta restart excel
coding
mohon
koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal
= 1
Set WAdd = ActiveWorkbook
Set Rng =
WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng,
Rng.End(xlDown))
For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1
= 1 Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set
SAdd = ActiveSheet
SAdd.Name = "SPKL" &
hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) =
cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) =
txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) =
lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) =
Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) =
(WorksheetFunction.Ceiling(W, 29) / 29) _
& " Dari " &
(WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw =
1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw,
3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam,
5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw +
1
Next
End Sub
Terimakasih
Best
Regard
Sidoel
- 8e.
-
Re: Debug dan restart my workbook
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Dec 5, 2011 12:14 am (PST)
Mungkin script berikut bisa memberi ide solusi. Sesuaikan kembali dengan
keadaan nyatanya.
Private Sub Cmb_Generate_Click()
Dim Rng As Range
Dim sSht As String
Dim W As Long, w1 As Long, aw As Long, hal As Long
Dim lRecPerPage As Long, lTotalPage As Long
'aw = 0
'hal = 1
'init object kerja
Set wadd = ActiveWorkbook
Set Rng = wadd.Sheets(1).Range( "b2")
Set Rng = wadd.Sheets(1).Range( Rng, Rng.End(xlDown) ) 'asumsi :
tidak mungkin terjadi record berjumlah 0
'init konstanta
sSht = "SPKL"
lRecPerPage = 30
w1 = Rng.Rows.Count
lTotalPage = w1 / lRecPerPage
'loop create page
For W = 0 To w1 - 1 Step lRecPerPage
'If W Mod 30 = 0 Or w1 = 1 Then
'ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
hal = hal + 1 'init page number
With wadd
'drop existing sheet target
On Error Resume Next
If Not .Sheets(sSht & hal) Is Nothing Then
Application.DisplayAlerts = False
.Sheets(sSht & hal).Delete
Application.DisplayAlerts = True
End If
Err.Clear
On Error GoTo 0
'create new sheet target
.Sheets(sSht).Copy after:=.Sheets( 1)
Set sadd = ActiveSheet
sadd.Name = sSht & hal
End With
'write page main fields
With sadd
.Range("i5") = cmb_area.Value
.Range("i6") = txt_atasan.Value
.Range("C6") = lbl_tgl.Caption
.Range("C41") = w1
.Range("i60") = hal & " Dari " & lTotalPage
End With
'init current page record count
If W + lRecPerPage > w1 Then
aw = w1 - W
Else
aw = lRecPerPage
End If
'w1 = w1 + 1
'hal = hal + 1
'End If
'write data record
If aw > 0 Then
With sadd.Range("A10").Resize( aw)
'nomor urut
.Formula = "=row()-9"
.Calculate
.Value = .Value
.Offset(0, 2).Value = Format(txt_scan.Value, "'000000")
.Offset(0, 5).Value = Left(txt_jam, 5)
.Offset(0, 6).Value = Right(txt_jam, 5)
End With
End If
'aw = aw + 1
Next
End Sub
Kid.
On Fri, Dec 2, 2011 at 09:27, ppc lambda <ppc_03@sami.co.id > wrote:
> **
>
> Pagi para pakar & All member mohon bantuan lagi nich
> saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
> langsung meminta restart excel
> coding
> mohon koreksinya
> Private Sub Cmb_Generate_Click()
> Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
> w1 = 1
> aw = 0
> hal = 1
> Set WAdd = ActiveWorkbook
> Set Rng = WAdd.Sheets(1).Range( "b2")
> Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
>
> For W = 1 To Rng.Rows.Count
> If W Mod 30 = 0 Or w1 = 1 Then
> ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
> Set SAdd = ActiveSheet
> SAdd.Name = "SPKL" & hal
> WAdd.Sheets(SAdd.Name) .Range("i5" ) = cmb_area.Value
> WAdd.Sheets(SAdd.Name) .Range("i6" ) = txt_atasan.Value
> WAdd.Sheets(SAdd.Name) .Range("C6" ) = lbl_tgl.Caption
> WAdd.Sheets(SAdd.Name) .Range("C41" ) = Rng.Rows.Count
> WAdd.Sheets(SAdd.Name) .Range("i60" ) = (WorksheetFunction. Ceiling(W, 29) /
> 29) _
> & " Dari " & (WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
> w1 = w1 + 1
> aw = 1
> hal = hal + 1
> End If
> With WAdd.Sheets(SAdd.Name) .Range("A10" )
> .Cells(aw, 1) = W
> .Cells(aw, 3) = Format(txt_scan.Value, "'000000")
> .Cells(aw, 6) = Left(txt_jam, 5)
> .Cells(aw, 7) = Right(txt_jam, 5)
> End With
> aw = aw + 1
> Next
>
> End Sub
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> Sidoel
>
>
- 8f.
-
Re: Debug dan restart my workbook
Posted by: "ppc lambda" ppc_03@sami.co.id
Mon Dec 5, 2011 12:15 am (PST)
berikut file yang error
mohon bantuannya
Terimakasih atas bantuannya
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 2:10 PM
Subject: RE: [belajar-excel] Debug dan restart my workbook
sulit membayangkan kejadian error yang anda hadapi , misal saat :
SAdd.Name = "SPKL" & hal
akan menimbulkan error jika nama tsb sudah ada .
Kadang secara logika sudah besar , mungkin msalah dapat timbul karena bug pada excel. untuk pastinya silakan kirim file yg error tsb ....
--------------------- ---------
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook
Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) = cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) = txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) = Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) = (WorksheetFunction. Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next
End Sub
Terimakasih
Best
Regard
Sidoel - 8g.
-
Re: Debug dan restart my workbook
Posted by: "ppc lambda" ppc_03@sami.co.id
Mon Dec 5, 2011 12:25 am (PST)
berikut file yang error
mohon bantuannya
cara nya penggunaan nya
1.masuk ke View code dan jalankan userForm
2.klik tombol start
3.ketik ketik (sembarang) pada txt_scan lalu klik tombol Comm (bisa langsung klik tombol comm)
4. ulangi langkah 4 sesui jumlah yang diinginkan
5.klik tombol generate
nah yang bagian 5 ini yang menyebabkan error dan restart excel
mohon bantuannya para pakar yang budiman
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: ppc lambda
To: belajar-excel@yahoogroups. com
Sent: Monday, December 05, 2011 3:00 PM
Subject: Re: [belajar-excel] Debug dan restart my workbook
berikut file yang error
mohon bantuannya
Terimakasih atas bantuannya
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 2:10 PM
Subject: RE: [belajar-excel] Debug dan restart my workbook
sulit membayangkan kejadian error yang anda hadapi , misal saat :
SAdd.Name = "SPKL" & hal
akan menimbulkan error jika nama tsb sudah ada .
Kadang secara logika sudah besar , mungkin msalah dapat timbul karena bug pada excel. untuk pastinya silakan kirim file yg error tsb ....
--------------------- --------- --------- --------- --------- -
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 13:33:06 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
terimakasih pak jkssxls data yang di ambil sangat fleksibel, terkadang 100,40,15, dst
kira-2 bagai mana solusi nya yaa. ??? mohon bantuannya
saya pernah mencoba, dengan coding seperti itu (For W = 1 To Rng.Rows.Count)
namun datanya hanya 3 baris hasilnya masih saja error
suatu ketika error bisa tersorot pada bagian
(ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1) )
tak lama kemudian permintaan restart Excel muncul
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 11:48 AM
Subject: RE: [belajar-excel] Debug dan restart my workbook
perhatikan koding :
For W = 1 To Rng.Rows.Count
jika nilainya besar maka akan menimbulkan error saat membuat sheet. Jadi sebaiknya dibatasi , misal 30
maka sebelumnya di tambahkan koding cek , sehingga kodingnya menjadi :
..
..
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
if Rng.Rows.Count > 30 then exit sub
For W = 1 To Rng.Rows.Count
..
..
& nbsp; ..
--------------------- --------- --------- --------- --------- -
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Mon, 5 Dec 2011 10:32:02 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
ma'af baru masuk kerja dan lihat email sehabis weekend,
maksud dari dari kode nya
W Mod 30 = 0 jika nilai W tidak mempunyai (=0) hasil bagi dari 30/ kelipatan 30 (30,60,90...)
Or w1 = 1 atau pertama di jalankan maka
lakukan proses copy sheet dari thisworkbook sheet ("SPKL") ke book Wadd ( ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1) )
kemudian sheet tersebut yang di aktifkan ( Set SAdd = ActiveSheet) dan mengganti nama sheet SPKL tersebut menjadi SPKL1 (..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar excel
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Friday, December 02, 2011 3:44 PM
Subject: RE: [belajar-excel] Debug dan restart my workbook
==This message was identified as spam.==
Coba terangkan maksud dan tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet jika :
a. W Mod 30 = 0 --> jika nilai w adalah kelipatan 30 ( 30,60 , .... ) atau
b. w1 = 1 --> pd saat awal dijalankan ( nilai w1 = 1 ) berarti dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count ) Jadi bisa kah diperjelas ?
--------------------- ---------
To: belajar-excel@yahoogroups. com
From: ppc_03@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook
Pagi para pakar & All member mohon bantuan lagi nich
saya membuat aplikasi sederhana, ketika di jalankan terjadi Debug dan
langsung meminta restart excel
coding
mohon koreksinya
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W
As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2")
Set Rng = WAdd.Sheets(1).Range( Rng, Rng.End(xlDown) )
For W = 1 To Rng.Rows.Count
If W Mod 30 = 0 Or w1 = 1 Then
ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
WAdd.Sheets(SAdd.Name) .Range("i5" ) = cmb_area.Value
WAdd.Sheets(SAdd.Name) .Range("i6" ) = txt_atasan.Value
WAdd.Sheets(SAdd.Name) .Range("C6" ) = lbl_tgl.Caption
WAdd.Sheets(SAdd.Name) .Range("C41" ) = Rng.Rows.Count
WAdd.Sheets(SAdd.Name) .Range("i60" ) = (WorksheetFunction. Ceiling(W, 29) / 29) _
& " Dari " & (WorksheetFunction.Ceiling(Rng. Rows.Count, 29) / 29)
w1 = w1 + 1
aw = 1
hal = hal + 1
End If
With
WAdd.Sheets(SAdd.Name) .Range("A10" )
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
aw = aw + 1
Next
End Sub
Terimakasih
Best
Regard
Sidoel
- 8h.
-
Re: Debug dan restart my workbook
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Dec 5, 2011 12:33 am (PST)
hehehe...
ternyata ada attachment yang disusulkan.
Kira-kira scriptnya demikian :
Private Sub Cmb_Generate_Click()
Dim Rng As Range
Dim sSht As String
Dim W As Long, w1 As Long, aw As Long, hal As Long
Dim lRecPerPage As Long, lTotalPage As Long
'aw = 0
'hal = 1
'init object kerja
Set WAdd = ActiveWorkbook
Set Rng = WAdd.Sheets(1).Range( "b2").CurrentReg ion
w1 = Rng.Rows.Count - 1
If w1 < 1 Then
Exit Sub
End If
Set Rng = Rng.Offset(1).Resize(w1)
'init konstanta
sSht = "SPKL"
lRecPerPage = 30
lTotalPage = w1 / lRecPerPage
'loop create page
For W = 0 To w1 - 1 Step lRecPerPage
'If W Mod 30 = 0 Or w1 = 1 Then
'ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
hal = hal + 1 'init page number
'With WAdd
'drop existing sheet target
'On Error Resume Next
'If Not .Sheets(sSht & hal) Is Nothing Then
' Application.DisplayAlerts = False
' .Sheets(sSht & hal).Delete
' Application.DisplayAlerts = True
'End If
'Err.Clear
'On Error GoTo 0
'create new sheet target
ThisWorkbook.Sheets(sSht) .Copy before:=WAdd. Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = sSht & hal
'End With
'write page main fields
With SAdd
.Range("i5") = cmb_area.Value
.Range("i6") = txt_atasan.Value
.Range("C6") = lbl_tgl.Caption
.Range("C41") = w1
.Range("i60") = hal & " Dari " & lTotalPage
End With
'init current page record count
If W + lRecPerPage > w1 Then
aw = w1 - W
Else
aw = lRecPerPage
End If
'w1 = w1 + 1
'hal = hal + 1
'End If
'write data record
If aw > 0 Then
With SAdd.Range("A10").Resize( aw)
'nomor urut
.Formula = "=row()-9"
.Calculate
.Value = .Value
.Offset(0, 2).Value = Format(txt_scan.Value, "'000000")
.Offset(0, 5).Value = Left(txt_jam, 5)
.Offset(0, 6).Value = Right(txt_jam, 5)
End With
End If
'aw = aw + 1
Next
End Sub
Kid.
On Mon, Dec 5, 2011 at 15:13, Kid Mr. <mr.nmkid@gmail.com > wrote:
> Private Sub Cmb_Generate_Click()
> Dim Rng As Range
> Dim sSht As String
> Dim W As Long, w1 As Long, aw As Long, hal As Long
> Dim lRecPerPage As Long, lTotalPage As Long
>
> 'aw = 0
> 'hal = 1
>
> 'init object kerja
> Set wadd = ActiveWorkbook
> Set Rng = wadd.Sheets(1).Range( "b2")
> Set Rng = wadd.Sheets(1).Range( Rng, Rng.End(xlDown) ) 'asumsi :
> tidak mungkin terjadi record berjumlah 0
>
> 'init konstanta
> sSht = "SPKL"
> lRecPerPage = 30
> w1 = Rng.Rows.Count
> lTotalPage = w1 / lRecPerPage
>
> 'loop create page
> For W = 0 To w1 - 1 Step lRecPerPage
> 'If W Mod 30 = 0 Or w1 = 1 Then
>
> 'ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
>
> hal = hal + 1 'init page number
>
> With wadd
> 'drop existing sheet target
> On Error Resume Next
> If Not .Sheets(sSht & hal) Is Nothing Then
> Application.DisplayAlerts = False
> .Sheets(sSht & hal).Delete
> Application.DisplayAlerts = True
> End If
> Err.Clear
> On Error GoTo 0
>
> 'create new sheet target
> .Sheets(sSht).Copy after:=.Sheets( 1)
> Set sadd = ActiveSheet
> sadd.Name = sSht & hal
> End With
>
> 'write page main fields
> With sadd
> .Range("i5") = cmb_area.Value
> .Range("i6") = txt_atasan.Value
> .Range("C6") = lbl_tgl.Caption
> .Range("C41") = w1
> .Range("i60") = hal & " Dari " & lTotalPage
> End With
>
> 'init current page record count
> If W + lRecPerPage > w1 Then
> aw = w1 - W
> Else
> aw = lRecPerPage
> End If
> 'w1 = w1 + 1
> 'hal = hal + 1
> 'End If
>
> 'write data record
> If aw > 0 Then
> With sadd.Range("A10").Resize( aw)
> 'nomor urut
> .Formula = "=row()-9"
> .Calculate
> .Value = .Value
>
> .Offset(0, 2).Value = Format(txt_scan.Value, "'000000")
> .Offset(0, 5).Value = Left(txt_jam, 5)
> .Offset(0, 6).Value = Right(txt_jam, 5)
> End With
> End If
> 'aw = aw + 1
> Next
> End Sub
- 8i.
-
Re: Debug dan restart my workbook
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Dec 5, 2011 12:36 am (PST)
Ops, ada koreksi pada baris :
* lTotalPage = w1 / lRecPerPage*
menjadi :
* lTotalPage = w1 / lRecPerPage + 1*
Kid.
On Mon, Dec 5, 2011 at 15:33, Kid Mr. <mr.nmkid@gmail.com > wrote:
> hehehe...
> ternyata ada attachment yang disusulkan.
>
> Kira-kira scriptnya demikian :
> Private Sub Cmb_Generate_Click()
> Dim Rng As Range
> Dim sSht As String
> Dim W As Long, w1 As Long, aw As Long, hal As Long
> Dim lRecPerPage As Long, lTotalPage As Long
>
> 'aw = 0
> 'hal = 1
>
> 'init object kerja
> Set WAdd = ActiveWorkbook
> Set Rng = WAdd.Sheets(1).Range( "b2").CurrentReg ion
> w1 = Rng.Rows.Count - 1
> If w1 < 1 Then
> Exit Sub
> End If
> Set Rng = Rng.Offset(1).Resize(w1)
>
>
> 'init konstanta
> sSht = "SPKL"
> lRecPerPage = 30
> * lTotalPage = w1 / lRecPerPage*
>
> 'loop create page
> For W = 0 To w1 - 1 Step lRecPerPage
> 'If W Mod 30 = 0 Or w1 = 1 Then
>
> 'ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
>
> hal = hal + 1 'init page number
>
> 'With WAdd
>
> 'drop existing sheet target
> 'On Error Resume Next
> 'If Not .Sheets(sSht & hal) Is Nothing Then
> ' Application.DisplayAlerts = False
> ' .Sheets(sSht & hal).Delete
> ' Application.DisplayAlerts = True
> 'End If
> 'Err.Clear
> 'On Error GoTo 0
>
> 'create new sheet target
> ThisWorkbook.Sheets(sSht) .Copy before:=WAdd. Sheets(1)
> Set SAdd = ActiveSheet
> SAdd.Name = sSht & hal
>
> 'End With
>
> 'write page main fields
> With SAdd
>
> .Range("i5") = cmb_area.Value
> .Range("i6") = txt_atasan.Value
> .Range("C6") = lbl_tgl.Caption
> .Range("C41") = w1
> .Range("i60") = hal & " Dari " & lTotalPage
> End With
>
> 'init current page record count
> If W + lRecPerPage > w1 Then
> aw = w1 - W
> Else
> aw = lRecPerPage
> End If
> 'w1 = w1 + 1
> 'hal = hal + 1
> 'End If
>
> 'write data record
> If aw > 0 Then
> With SAdd.Range("A10").Resize( aw)
>
> 'nomor urut
> .Formula = "=row()-9"
> .Calculate
> .Value = .Value
>
> .Offset(0, 2).Value = Format(txt_scan.Value, "'000000")
> .Offset(0, 5).Value = Left(txt_jam, 5)
> .Offset(0, 6).Value = Right(txt_jam, 5)
> End With
> End If
> 'aw = aw + 1
> Next
> End Sub
>
>
> Kid.
>
> On Mon, Dec 5, 2011 at 15:13, Kid Mr. <mr.nmkid@gmail.com > wrote:
>
>> Private Sub Cmb_Generate_Click()
>> Dim Rng As Range
>> Dim sSht As String
>> Dim W As Long, w1 As Long, aw As Long, hal As Long
>> Dim lRecPerPage As Long, lTotalPage As Long
>>
>> 'aw = 0
>> 'hal = 1
>>
>> 'init object kerja
>> Set wadd = ActiveWorkbook
>> Set Rng = wadd.Sheets(1).Range( "b2")
>> Set Rng = wadd.Sheets(1).Range( Rng, Rng.End(xlDown) ) 'asumsi :
>> tidak mungkin terjadi record berjumlah 0
>>
>> 'init konstanta
>> sSht = "SPKL"
>> lRecPerPage = 30
>> w1 = Rng.Rows.Count
>> lTotalPage = w1 / lRecPerPage
>>
>> 'loop create page
>> For W = 0 To w1 - 1 Step lRecPerPage
>> 'If W Mod 30 = 0 Or w1 = 1 Then
>>
>> 'ThisWorkbook.Sheets("SPKL" ).Copy Before:=WAdd. Sheets(1)
>>
>> hal = hal + 1 'init page number
>>
>> With wadd
>> 'drop existing sheet target
>> On Error Resume Next
>> If Not .Sheets(sSht & hal) Is Nothing Then
>> Application.DisplayAlerts = False
>> .Sheets(sSht & hal).Delete
>> Application.DisplayAlerts = True
>> End If
>> Err.Clear
>> On Error GoTo 0
>>
>> 'create new sheet target
>> .Sheets(sSht).Copy after:=.Sheets( 1)
>> Set sadd = ActiveSheet
>> sadd.Name = sSht & hal
>> End With
>>
>> 'write page main fields
>> With sadd
>> .Range("i5") = cmb_area.Value
>> .Range("i6") = txt_atasan.Value
>> .Range("C6") = lbl_tgl.Caption
>> .Range("C41") = w1
>> .Range("i60") = hal & " Dari " & lTotalPage
>> End With
>>
>> 'init current page record count
>> If W + lRecPerPage > w1 Then
>> aw = w1 - W
>> Else
>> aw = lRecPerPage
>> End If
>> 'w1 = w1 + 1
>> 'hal = hal + 1
>> 'End If
>>
>> 'write data record
>> If aw > 0 Then
>> With sadd.Range("A10").Resize( aw)
>> 'nomor urut
>> .Formula = "=row()-9"
>> .Calculate
>> .Value = .Value
>>
>> .Offset(0, 2).Value = Format(txt_scan.Value, "'000000")
>> .Offset(0, 5).Value = Left(txt_jam, 5)
>> .Offset(0, 6).Value = Right(txt_jam, 5)
>> End With
>> End If
>> 'aw = aw + 1
>> Next
>> End Sub
>
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar