2 Baris perintah pertama,
Range("A6").Select
Selection.AutoFilterbisa dihapus. Salam, Hendrik Karnadi ----- Forwarded Message ----- From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> 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 <[email protected]> To: [email protected] 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
