O ya sudah jadi, tapi maaf pak hendri, itu penambahannya perbaris, nah yang 
saya inginkan penambahannya langsung seperti terlampir

 

From: [email protected] [mailto:[email protected]] On 
Behalf Of hendrik karnadi
Sent: 22 Oktober 2012 12:41
To: [email protected]
Subject: Re: [belajar-excel] set ptint area dengan kriteria

 

  

Kalau mau otomatis. rubah angka pada sel G4 langsung berubah Print Areanya bisa 
pakai Event worksheet berikut ini:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.DisplayAlerts = False 'untuk meniadakan pilihan (langsung "Yes")

    If Target.Count = 1 Then

        If Target.Address = "$G$4" Then

            ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Target.Value

        End If

    End If

End Sub

 

  _____  

From: Prazt Math <[email protected]>
To: [email protected] 
Sent: Monday, 22 October 2012, 12:05
Subject: RE: [belajar-excel] set ptint area dengan kriteria

 

  

Berarti harus dijalankan secara manual macronya Mr. Hendrik..?

 

From: [email protected] [mailto:[email protected]] On 
Behalf Of hendrik karnadi
Sent: 22 Oktober 2012 10:37
To: [email protected]
Subject: Re: [belajar-excel] set ptint area dengan kriteria

 

  

Coba buat Macro seperti ini:

Sub PRINT_AREA()

    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Range("G4").Value

End Sub

 

Jika angka pada Range("G4") dirubah dan Macro dijalankan lagi maka baris print 
area akan berubah sesuai angka pada Range("G4").

 

Salam,

Hendrik Karnadi

 

  _____  

From: Prazt Math <[email protected]>
To: [email protected] 
Sent: Monday, 22 October 2012, 9:11
Subject: [belajar-excel] set ptint area dengan kriteria

 

  

Selamat pagi para exceller, mohon bantuan untuk kasus tentang select print area 
dengan kriteria seperti file terlampir..sebelumnya saya ucapkan 
terimakasih...wassalam.

 

 



Attachment: re set print area.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12

Kirim email ke