volgorde bepalen

Status
Niet open voor verdere reacties.
S

sjeeke

Gebruiker
Lid geworden
25 sep 2013
Berichten
37
ik zou graag bij het eindpunt van de eerste opdracht met de 2e willen beginnen op dezelfde (of de dichtstbijzijnde) positie van het eindpunt van die eerste.

in bijgevoegd excelbestand staat in kolom B het begin- en eindpunt , in kolom C dus de desgewenste route.

Wie heeft ideeën?
ik kom er vooralsnog met formule(s) en of VBA niet uit.
 

Bijlagen

  • rij sorteren.xlsx
    8 KB · Weergaven: 42
Test deze eens
Code: 
Sub tsh()
    Dim Rngx As Range, Rnga As Range
    Dim x As Long, t As Long
    Dim Br, Bq
    
    Set Rngx = Range("A1:B2")
    x = 1
    Br = Split(ActiveSheet.UsedRange.Offset(3).Resize(, 2).SpecialCells(2).Address, ",")
    Do
        x = x + 1
        t = 10000
        For Each Bq In Br
            If Abs(Replace(Range(Bq)(2), "rij ", "") - Replace(Rngx(4), "rij ", "")) < t Then
                t = Abs(Replace(Range(Bq)(2), "rij ", "") - Replace(Rngx(4), "rij ", ""))
                Set Rnga = Range(Bq)
            End If
        Next
        Rnga(2).Offset(, 2) = x
        Set Rngx = Rnga
        Br = Filter(Br, Rngx.Address, False)
    Loop Until UBound(Br) = -1
End Sub
 
Hallo Timshel,

Thanks voor de snelle reactie.
Code doet helaas niks.

Ik heb de file nu, samen met jouw code, toegevoegd als xlsm
 

Bijlagen

  • rij sorteren.xlsm
    15,8 KB · Weergaven: 29
Code doet het prima. Uitvoer in kolom D.
Geen idee waarom het bij jou niet werkt.
 
Macro's inschakelen?
 
:eek::eek::eek::eek::eek::eek: werkt idd. Had inschakelen macro's over het hoofd gezien...
Super bedankt voor de hulp...

:thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan