Hai Suka Sih;
Coba tambahkan:
On Error Resume Next
Sebelum baris yang error
spt ini:
Private Sub CommandButton1_Click()
Dim U As Integer
If TextBox3.Value = "" Then
MsgBox " nomor kosong"
End If
With ActiveSheet
On Error Resume Next
For U = TextBox1.Value To TextBox2.Value
TextBox3.Value = U
.Range("g5:h8").PrintOut
Next
End With
End Sub
Wassalam
~ Bagus ~
----- Original Message -----
From: Suka Sih
To: [email protected]
Sent: Monday, December 16, 2013 1:52 PM
Subject: ]] XL-mania [[ Mencetak data urut nomor sekali perintah belum
sempurna.
Kepada XLmania,
Pada contoh pekerjaan saya, untuk pencetakan banyak data secara berurutan
sangat mudah dengan sekali perintah dengan hanya mengisi nilai textbox dari
nomor ke nomor yang dikehendaki. Tapi ketika nilai textbox-nya kosong hasilnya
error. Kiranya para xlmania berkenan menyempurnakan contoh kasus yang saya
alami. File terlampir
Terima kasih atas tipsnya.
