Hulp met code aub

[saffier1990]

Ik heb een bestandje: kolom a is namen, kolom b is datums (begint vanaf regel 2), als ik een datum verander verspringt dit automatisch samen met de naam naar goede volgorde. Nu wil ik er 2 kolommen naast die precies het zelfde doen, hoe ga ik dat aanpakken? Ik ben ondertussen al bijna 2 uur zelf aan et klooie (zonder er enig verstand van te hebben) en het schiet dus totaal niet op

Dit is wat ik nu heb voor kolom a+b, nu wil ik dus het zelfde voor kolom d+e en g+h..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
i = Sheets("Sheet1").Range("b65536").End(xlUp).Row
Sheets("Sheet1").Range(Cells(2, 1), (Cells(i, 2))).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

Toevallig iemand die me een handje wil helpen? Zou heel fijn zijn!

 

[r3000]

als je een voorbeeld bestandje plaats kan ik je wellicht helpen.

 

[saffier1990]

Bijgevoegd voorbeeld. Zoals je ziet werkt de eerste kollom wel als je datum verandert en zo moeten de andere 2 kollommen ook gaan werken. Heb even een schoon voorbeeld toegevoegd, zonder mijn prutswerk er bij haha.

Bekijk bijlage Houdbaarheidsdatums(test1).xlsm

 

[r3000]

Zie je, het scheelt als je een voorbeeld plaatst, dan hoeven mensen niet uit te vogelen wat je bedoelt.

Volgens mij is dit de oplossing: Bekijk bijlage Houdbaarheidsdatums-r3000.xlsm

:thumb:

 

[r3000]

Het komt er op neer dat je de bereiken in je code even aan moet passen.
Kijk maar even of je het ook begrijpt.

 

[saffier1990]

Mijn held, super bedankt!
Ik zat er totaal naast met de range en hoe ik de nieuwe sectie moest starten.
Was me nooit gelukt alleen, echt nogmaals heel erg bedankt!

 

[r3000]

mooi!

Wil je de status op opgelost zetten? :thumb:

 

[saffier1990]

Al gedaan, nogmaals bedankt