2 Baris perintah pertama,
Range("A6").Select
Selection.AutoFilter
bisa dihapus.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarn...@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 28 May 2013, 19:13
Subject: Re: [belajar-excel] Bagaimana cetak amplop data autofilter
Coba buat Macronya seperti ini:
Sub CtkOto()
Range("A6").Select
Selection.AutoFilter
For i = 1 To Range("G2").Value
Range("G1") = i
ActiveSheet.Range("$A$6:$G$129").AutoFilter Field:=7, Criteria1:=Range("D4")
ActiveSheet.PrintPreview
Next i
End Sub
Range("G1") adalah Counter, Range("G2") diisi dengan jumlah guru dan
Range("D4") merupakan fungsi Vlookup dengan Reference Nama Guru sesuai No Urut
pada Range("G1").
Setelah Ok dengan PrintPreview ganti dengan PrintOut.
Salam,
HK
________________________________
From: Herman Medan <hermanmeda...@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 28 May 2013, 11:16
Subject: [belajar-excel] Bagaimana cetak amplop data autofilter
Tolong bantuannya dari para ahli.
Bagaimana caranya sekaligus cetak data yang menggunakan autofilter ke satu-satu
amplop.
Semoga penjelasan saya dapat dimengerti.
Terima kasih sebelumnya
