Filtrering af data

Prøv med denne makro:

Sub Macro1()
Range("A2:D400").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Range("H4").Value
Cells(1, 8).Select
End Sub

Tak for input. Jo den fungerer ok, men udfordringer er, at nævnte makro kun tager "de rene kriterier" d.v.s. hvor der f.eks står AA i kolonne D. Jeg er også interesseret i de rækker, hvor kriteriet indgår i kombination som f.eks. BB,AA eller AA,CC,DD osv. Samtidig vil jeg også gerne have bibeholdt overskrifterne - de blå linier uanset valg/kriterie. Håber det giver mening.

Hvis du ikke havde låst din fil med password ville jeg måske have kunnet se hvad du mener.

Ups, det havde jeg glemt - koden er 'test'

Filen er låst op - kom gerne med løsninger

Så vidt jeg kan se har du slettet den gamle fil uden at lave en link til en ny.

Her er link til ny fil

http://gupl.dk/702442/
kode: test

Forhåbentligt kan dette bruges. http://gupl.dk/702494/

Det ser rigtig godt ud, men som bekendt mere vil gerne have mere.

Kan du lave en makro til print af den fuldstændige liste (ufiltreret). Alle print (filtreret og ufiltreret)skal udskrives til PDF, så brugeren selv kan vælge om man ønsker at udskrive eller videre sende.

Faktisk havde jeg lavet en makro til udprintning af den ufiltrerede liste, men da jeg gennemlæste dit ønske igen inden afsendelse, kunne jeg se at det ikke var det du bad om. Derfor pillede jeg udprintningen ud. Her er den oprindelige makro:

Sub ShowAll()
    Range("A1:D96").EntireRow.Hidden = False
  Range("A1:D96").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("F3").Select
End Sub

Indsæt den i stedet for den der er i linket.
Omdannelse til PDF kan jeg ikke hjælpe dig med.

Det virker rigtig fint, men har dog et opklarende spørgsmål. De blå farver i overskriftslinierne kommer ikke med ud på printet. Har været inde og se på printeropsætning, og den står standard til farve, så det er ligesom om den bliver overskrevet.

Det er fordi jeg beklageligvis har fået valgt sort/hvid udprintning. Gå ind under sideopsætning, vælg ark og fjern fluebenet på sort/hvid

Tusind tak - sender du et svar, så jeg kan tildele di point.

Du kan bruge #8 eller #10 som svar