İki ayrı yazdrma alanına tek satır kod yazmak

[cebelitarık]

Forumun değerli üyeleri


ActiveSheet.PageSetup.PrintArea = "A1:I112,J1:R56"
bu kod çalışmaktadır.

Ancak;
p=112

I112 hücre değerindeki 112 rakamını p değişkeni ile tanımlamak istiyorum.
Ancak alt satırdaki yazdığım kod, virgül hatası vermektedir.
Nasıl yazmalıyım.
ActiveSheet.PageSetup.PrintArea = "A1:I" & p , "J1:R56"
Saygılarımla

 

[Orion1]

deneyiniz.

ActiveSheet.PageSetup.PrintArea = "A1:I" & p  ",J1:R56"

 

[cebelitarık]

Sayın Orion1
İlginize teşekkür ederim.
ActiveSheet.PageSetup.PrintArea = "A1:I" & p ",J1:R56"
Kodun ",J1:R56" bu bölümde
"Expected: End statement" hatası vermektedir.
Tekrar ilginizi bekliyorum. Saygılarımla

 

[Orion1]

Aşağıdaki kodu kullanınız.

ActiveSheet.PageSetup.PrintArea = "A1:I" & p & ",J1:R56"

 

[cebelitarık]

Teşekkürler