Syukron Mr.Hendrik + Mr. Kid, top markotop sesuai keinginan, nanti saya kembangkan lebih lanjut…
From: [email protected] [mailto:[email protected]] On Behalf Of hendrik karnadi Sent: Tuesday, October 23, 2012 9:51 AM To: [email protected] Subject: Fw: [belajar-excel] set ptint area dengan kriteria 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 diset masuk 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
