udskrifts makro

Columns("A:G").Select
    Selection.PrintOut Copies:=1, Collate:=True

Sorry, var ikke lige opmærksom på betingelsen med kolonne D. Vender lige tilbage.

Prøv med denne:

Selection.AutoFilter Field:=4, Criteria1:="<>"
    COLUMNS("A:G").select
    Selection.PrintOut Copies:=1, Collate:=True
    Selection.AutoFilter Field:=4

Dén siger fejl

Run-time error `1004`
Metoden Autofilter for klassen Range mislykkedes

Det har ikke noget med der er formler
i nogle af cellerne

Eller måske fordi der ikek er noget at filtrere på. Hvis første række i D er tom virker autofilter ikke.

Denne virker hos mig:

    Range("a1:g1").Select
    Selection.AutoFilter

Selection.AutoFilter Field:=4, Criteria1:="<>"
    Columns("A:G").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Selection.AutoFilter Field:=4
   
    Range("A1:G1").Select
    Selection.AutoFilter

Den virker også, selvom D1 ikke indeholder noget. :)

Første klump sætter autofiltret, anden klump bruger filteret til at frasortere rækker, der i D-kolonnen er tomme, og udsskriver A-G kolonnerne. Sidste klump slår autofilteret fra igen.

hej x-Lars

Med den sidste makro du har sendt virker det
du skal have mange tak
ligge du et svar så du kan få dine point

Absolut! Glad for, at det virker §;-D