Ini Macronya Pak, Private Sub Worksheet_Change(ByVal Target As Range) Application.DisplayAlerts = False 'untuk meniadakan pilihan (langsung "Yes") With Target If .Count = 1 Then If .Address = "$G$3" Then If .Value <= 10 Then ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313" Else ActiveSheet.PageSetup.PrintArea = "$M$6:$S$313" End If End If End If End With End Sub
Silakan di copas ke Sheet1 pada VBA Sheet (untuk menampilkan VBA Sheet tekan Alt F11). Salam, Hendrik Karnadi ________________________________ From: Prazt Math <[email protected]> To: [email protected] Sent: Monday, 22 October 2012, 17:08 Subject: RE: [belajar-excel] set ptint area dengan kriteria Untuk lebih jelasnya saya lampirkan lagi filenya Mr. Hendrik
