PRINT OUT DATA VLOOKUP - MACRO EXCEL PEMULA

Private Sub CommandButton1_Click()

Dim Awal, Akhir, Jumlah As Integer

Awal = TextBox1.Value

Akhir = TextBox2.Value

Jumlah = TextBox3.Value

If Awal <= Akhir And Awal >= 1 Then

Application.ScreenUpdating = False

For i = Awal To Akhir

‘Nama sheet Kwitansi

With Sheets("Kwitansi")

‘Kunci Data Vlookup adalah k3

.Range("k3").Value = i

.PrintOut from:=Awal, To:=Akhir, Copies:=Jumlah

End With

Next i

Else

MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Error Cetak"

End If

End Sub

Cara Kedua pastekan kode berikut pada Modul

Sub Cetak_ Vlookup ()

Dim Awal, Akhir As Integer

Awal = Range("i22").Value

Akhir = Range("j22").Value

If Awal <= Akhir And Awal >= 1 Then

Application.ScreenUpdating = False

For i = Awal To Akhir

‘Nama sheet Data

With Sheets("data")

‘Kunci Data Vlookup adalah h2

.Range("h2").Value = i

. PrintOut from:=1, To:=1, Copies:=1

End With

Next i

Else

MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Error Cetak"

End If

End Sub


Cek Link dan Konten- konten Gratis dibawah ini !!!

Link Post Konten

Sekian Semoga Bermanfaat !!