xcel@yahoogroups.com
From: ppc...@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
Terimakasih baget Mr Kid
Best Regard
<>.<>.<>.<>.<>.<>.
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
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
nnya
>
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> 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 resta
Yahoo Groups
Sent: Tuesday, December 06, 2011 9:24 AM
Subject: RE: [belajar-excel] Debug dan restart my workbook
karena penekanan tombol ( Start , Comm dan Generate bisa sembarangan ) dapat
menimbulkan looping yg tak terbatas maka perlu meng- antisipasinya :
Private Sub Cmb_Start_Clic
).ClearContents 'Select
End If
With WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'00")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Ri
eets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'00")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
N
txt_scan.SetFocus
End Sub
To: belajar-excel@yahoogroups.com
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, w
Format(txt_scan.Value, "'000000")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
NextEnd Sub
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Mon, 5 Dec 2011 16
groups.com
Sent: Monday, December 05, 2011 4: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. wrote:
Nama sheet di baris
sSht = "SPKL"
disesuaikan jadi spki atau
l@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()
&
iginal 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 demikian :
Private Sub Cmb_Gen
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-
Ops, ada koreksi pada baris :
* lTotalPage = w1 / lRecPerPage*
menjadi :
* lTotalPage = w1 / lRecPerPage + 1*
Kid.
On Mon, Dec 5, 2011 at 15:33, Kid Mr. wrote:
> hehehe...
> ternyata ada attachment yang disusulkan.
>
> Kira-kira scriptnya demikian :
> Private Sub Cmb_Generate_Click()
> Dim
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
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
.
To: belajar-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, ds
r-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
0: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 (3
<>.<>.<>.<>.<>.<>.
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
erarti
dijalankan2. Perulangan tergantung dari jumlah data ( Rng.rows.count ) Jadi
bisa kah diperjelas ?
--
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Fri, 2 Dec 2011 09:27:27 +0700
Subject: [belajar-excel] Debug dan restart my workbook
Pagi para
21 matches
Mail list logo