Autofiler med kriterier

Hvis man går ud fra at du har Ark1 hvor du i Celle B1 skriver den anvaliges navn og i Celle B2 skriver deadline, samt at du på ark2 har 2 kolonner hvor kolonne 1 indeholder ansvalig og kolonne 2 indeholder deadline, Så kan du forsøge dig med følgende makro:

  Sub Filter()
      Sheets("Ark2").Activate
      Selection.AutoFilter
      Selection.AutoFilter Field:=1, Criteria1:=Worksheets("Ark1").Range("B1").Value
      Selection.AutoFilter Field:=2, Criteria1:=Worksheets("Ark1").Range("B2").Value
  End Sub

Du kan evt. lave en knap på Ark1 som du bruger til at aktivere makroen med.

For sørensen det funker jo 100%. Tusind tak. Smid lige et svar så returnerer jeg taknemligst de 100 point.

Et svar ;o)