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:clap:

[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 :bug::clap:

[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 :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).