pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila di tuliskan di view code menjadi
warna merah dan tidak bisa di jalankan
jika code & nbsp; itu dihilangkan masih terjadi error yang sama
berikut yang berwarna merah ketika di ketikkan di View Code (VBA EXCEL)
&nb sp; On Error Resume Next
&nb sp; End If
& nbsp; .Cells(aw, 7) = Right(txt_jam, 5)
para pakar excel yang lain mohon bantuannya
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: jkssxls Sudarsono
To: Belajar-Excel 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_Click()
'With WAdd.Sheets(1).Range("A2")
If WAdd Is Nothing Then Exit Sub
With WAdd.Sheets("Sheet1").Range("A2")
.Cells(L, 1) = txt_scan.Text
.Cells(L, 2) = lbl_tgl.Caption
.Cells(L, 3) = Left(txt_jam.Text, 5)
.Cells(L, 4) = Right(txt_jam.Text, 5)
.Cells(L, 5) = txt_OT.Text
.Cells(L, 6) = cmb_area.Value
.Cells(L, 7) = txt_atasan.Text
.Cells(L, 8) = txt_PIC.Text
End With
L = L + 1
txt_scan.Value = ""
txt_scan.SetFocus
End Sub
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))
'diganti menjadi
WAdd.Sheets("sheet1").Activate
Set Rng = ActiveSheet.Range("b2")
If Rng.Value = "" Then
MsgBox "data kosong"
Exit Sub
End If
If Rng.Offset(1, 0) <> "" Then
Set Rng = ActiveSheet.Range(Rng, Rng.End(xlDown))
End If
' batas pengantian
For W = 1 To Rng.Rows.Count
' If W Mod 30 = 0 Or w1 = 1 Then
' If W Mod 30 = 0 Or hal = 1 Then
If ((W - 1) Mod 30 = 0) Or hal = 1 Then
' ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
' Set SAdd = ActiveSheet
' SAdd.Name = "SPKL" & hal
'diganti menjadi
&nb sp; On Error Resume Next
Worksheets("SPKL" & hal).Activate
If Err.Number = 9 Then
MsgBox "Error maka buat " & hal
ThisWorkbook.Sheets("SPKL").Copy Before:=WAdd.Sheets(1)
Set SAdd = ActiveSheet
SAdd.Name = "SPKL" & hal
Else
Set SAdd = ActiveSheet
&nb sp; End If
On Error GoTo 0
' batas pengantian
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 ' bisa digunakan hal saja
aw = 1
'isi tiap hal/sheet adalah 29
hal = hal + 1
WAdd.Sheets(SAdd.Name).Range("A10").Select
Range(Selection, Selection.Offset(29, 9)).ClearContents 'Select
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)
& nbsp; .Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
Next
End Sub
------------------------------------------------------------------------------
To: [email protected]
From: [email protected]
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 saya coba coding nya pak jkssxls Sudarsono juga sama, masih terjadi
error.
saya kira komputer/excel saya yang bermasalah, saya coba di komputer lain
hasilnya juga error
berikut error nya
para pakar excel yang lain mohon bantuannya
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
