Avatar billede moba Nybegynder
29. marts 2005 - 08:42 Der er 4 kommentarer og
1 løsning

"Spejling" af rækker til et andet ark, filtreret efter celleværdi

Hej

Jeg har et regneark (ark1) hvor kolonne A indeholder kundenavne og kolonne B indeholder initialerne for den kundeansvarlige.
(de resterende kolonner indeholder forskellige information om kunderne)

Jeg har brug for at lave et worksheet per kundeansvarlig som er "filtreret" så det kun indeholder de rækker fra det oprindelige ark1 vor initialerne er lig med "xx".

Pointen er selvfølgelig at den enkelte kundenansvarlige kan nøjes med at se i arket med vedkommendes egne kunderelationer.

Det skal laves dynamisk sådan at spejlingen fra ark1 til de initialspecifikke ark opdateres så snart hovedarket gør det.

Jeg håber det kan klares uden VBA, men gi' et bud!
Avatar billede sjap Praktikant
29. marts 2005 - 09:24 #1
Du behøver faktisk ikke lave et nyt ark for at gøre det. Du kan blot stille dig i øverste venstre hjørne af din tabel og så vælge menuen Data/Filter/Autofilter. Så bliver der lavet en række lister, hvor du f.eks. kan vælge at filtrere efter initialer.
Avatar billede moba Nybegynder
29. marts 2005 - 13:19 #2
Jeg kan skabe det ønskede resultat ved at bruge "advanced filter". (dvs. skabe et nyt ark/dataområde som består af alle de rækker i det oprindelige hvor et givent kriterium er opfyldt).

Men hvordan får jeg filtreringen til at blive foretaget automatisk hver gang der sker en ændring i det oprindelige dataområde?
(eksempel: når jeg ændrer initialerne fra "xx" til "yy" på en kunde skal dette øjeblikkelig afspejles ved at rækken slettes fra det "xx"-filtrerede dataområde og oprettes i det "yy"-filtrerede dataområde.
Avatar billede sjap Praktikant
29. marts 2005 - 16:45 #3
Højreklik på dit regnearkets fane (nederst) og vælg "Vis Programkode". I det skærmbillede der kommer, kan du indsætte følgende kode:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Range("A1:B18").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("D1:D2"), CopyToRange:=Range("H1:I1"), Unique:=False

End Sub

Bemærk at områderne skal tilpasses di ark:

A1:B18  skal erstattes af området med alle dine data - inklusive overskrifter
D1:D2    skal erstattes med det sted, hvor du skriver de initialer, der skal filtreres efter (D1 er overskriften og D2 er initialerne)
H1:I1    er de øverste celler i det område data skal kopieres til.
Avatar billede sjap Praktikant
30. marts 2005 - 11:00 #4
moba > Gik du i stå?
Avatar billede moba Nybegynder
05. april 2005 - 22:08 #5
hmm, ja jeg var ikke i en anden kategori... Men du får da point for dit løsningsforeslag.

Morten
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester