if e bağlı olarak yazdırma alanı şeçimi

[cdroy1]

belli bir hücredeki sayıyı baz alarak hücre yazdırma alanı tanımlamayı nasıl yapabilirim yardımcı olursanız sevinirim

 

[ileriexcel]

Sub test()
If [e1] = 1Then
ActiveSheet.PageSetup.PrintArea = "$a$1:$d$8"
ActiveSheet.PrintOut Copies:=1
End If
End Sub

 

[Seyit Tiken]

Kodları bu şekilde deneyin.

Örnek :

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 0 Then ActiveSheet.PageSetup.PrintArea = ""
If [A1] = 1 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$G$20"
If [A1] = 2 Then ActiveSheet.PageSetup.PrintArea = "$C$1:$G$20"
If [A1] = 3 Then ActiveSheet.PageSetup.PrintArea = "$C$1:$G$30"
If [A1] = 4 Then ActiveSheet.PageSetup.PrintArea = "$CD$1:$G$50"
End Sub

 

[cdroy1]

ben bunu başka sayfadan çalıştırmak istiyorum mesela sayfa1 a1 hücresindeki rakamsal değere göre sayfa2 de yazdırma alanı belirlemek istiyorum ( sayfa1 a1 hücresinde yazan rakam düzenlenecek senet adedi olarak düşünün sayfa2 de önceden hazırlanmız satırlarda rakam değeri kadar alan belirleyip yazdırmak istiyorum ) ilginiz ve yardımınız için teşekkür ederim

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz?

Sheets("Sayfa2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & Sheets("Sayfa1").Range("A1").Value

 

[cdroy1]

çok teşekkür ederim verdiğiniz bilgiler çok faydalı oldu

 

[Seyit Tiken]

Bu şekilde de uygulayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 0 Then Sayfa2.PageSetup.PrintArea = ""
If [A1] = 1 Then Sayfa2.PageSetup.PrintArea = "$A$1:$G$20"
If [A1] = 2 Then Sayfa2.PageSetup.PrintArea = "$A$1:$G$30"
If [A1] = 3 Then Sayfa2.PageSetup.PrintArea = "$A$1:$G$40"
End Sub

Böylede ilgili sayfada yazdırma işlemi yapılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then Sayfa2.[A1:G20].PrintOut
If [A1] = 2 Then Sayfa2.[A1:G30].PrintOut
If [A1] = 3 Then Sayfa2.[A1:G40].PrintOut
End Sub