terima kasih mr.kid saya akan mengikutinya. thanks ya
________________________________
From: Kid Mr. <mr.nm...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, June 13, 2012 10:13 PM
Subject: Re: [belajar-excel] Tolong bantuan pencerahannya
File terlampir diberi baris bantu record yang akan di save ke tercetak di baris
25 mulai kolom M
Kemudian isi prosedur event click dari si tombol :
Private Sub CommandButton1_Click()
Dim lUrut As Long, lRec As Long
For lUrut = Range("m5").Value To Range("o5").Value
Range("h1").Value = lUrut
Sheet1.Calculate
lRec = Range("m25").Value
Sheet1.PrintOut
Range("m25").CurrentRegion.Copy
Sheet7.Range("a1").Offset(lRec).PasteSpecial
xlPasteValuesAndNumberFormats
Next lUrut
End Sub
Wassalam,
Kid.
2012/6/13 rian Bass <bass_r...@yahoo.com>
>
>saya punya masalah yang di hadapi dalam mencetak serta sekaligus menyimpannya
>ke sheet lain, untuk lebih jelasnya mohon dilihat file terlampir, terimakasih
>
>
>
