VBA macro for print out

[BjarneHansen]

Hey

i have a ? aboud a macro wher i print out a list from sheet "bogføring" but it print all out
i want it to only print out the select year i sheet "T" C3 if i change year in C3 the print out will change

and the year start in sheet "T" C4 and end in sheet "T" C5

in sheet "bogføring" i only have 2 year now but more will com

sorry my english

[arnelgp]

i don't have printer so i cannot test.

[BjarneHansen]

it works but way di it hide all thi other data can i get it so it will show all data after print out

[BjarneHansen]

thanks it works

[arnelgp]

to show all data again replace your code with this:

Private Sub CommandButton1_Click()
'--------------------------------------------------------------------------'
' Printer til sidste række og hopper herefter til sidste celle i kolonne A '
'--------------------------------------------------------------------------'
    Dim ws As Worksheet
    Dim lastRow As Long
    
    'arnelgp
    Dim yr As Long
    Dim var As Variant
    
    var = Split(Sheets("T").Range("h2").Value)
    yr = Val(Sheets("T").Range(var(UBound(var))) & "")
    
    
    Set ws = ThisWorkbook.Sheets("Bogføring")


    
    ws.Range("$A$5:$J$65536").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(0, "12/31/" & yr)


'Find sidste række i kolonne B
    lastRow = [LOOKUP(2,1/(B1:B65536<>""),ROW(B1:B65536))]






'Sætter print området til sidste række
    ws.PageSetup.PrintArea = ws.Range("A3:J" & lastRow).Address


'Viser overskriften på hvert print
     ActiveSheet.PageSetup.PrintTitleRows = "$3:$5"


'Viser Dato - Klokken - Sidenummer i bunden af hvert print
     ActiveSheet.PageSetup.CenterFooter = "&8Udskrevet d. &D &  -  & Kl. &T"
    
'Viser ikke printbreaks på fanen
     ActiveSheet.DisplayAutomaticPageBreaks = False
    
'Åbner print
     ActiveSheet.PrintOut 'Preview


'Opdaterer skærmen og hopper til sidste A2


    ws.Range("$A$5:$J$65536").AutoFilter
    ws.Range("$A$5:$J$65536").AutoFilter
    
    Application.ScreenUpdating = True
    ActiveSheet.Range("B65536").End(xlUp).Select
End Sub

[BjarneHansen]

thanks again

[BjarneHansen]

var = Split(Sheets("T").Range("h2").Value)

what is this line doing H2 is emti i sheet "T"

[arnelgp]

your H2 cell has "cellen C2"

if you use split() function it will create array with values:

array(0)="cellen"
array(1)="C2"

[BjarneHansen]

ok but it cut take the year from C2 wher the input is

[BjarneHansen]

yr = Sheets("T").Range("C2").Value & ""

like this i think

[arnelgp]

look at cell I2, what does it suggest?

[BjarneHansen]

it tells you to input that year you work in
shut be input in C2
I2 is only info

[arnelgp]

i Will walk you through the code:

var = Split(Sheets("T").Range("h2").Value)

var will be an array here.

Ubound(var) is the Upper Bound of the array.

the next line:

yr = Val(Sheets("T").Range(var(UBound(var))) & "")

var(Ubound(var)) will be "C2".

you plug it in the expression:

yr = Val(Sheets("T").Range("C2") & "")

yr= 2022

;;;;;;;;;;;
because you put Any "Range" into H2 (to point which year to process).