Udskrift uden tomme rækker

Sæt autofilter på og sorter efter 'ikke tomme'.

Det hedder vel 'filtrer' istedet for 'sorter'.  :)

Ja det er en mulighed, men det kræver vel at man vælger det manuelt hver gang. Kan man ikke automatisere det?

Jo, du kan lave en makro som kan foretage filtreringen og starte udskriften (evt lægge makroen på en Knap).

jeps, og nettop derfor spørgsmålet til jer eksperter ;-)

Hov nettop=netop

Public Sub TilUdskrift()
Dim Fday As Date, Lday As Date
Sheets("Ark2").Activate
    Cells.Select
    Selection.Clear ' tømmer ark2
For I = 1 To 5
Sheets("Ark2").Cells(1, I) = Sheets("Ark1").Cells(1, I)
Next
    Columns("A:A").Select
    Selection.NumberFormat = "m/d/yyyy" ' sætter dato formatet på ark2

Sheets("Ark1").Activate
Ladd = Sheets("Ark1").Range("A65536").End(xlUp).Address ' sidste data i ark1
Fday = InputBox(" Indtast start dato (dd-mm-åå)") ' start dato
Lday = InputBox(" Indtast slut dato (dd-mm-åå)")  ' slut dato
For Each C In Sheets("Ark1").Range("A2:" & Ladd).Cells
If C >= Fday And C <= Lday Then
If C.Offset(0, 1) <> "" Then
Trow = Sheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0).Row
For I = 1 To 5
Sheets("Ark2").Cells(Trow, I) = Sheets("Ark1").Cells(C.Row, I)
Next
End If
End If
Next
Trow = Sheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Ark2").Activate
Sheets("Ark2").Range("A" & Trow & ":E" & Trow).Select ' streg tegnes
  With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
  End With
 
  Trow = Sheets("Ark2").Range("A65536").End(xlUp).Offset(2, 0).Row
    Sheets("Ark2").Range("A" & Trow).FormulaR1C1 = "I alt"
    Sheets("Ark2").Range("D" & Trow).FormulaR1C1 = "=SUM(R[-" & Trow - 2 & "]C[1]:R[-1]C[1])" ' sum kroner
 
 
End Sub

Er det muligt man kunne få en forklaring, jeg er desværre ikke så stærk i programering. Evt. også hvordan jeg sætter dette ind.

I regnearket, Tryk ALT +F11

nu er du i VBA editoren

Vælg Insert Module

der sætter du koden ind.

Ret alle steder hvor der står Ark1 til dit arknavn på intastningsarket.

det samme for ark2 som er udskrivningsarket

Luk VBA etitoren på det øverste højre X

Så er du tilbage på det normale ark

der er en her hvor du kun behøver at rette i toppen, ISide og USide


Public Sub TilUdskrift()
Dim Fday As Date, Lday As Date, ISide As String, USside As String
ISide = "Ark1" ' navnet på indtastningssiden'
USide = "Ark2" ' navnet på udskrivningssiden
Sheets("Ark2").Activate
    Cells.Select
    Selection.Clear ' tømmer udskrivningssiden
For I = 1 To 5
Sheets(USide).Cells(1, I) = Sheets(ISide).Cells(1, I)
Next
    Columns("A:A").Select
    Selection.NumberFormat = "m/d/yyyy" ' sætter dato formatet på udskrivningssiden

Sheets(ISide).Activate
Ladd = Sheets(ISide).Range("A65536").End(xlUp).Address ' sidste data på indtastningssiden
Fday = InputBox(" Indtast start dato (dd-mm-åå)") ' start dato
Lday = InputBox(" Indtast slut dato (dd-mm-åå)")  ' slut dato
For Each C In Sheets(ISide).Range("A2:" & Ladd).Cells
If C >= Fday And C <= Lday Then
If C.Offset(0, 1) <> "" Then
Trow = Sheets(USide).Range("A65536").End(xlUp).Offset(1, 0).Row
For I = 1 To 5
Sheets(USide).Cells(Trow, I) = Sheets(ISide).Cells(C.Row, I)
Next
End If
End If
Next
Trow = Sheets(USide).Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets(USide).Activate
Sheets(USide).Range("A" & Trow & ":E" & Trow).Select ' streg tegnes på udskrivningssiden
  With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
  End With
 
  Trow = Sheets(USide).Range("A65536").End(xlUp).Offset(2, 0).Row
    Sheets(USide).Range("A" & Trow).FormulaR1C1 = "I alt"
    Sheets(USide).Range("D" & Trow).FormulaR1C1 = "=SUM(R[-" & Trow - 2 & "]C[1]:R[-1]C[1])" ' sum kroner

End Sub

lige en fejl

Sheets("Ark2").Activate
skal være
Sheets(USide).Activate

Hej Kabbak,
Det er jeg vidst lige nød til at teste lidt nærmere, men det var noget i den stil jeg havde tænkt mig.
Tak for indsatsen, hvis du vil have pointene så lav lige et svar.

ok, men spørg endelig, hvis der er noget der driller. ;-))

Ja det skal jeg huske, tak.

Hej Kabbak,

Det er simpelthen bare kanon, tak for det.

selv tak. ;-))