CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede martin_g Nybegynder
19. oktober 2004 - 13:39 Der er 9 kommentarer og
2 løsninger

Avanceret filter - opdatér

Hej,

Hvis jeg har en liste med navne (f.ex), og jeg i en rullemenu gerne vil kunne vælge blandt disse navne er jeg naturligvis kun interesseret i unikke poster.

Hvis jeg har:
Martin
Carl
Aage
Martin

Vil jeg kunne vælge mellem de tre første. Jeg kan så lave en "unik" liste ud fra avanceret filter, men hvis jeg så senere skriver 'Thomas' på listen vil jeg også gerne have opdateret min unikke liste - hvordan gøres dette lettest ?

En mulighed (går jeg ud fra) er at optage 'avanceret filter' i en makro - kan jeg så sætte den til at opdatere når arket åbnes ?
Avatar billede stewen Praktikant
19. oktober 2004 - 14:46 #1
Prøv og navngiv dit område med navne (ctrl+F3) og indsæt følgende område:

=Ark1!$A$1:FORSKYDNING(Ark1!$A$1;TÆLV(Ark1!$A$1:$A$65536)-1;0)

Her skal du selvfølgelig rette Ark1 til dit arknavn

$A$1 skal rettes til starten af dit område (3 steder) og endelig $A$65536 skal rettes til din kolonne, men stadig med 65536......

dette navngivne område indsætter du i dit avancerede filter!
Avatar billede martin_g Nybegynder
19. oktober 2004 - 14:54 #2
Hej Stewen,

Ja, det giver jo fint nok det rigtige område...det gør det bare ikke dynamisk - hvis jeg tilføjer et navn nederst bliver den filtrerede liste ikke opdateret...
Avatar billede stewen Praktikant
19. oktober 2004 - 15:14 #3
hmm... okay, kabbak har engang lavet følgende (http://eksperten.dk/spm/499907):


Sorter kolonne A stigende og kør så makroen.

Sub Find_Unikke()
l = Range("A65536").End(xlUp).Address
For Each C In Range("A1:" & l).Cells
If C <> C.Offset(1, 0) Then
If Range("D1") <> "" Then
Range("D65536").End(xlUp).Offset(1, 0) = C
Else
Range("D1") = C
End If
End If
Next
End Sub
Avatar billede martin_g Nybegynder
19. oktober 2004 - 15:30 #4
Hej Stewen,

Det virker lidt voldsomt - kan man ikke bare optage en makro der kører det avancerede filter ? Hvordan ser knap-koden ud hvis man vil køre en makro (for exempel med navnet 'avfilter') ?
Avatar billede martin_g Nybegynder
20. oktober 2004 - 10:31 #5
Hey - jeg har fundet ud af, at hvis jeg indspiller det som makro, og så sætter makro-koden ind i Workbook_SheetChange ... så opdaterer den !!!

Altså, helt simpelt:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Range("A1:A80").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1:B80"), Unique:=True
End Sub
Avatar billede oernhoej Nybegynder
21. oktober 2004 - 10:31 #6
Lige en kommentar
Brug evt. navne i stedet for cellereferencer og læg opdateringen af navneområdet ind i i code så navnereferencen automatisk opdateres, når du laver ændringer i området

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Range("a1").CurrentRegion.Name = "Kontoplan"
        'området celle a1 og tilgrænsende celler navngives med navnet "Kontoplan"
   
End Sub

Og indsæt så navnet istedet for cellereferencen i din makro for avanceret filter
Avatar billede martin_g Nybegynder
25. oktober 2004 - 12:53 #7
I skal have tak for hjælpen...smider I nogle svar, så fordeler jeg point - I ledte mig begge på sporet af den rette løsning...
Avatar billede stewen Praktikant
25. oktober 2004 - 14:41 #8
bare det lykkedes
Avatar billede martin_g Nybegynder
03. november 2004 - 13:34 #9
Hmmmm...nu ser det ud til at der kun kommer det ene svar, så pointene går til Stewen.

Tak...
Avatar billede oernhoej Nybegynder
03. november 2004 - 16:01 #10
Ja ja da
Avatar billede oernhoej Nybegynder
05. november 2004 - 11:36 #11
tak for det
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
renteberegning Af Pil i Excel 2 I dag 11:27 I dag 13:12
Identificér og hent del af tekststreng Af TheLibrarian i Excel 1 22/11/202416:49 22/11/202421:00
Ændre nuller til ovenstående tekst Af boro23 i Excel 4 20/11/202410:44 20/11/202412:08
HVIS med datoer Af HHA i Excel 6 20/11/202408:31 20/11/202412:51
Numerisk liste Af AND i Excel 8 19/11/202414:05 19/11/202423:31
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
48 min siden Billedoverførsel Af Laurids i iOS, iPhone & iPad
I dag 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Styrk compliance, sikkerhed og overblik med ét hug
Læs mere »
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
MDR: Transparent sikkerhed og overvågning i realtid
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »