..
Sidoel
- Original Message -
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 06, 2011 10:22 AM
Subject: Re: [belajar-excel] Debug dan restart my workbook
Coba sheet SPKL di file SPKI.xlsm diubah view-nya jadi mode normal (jangan
mode page
...@sami.co.id
Date: Tue, 6 Dec 2011 11:32:23 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
oh betul Mr Kid, error tidak terjadi lagi setelah
saya coba sarannya Mr kid
intinya error terjadi karena code
ThisWorkbook.Sheets(SPKL).Copy
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
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
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.nm...@gmail.com wrote:
hehehe...
ternyata ada attachment yang disusulkan.
Kira-kira scriptnya demikian :
Private Sub
trimakasih Mr Kid akan saya aplikasikan di tempat ku
Terimakasih
Best Regard
..
Sidoel
- Original Message -
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, December 05, 2011 3:13 PM
Subject: Re: [belajar-excel] Debug dan restart my workbook
Mungkin
-excel@yahoogroups.com
Sent: Monday, December 05, 2011 3:33 PM
Subject: Re: [belajar-excel] Debug dan restart my workbook
hehehe...
ternyata ada attachment yang disusulkan.
Kira-kira scriptnya demikian :
Private Sub Cmb_Generate_Click()
Dim Rng As Range
Dim sSht
(sSht).Copy
before:=WAdd.Sheets(1)
mohon bantuannya para pakar Excel
Terimakasih
Best Regard
..
Sidoel
- Original Message -
*From:* Kid Mr. mr.nm...@gmail.com
*To:* belajar-excel@yahoogroups.com
*Sent:* Monday, December 05, 2011 3:33 PM
*Subject:* Re: [belajar-excel] Debug
:13 PM
Subject: Re: [belajar-excel] Debug dan restart my workbook
Mumpung sempat kirim workbook,
Kid.
On Mon, Dec 5, 2011 at 16:11, Kid Mr. mr.nm...@gmail.com wrote:
Nama sheet di baris
sSht = SPKL
disesuaikan jadi spki atau apa itu yang anda miliki.
Kid
..
Sidoel
- Original Message -
From:
Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, December 05, 2011 3:33
PM
Subject: Re: [belajar-excel] Debug dan
restart my workbook
hehehe...
ternyata ada attachment yang disusulkan.
Kira-kira
scriptnya
From: jkss...@hotmail.com
Date: Mon, 5 Dec 2011 09:37:10 +
Subject: RE: [belajar-excel] Debug dan restart my workbook
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw
: Re: [belajar-excel] Debug dan restart my workbook
Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih
terjadi error yang sama
kemudian saya coba coding nya pak jkssxls Sudarsono juga sama, masih
From: ppc...@sami.co.id
Date: Tue, 6 Dec 2011 08:26:05 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih
terjadi error yang sama
--
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Tue, 6 Dec 2011 08:26:05 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih
terjadi error yang sama
kemudian
..
sidoel
- Original Message -
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 06, 2011 2:24 AM
Subject: Re: [belajar-excel] Debug dan restart my workbook
Setelah dicoba, tidak muncul error apapun.
Berikut hasilnya :
1. hasil pencet Comm
2. Hasil pencet
Sudah diperbaiki :
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Tue, 6 Dec 2011 10:05:32 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
pak sudarsono
pada cmb_Generate terdapat code nbsp; bila
di
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
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
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
-excel@yahoogroups.com
From: ppc...@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
==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
21 matches
Mail list logo
