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 = "$E$6:$K$313"
.................. (1)
ActiveSheet.PageSetup.PrintArea = "$M$6:$S$313"
.................. (2) ”saya ingin jika G3 terisi lebih dari 10 maka (1) tetap
jadi print area dan di tambah
Yang (2), cara menggabungnya bagaimana Mr. Hendrik..?”
End If
End If
End If
End With
End Sub
From: [email protected] [mailto:[email protected]] On
Behalf Of hendrik karnadi
Sent: 22 Oktober 2012 22:41
To: [email protected]
Subject: Re: [belajar-excel] set ptint area dengan kriteria
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
