Udskriftsområde med automatisk autofilter.

Hvad vil du have vist? dem der svarer ja?

Private Sub Workbook_ BeforePrint (Cancel As Boolean)

    'Du skal nok teste her hvad for en ark skal printes.
    'Det er ikke sikkert at du vil filtrerer udskrift på alle ark.
    'Der kan evt. sættes kode ind her for at vise en formular, som spørger brugeren
    'om han vil printe ude med filtreret svar.
    'hvis han ikke vil gøre det, så kan regnarken ikke printes
   
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="Ja"
   
End Sub

Argumenterne Field(kolonne der skal indsættes nummer, og ikke bogstav) og Criteria1 skal nok ændres til de ønskede værdier

Jeg vil gerne have vist dem der svarer ja, men det skal være på nogle bestemte ark (der er ca. 37 forskellige ark) men det ville nok være nemmest at det filtrere på de ark som markeres til udskriften....kan det lade sig gøre?