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

Katılım
22 Mart 2007
Mesajlar
86
Excel Vers. ve Dili
excel2003
belli bir hücredeki sayıyı baz alarak hücre yazdırma alanı tanımlamayı nasıl yapabilirim yardımcı olursanız sevinirim
 
Katılım
31 Ocak 2007
Mesajlar
228
Excel Vers. ve Dili
office xp tr
Sub test()
If [e1] = 1Then
ActiveSheet.PageSetup.PrintArea = "$a$1:$d$8"
ActiveSheet.PrintOut Copies:=1
End If
End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
22 Mart 2007
Mesajlar
86
Excel Vers. ve Dili
excel2003
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki şekilde denermisiniz?:cool:
Kod:
Sheets("Sayfa2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & Sheets("Sayfa1").Range("A1").Value
 
Katılım
22 Mart 2007
Mesajlar
86
Excel Vers. ve Dili
excel2003
çok teşekkür ederim verdiğiniz bilgiler çok faydalı oldu
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Son düzenleme:
Üst