VBA / Macro - Skjul tomme fejlter, og udskriv derefter

mener du således?

Sub Makro2()
'
    Rows("2:49").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Rows("1:50").Select
    Selection.EntireRow.Hidden = False
End Sub

Hej jlemming

Skjuler denne altid Row 2:49 ?
Den skal kun skjule de linier som er "Tomme" altså hvis der står noger i A2:A39 skal disse være viste, og A40:A49 skal så være skjulte da de er tomme.

Ydermere skal der væren en linie foroven hvor jeg kan specificere hvilket ark den skal virke på.

Hvis en række ikke er tom, er der så altid en kolonne der er data i ?

Ja, kollone A skal der altid være data i

Sub Udskrift()
Sheets("Ark1").Select ' ret her til aktuel ark
Range("A2:A49").EntireRow.Hidden = False
Range("A2:A49").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PrintOut Copies:=1, Collate:=True
Range("A2:A49").EntireRow.Hidden = False
End Sub

Excelent det er rigtig godt lavet.

venligst lig et svar så du kan få lidt point.
jlemming burde have lidt da han også var igang.

Er der nogen måde hvor jeg kan give excelent 90 og jlemming 30 point??

ja det må være en deler, vent til ilemming også ligger svar

ok, med mig

Tak for hjælpen begge

Hej Excelent

Kan du evt. også løse denne? http://www.eksperten.dk/spm/812658