Kendisi Değişen Print Alanı

[baydeniro]

Arkadaşlar merhaba. Print alanının kendisinin değişmesi otomatik olarak sağlanabilir mi ? Ekteki dosyada C kolonunda sıfır olan değerlere göre oluşan bir print alanı var. Bununla ilgili fomrül G1 hücresinde. Yani G1 hücresi C kolonundaki değerlere A kolonunda belirlenen print edilecek bilgilerin aralığını gösteriyor. Bilgiler değiştikçe print alanın da değişmesi nasıl sağlanır ?

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre G1 hücresindeki veriyi yazdırma alanı olarak kullanırsanız sadece A sütunundaki verileri yazdırabilirsiniz. Eğer amacınız bu şekilde kullanmaksa aşağıdaki kodu ilgili sayfanın kod bölümüne uyglayın. Hücrelerde değişiklik yaptığınızda otomatik olarak G1 hücresindeki adres yeni yazdırma alanı olarak tanımlanacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.PageSetup.PrintArea = [G1]
End Sub

 

[ileriexcel]

Sub test()
yaz = InputBox("yazdırılacak alanı giriniz")
Sheets("Sheet1").PageSetup.PrintArea = yaz
Sheets("Sheet1").PrintOut
End Sub

 

[baydeniro]

Teşekkürler

Sayin Costcontrol ve sayin ileriexcel, çok çok teşekkür ederim. Sağlıcakla kalın.