Makro til at danne udskrift

Der er PT. 26 navne, der er lavet plads til yderligere 22 navne da vi ikke ved hvor længe vi skal bruge arket. Vi har PT. ikke et system der kan opgøre det i lønsedlerne.

prøv evt om denne er en løsning

Marker de rækker som skal udskrives,-kør makro - evt. blot i kolonne A
øvrige rækker skjules imens der printes

Sub SelectPrint()
Range("A1:A1200").EntireRow.Hidden = True
Selection.EntireRow.Hidden = False
ActiveSheet.PrintPreview ' udskift med ActiveSheet.PrintOut skriver til printer
Range("A1:A1200").EntireRow.Hidden = False
Range("A1").Select
End Sub

Næsten rigtigt.
Udskriften kommer dog ud på 2 sider da området fylder mere end et liggende A4 ark. Det er derfor jeg har dataområdet som 2 adskilte områder ;-)
Det er nu ellers en meget god procedure du der har lavet.

nå ok jeg prøver at skrue en kode sammen til at flytte data

er der data i alle cellerne c5-t6 og u5-am6 eller er disse områder flettede eller...?

Sub Makro2()
Dim Data As Variant, I As Integer
  Data = Range(Range("A" & Selection.Row), Range("AM" & Selection.Row + 1))
    Worksheets("Ark2").Cells(1, 1) = Data(1, 1)
    For I = 3 To 20
    Worksheets("Ark2").Cells(5, I) = Data(1, I)
    Worksheets("Ark2").Cells(6, I) = Data(2, I)
    Worksheets("Ark2").Cells(10, I) = Data(1, I + 18)
    Worksheets("Ark2").Cells(11, I) = Data(2, I + 18)
    Next
End Sub

Glemte at sige at du skal stå på navnet i akolonnen, inden du kører makroen

Hej kabbak
Du snuppede tjansen og løste opgaven i første hug.
Læg et svar.

Tak for deltagelsen excelent, men det er kabbak der kom med netop det jeg har brug for.

Jeg har efterhånden erfaret tilstrækkeligt mange gange at man skal beskytte sit arbejde mod brugerne samt forsøge at tage forholdsregler mod så mange fejltagelser som man kan forestille sig.
Jeg skjuler derfor så meget som muligt og låser desuden alle celler der ikke må tastes i.
Jeg har derfor lavet nogen få ændringer i koden for at beskytte mod diverse fejltagelser. Koden ser nu sådan ud:

Sub UdskrivNavn()
Dim Data As Variant, I As Integer, J As Integer

Range("A" & Selection.Row).Select
  Data = Range(Range("A" & Selection.Row), Range("AM" & Selection.Row + 1))
  Sheets("UdskriftsArk").Visible = True
    Worksheets("UdskriftsArk").Cells(1, 3) = Data(1, 1)
    For I = 3 To 20
        Worksheets("UdskriftsArk").Cells(5, I) = Data(1, I)
        Worksheets("UdskriftsArk").Cells(6, I) = Data(2, I)
        Next
    For J = 3 To 21
        Worksheets("UdskriftsArk").Cells(10, J) = Data(1, J + 18)
        Worksheets("UdskriftsArk").Cells(11, J) = Data(2, J + 18)
        Next
    Sheets("UdskriftsArk").Select
    Range("A1").Select
End Sub
Sub Tilbage()
    Sheets("AfspadseringsListe").Select
    Range("D5").Select
    Sheets("UdskriftsArk").Visible = False
End Sub

et svar;-))

Jeg kan se at du har forstand på og kan læse en kode, det gør jo arbejdet nemmere for os der svarer.

Ja, men du har også hjulpet mig flere gange ;-)
Tak