13. januar 2013 - 16:18Der er
9 kommentarer og 1 løsning
Automatisk opdatering af filter
Jeg har et regneark hvor jeg i en celle taster et nummer. Dette bruges til LOPSLAG på nogle data i et andet ark. Afhængig af hvilket "post" i den anden tabel jeg slår op, så bliver der flere / færre rækker, der indeholder data i mit konkrete regneark.
På baggrund af en formel, der giver 0 eller 1 afgør jeg så om rækkerne indeholder data - og dermed skal vises eller skjules.
Øverst har jeg så et filter, som kun viser rækker der giver 1.
Hver gang jeg taster et nyt nummer i cellen til LOPSLAG så reagerer mit filter først når jeg har "valgt" det igen. Indtil da fastholder den filtrering fra forrige post.
Kan jeg gøre således, at filteret automatisk opdateres - og hvordan?
Koden indsættes i arkets kodemodul Filter opdateres med hvad der indtastes i J1
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("J1")) Is Nothing Then Exit Sub krit = "*" & Range("J1").Value & "*" ' indeholder Range("A1").AutoFilter Field:=1, Criteria1:=krit 'eller 'krit = Range("J1").Value ' lig med 'Range("A1").AutoFilter Field:=2, Criteria1:=Range("J1").Value End Sub
Jeg er ikke helt med på hvor i Excel jeg finder "kodemodul" for et ark?
Du skriver at filteret opdateres med hvad der indtastes i J1. I givet fald vil det ikke virke. Det jeg skriver i J1 (som så i mit ark er E2) er et rækkenummer fra den tabel hvor jeg henter oplysninger. Det kan derfor være alt fra 1 til 150. Mit filter skal vise alle de rækker i kolonne I som har værdien 1.
Hvor har du dit Autofilter ? Ark/kolonner og i hvilken kolonne skal filterkriterie indsættes Findes celle A1 med 1/0 og E2 med indtastning i samme Ark?
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub Range("C1").AutoFilter Field:=1, Criteria1:=Range("A1").Value End Sub
Bem.: Field:=1 refererer til et Autofilter's første felt, ret evt. til aktuel
Jeg har haft stor gavn af ovenstående kode - TAK Hvordan gør jeg, hvis opdateringen skal ske via en ændring i et andet ark? fx Ark2
På forhånd TAK!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
