Automatisch de laatste kolommen afdrukken

[pcwimie]

Beste forumleden,

Ik ben op zoek naar formule voor een dynamisch afdrukbereik
Ik heb een bestand met een x aantal regels en x aantal kolommen.
elk jaar komt er één kolom bij en de rijen zijn ook varaibel

Ik wil op de afdruk altijd de eerste kolom en de laatste 8 kolommen hebben
met de formule =verschuiving krijg ik het wel voor elkaar om het afdrukgebied te vergroten als er rijen bij komen en te verkleinen als er rijen afvallen
maar om de juiste kolommen af te drukken lukt mij niet

misschien dat er iemand naar wil kijken of hij het wel voor elkaar krijgt

als het gelukt is heb ik een voorbeeld bestand bijgevoegd
In cel P2 staat de formule

bij voorbaat dank pcwimie

Bekijk bijlage Map2.xlsx

 

[HSV]

Als het op jaartal is, zou het zo kunnen werken.
Voor het printen, voer code 'verberg' uit.
Kijk dan bij afdrukvoorbeeld voor het resultaat.

Sub verberg()
 With Sheets(1)
  .Columns.Hidden = False
  .Range("B1:" & .Rows(1).Find(Year(Now()) - 7, , xlValues, xlWhole).Address).EntireColumn.Hidden = True
 End With
End Sub

 

[pcwimie]

Hartelijk dank voor je snelle reactie Harry, maar weet jij of dit ook mogelijk zonder een macro want ik weet namelijk niet hoe die werken, waar ik die neer moet zetten enz.

gr. pcwimie

 

[HSV]

Druk Alt+F8 en voer de code uit.
Kijken waar de code staat?
Druk Alt+F11 en dubbelklik in het linkervenster op module 1.

 

[pcwimie]

Het gaat hem n iet worden Harry want mijn pc is helemaal vastgeslagen op excel met ingeschakelde macro's
ik zal wat anders moeten verzinnen evengoed bedankt voor je hulp

groetjese pcwimie

 

[HSV]

Niet te bang zijn, gewoon opnieuw uitvoeren.
Van de code uitvoeren krijg je geen virus of wat dan ook.