Saya bukan pakar, tapi saya coba modifikasi dari case sebelumnya.
Semoga bisa membantu.
Private Sub CommandButton1_Click()
Dim n As Integer
For n = Range("J2").Value To Range("L2").Value
Range("L2").Value = n
'Me.PrintPreview
Me.PrintOut
Next n
End Sub
Dim n As Integer
For n = Range("J2").Value To Range("L2").Value
Range("L2").Value = n
'Me.PrintPreview
Me.PrintOut
Next n
End Sub
Salam
Dalis J.
----- Original Message -----From: joel_bac@yahoo.co.idSent: Friday, March 23, 2012 11:57 AMSubject: ]] XL-mania [[ Perintah berulang dalam marco
Nenhum comentário:
Postar um comentário