Afdrukbereik afhankelijk van celwaarde

[mooske04]

ik heb al in deze vraag gekeken, maar kom er niet uit.....

Ik wil het afdrukbereik afhankelijk maken van de waarde (gebaseerd op een formule) in cel H35
Als H35> 0, dan moet het afdrukbereik B2:M732 zijn
is H35<0 dan moet het afdrukbereik B2:M52 zijn.

Maar ik snap geen jota van de VBA zoals in bovenstaande vraag als voorbeeld wordt vermeld :-(
Alle hulp welkom!

 

[Roncancio]

Private Sub Worksheet_Calculate()
ActiveSheet.PageSetup.PrintArea = "B2:M" & IIf(Range("H35").Value < 0, 52, 732)

End Sub

Met vriendelijke groet,


Roncancio

 

[mooske04]

Briljant!!!
En veel simpeler te volgen dan het verhaal wat ik al gelezen had.

Thanks!

 

[mooske04]

Helaas, toch iets te vroeg gejuigd...
Ik heb bovenstaande in de programmacode vh werkblad gezet maar krijg bij openen telkens de melding dat er een fout in de VBA zit.... Fout 214717848 (80010108) tijdens uitvoering: Methode PrintArea van object pagesetup is mislukt.
En als ik dan mn afdrukvoorbeeld kies, staat ie op pagina 1 van 13.577 en zoveel heb ik toch echt niet.... Misschien pakt ie hem niet omdat de cel H35 een formule bevat?

 

[WHER]

Een probeersel zonder VBA, zie bijlage.
Na openen een willekeurig bereik als PrintArea selecteren en in de Name manager de "Refers to" van Print_Area veranderen in "= myArea"
Helaas moet dit telkens bij het openen herhaald worden.

 

[Roncancio]

Het mag niet uitmaken of in cel H35 een formule staat of niet.
Kan je het bestand opsturen?

Met vriendelijke groet,


Roncancio

 

[mooske04]

Hierbij het bestand.