Notifikationer

Markér alle som læst Log ud

TEN-DK Nybegynder

19. september 2011 - 14:39 Der er 5 kommentarer

Automatisk sortering af Dato

Hej er der nogle som kan hjælpe mig med en VBA kode eller på anden måde hjælpe mig med at få Excel til at sortere et datasæt automatisk efter dato.

Lad mig uddybe spørgsmålet.

Jeg er ved at lave et excel ark over nogle salgsaktiviteter og en af kolonnerne indeholder datoer for hvornår kunderne skal kontaktes igen. Jeg vil derfor gerne have lavet det sådan at datasættet er sorteret efter den den dato for kontakt, dvs. med den kunde som skal kontaktets først stående på første række og så den næste nedenunder osv. Har vi f.eks. 3 kunder som skal kontakten hhv. d. 23/4 , 12/2 så skal d. 12/2 stå øverst. Det skal desuden være sådan at tilføjes en ny kunde eller skriver man en ny dato (for eksisterende) så sorteres denne automatisk.

Det er kollonne I som er datofeltet og den skal gerne gælde uendeligt på rækkesiden.

På forhånd tak.

Synes godt om

natkatten Mester

19. september 2011 - 17:06 #1

Er det noget i retning af dette, som du ønsker:

http://gupl.dk/65791/

Prøv at indsætte nye kontaktoplysninger nederst.

Synes godt om

TEN-DK Nybegynder

19. september 2011 - 17:39 #2

Hej natkat

Det ser ud til det du har lavet er lige det jeg manglede. Hvordan gjorde du det? Hvorfor har du valgt =GENTAG ved Felt3 Felt4 Felt5 Felt6 Felt7 Felt8? hvis jeg har kolonner efter I bliver disse ikke også sorteret?

Mange tak indtil videre

Synes godt om

natkatten Mester

19. september 2011 - 18:48 #3

At jeg har fyldt forskellig tekst ind ved hjælp af gentag, har ikke noget med løsningen at gøre. Det er VBA-koden, som du kan se ved at åbne VBA-editoren (genvejstast ALT+F11), som laver den automatiske sortering, hvis der er ændringer/tilføjelser i arket. Koden er:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Me.UsedRange.Sort _
Key1:=[I1], Order1:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
Application.EnableEvents = True
On Error GoTo 0
End Sub

Automatikken ligger i brugen af Worksheet_Change eventen. Bemærk, at koden her forudsætter, at der er overskrifter i række 1.

Synes godt om

TEN-DK Nybegynder

20. september 2011 - 09:51 #4

Mange tak for svar

Hvordan giver jeg dig points?

Synes godt om

natkatten Mester

20. september 2011 - 09:58 #5

Du accepterer dette svar.

Mvh Natkatten

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	4	17/04/202616:11	18/04/202608:16
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS