Coba ganti bagian yang berwarna merah menjadi: ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313, $M$6:$S$313"
Salam, Hendrik Karnadi ----- Forwarded Message ----- From: Mr. Kid <[email protected]> To: [email protected] Sent: Tuesday, 23 October 2012, 7:05 Subject: Re: [belajar-excel] set ptint area dengan kriteria Susunan kondisi sudah dibuatkan Pak Hendrik. Pengennya sekarang areanya ditambah. Bagaimana kalau mencoba sendiri dengan record macro. 1. Blok range yang akan disetmasuk sebagai print area 2. lakukan record macro 3. set print area (di xl2007 ke ribbon page layout -> Print Area -> Set print Area) 4. stop record macro 5. Ke VBE (tekan ALT F11) dan lihat cara mengubah print area sehingga seperti yang dilakukan. Wassalam, Kid. On Tue, Oct 23, 2012 at 6:59 AM, Prazt Math <[email protected]> wrote: > >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 >
