jensen363 Seniormester
18. juni 2020 - 15:00 Der er 9 kommentarer

Beregn antal dage fra afrejse til næste ankomst

Mine data består af følgende :

ID      Ankomst      Afrejse
100  22-08-2020  29-08-2020
100  04-09-2020  07-09-2020
100  07-09-2020  11-09-2020

I ovenstående har jeg behov for at vide hvor mange dage der er imellem afrejsedato til næste ankomstdato, vel og mærket pr. ID i en serien med eksempelvis 500 forskellige ID med 10-15 forskellige ankomst- og afrejsedatoer. Data er som udgangspunkt ikke sorteret, så såvel ID som ankomst- og afrejse datoer ligger i vilkårlig rækkefølge

How to do ????
thomas_bk Professor
18. juni 2020 - 15:07 #1
Er der nogen grund til at ID og datoer ikke er sorteret?
jensen363 Seniormester
18. juni 2020 - 15:19 #2
Primært fordi bruger skal kunne vælge alternativ sortering på andre kolonner
thomas_bk Professor
18. juni 2020 - 15:28 #3
Men betyder det at du ikke kan sortere for at opnå en løsning?

Hvordan tænker du løsningen præsenteret?

Umiddelbart synes jeg at med en korrekt sortering og en formel længst til højre der beregner mellem afrejse og ankomstdato hvor der tages hensyn til ændring i ID give den nødvendige info du efterspørger.
jensen363 Seniormester
18. juni 2020 - 15:34 #4
Det var også den løsning jeg selv ville have udtænkt, - men den er ikke fleksibel nok for kunden :-( .... derfor tænker jeg noget vba for indsætter den ekstra kolonne i datasættet med de beregnede resultater
jensen363 Seniormester
18. juni 2020 - 15:43 #5
Jeg kunne selvfølgelig copy/paste tabellen efter beregningen :-)
ebea Ekspert
18. juni 2020 - 15:44 #6
Og hvordan finder du ud af, hvilken ID der hører til næste afrejse/ankomst datoer. Hvor ser du sammenhængen i disse, hvis de eksisterer tilfældige steder i måske 500 rækker?
Det må i første omgang, være baseret på et opslag/søgning på en dato, pr ID. Ellers kan jeg ikke umiddelbart se hvordan du vil finde disse antal dage, ud af tilfældige rækker.
thomas_bk Professor
18. juni 2020 - 17:39 #7
Hvad er det egentligt man ønsker at få ud af beregningerne?
Medmindre man visuelt vil løbe 500 linier igennem giver opstillingen heller ikke så meget mening.
jens48 Ekspert
18. juni 2020 - 23:58 #8
Hvis jeg har forstået dig ret kunne det måske gøres ved at sætte en ekstra kolonne ind, hvor du blot skrev rækkenummeret, og så med en makro sortere for ID som første prioritet og ankomst som anden prioritet. Så er det simpelt at regne forskellen ud. Derefter bruges kolonnen med rækkenummeret til at sortere tilbage til oprindelige indstilling. Lidt i stil med nedenstående makro:

Sub Macro1()
Range("E:E").ClearContents
    Range("A3:E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B3:B501" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("C3:C501" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:D501")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  For x = 1 To 501
  If Cells(x, 2) = Cells(x + 1, 2) Then
  Cells(x, 5) = Cells(x, 4) - Cells(x + 1, 3)
  End If
  Next
    Range("A3:E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("A3:A501" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:E501")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
ebea Ekspert
19. juni 2020 - 11:13 #9
Her er et forslag til en mulig løsning. Om det er sådan, ved jeg ikke. Men du må jo melde ud, på det spørgsmål du selv har stillet. Der er flere spørgsmål i tråden, og forslag.

https://www.dropbox.com/scl/fi/ctsedj08runhpba4rehc3/indeks-rejsedage.xlsx?dl=0&rlkey=emf6yqokmouxdfof3rznrl1ul
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

Opret Preview

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





Premium
Anne Marie Engtoft Larsen gør klar til at rejse til USA som Danmarks nye tech-ambassadør: "Jeg har glædet mig helt vildt"
Interview: Om få dage drager Anne Marie Engtoft Larsen til Silicon Valley, hvor hun indtager embedet som Danmarks nye tech-ambassadør. "Mit mandat bliver at at fokusere på, hvordan vi skaber handling," siger hun i sit første interview som Danmarks tech-ambassadør.
Computerworld
Ups!: Gammelt fjernsyn lagde internetforbindelsen ned i hel landsby i halvandet år
I halvandet år var en hel landsby i Wales plaget af elendig bredbåndsforbindelse, som begyndte hver dag klokken syv om morgenen. Teknikere kæmpede med at løse mysteriet, men lige meget hjalp det. Årsagen viste sig at være et brugt tv, som en af byens familier havde taget i brug.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Midt i en Corona-tid: Holder du sikre og brugervenlige onlinemøder?
Åbne kontormiljøer, personlige møder, teambuilding og håndtryk har tidligere været en del af hverdagen for mange danske virksomheder, men det har covid-19 ændret på. Tidligere klassiske arbejdsformer er blevet erstattet af nye og mange medarbejdere arbejder f.eks. hjemmefra, på skift eller under nye og mere beskyttede forhold. Denne nye virkelighed har resulteret i en større produktivitet og effektivitet blandt de medarbejdere, som trives med at arbejde hjemmefra. Eksempler som øget fokus, effektiv brug af tid og færre forstyrrelser er blandt de positive tendenser. Det har fået flere ledere til at overveje at implementere muligheder for fleksible arbejdsmiljøer og faste hjemmearbejdsdage. Er det også tilfældet i din virksomhed? Hvis ja, så læs med i denne e-guide og find inspiration til, hvordan din virksomhed kan opnå de største fordele med online møder baseret på Cisco Webex.