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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
