Sorteren op 2 kolommen in bestaande macro

[leen85]

Hoi,

Ik heb een bestaande macro waarmee ik gegevens input volgens datum van tabblad A naar tabblad B.
Deze werkt perfect, maar ik zou graag dat hij als hij de gegevens input op datum ook nog eens per dag de lijnen schikt per klantnummer (CHIDNummer).
Is dit volgens jullie mogelijk?

Huidige macro is:

Private Sub CommandButton1_Click()
[c2:c13] = [index(upper(c2:c13),)]
Dim LR As Long
With Sheets("Data")
LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Range("B" & LR & ":R" & LR) = Application.WorksheetFunction.Transpose(Sheets("Input").Range("C2:C18"))
.Range("A2:R" & LR).Sort Key1:=.Range("B1"), Header:=xlYes
End With
With Sheets("Back up")
LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Range("B" & LR & ":R" & LR) = Application.WorksheetFunction.Transpose(Sheets("Input").Range("C2:C18"))
.Range("A2:R" & LR).Sort Key1:=.Range("B1"), Header:=xlYes
End With
Sheets("Input").Range("C2:C13").ClearContents
End SubBekijk bijlage Test Dagstaten.xlsm

Mvg,

Leen