04. september 2013 - 23:30Der er
3 kommentarer og 1 løsning
VBA kode til tilfældig sortering
Jeg har to kolonner indeholdende data i området (B4:C27), og jeg ville gerne kunne sortere disse i tilfældig rækkefølge med en makro. B og C kolonnen hører sammen - dvs. hvis B4 er Jens og C4 er Hansen, så skal der forsat stå Jens Hansen når værdierne flytter til anden række.
Har bakset rundt med SLUMP og SLUMP.MELLEM funktioner, men dette er ikke den rigtige løsning da tallene skifter løbende.
Jeg skal gerne at den tilfældige sortering kun sker én gang ved klik på kontrolknap. Og meget gerne at kolonnen tager udfyldte celler i toppen dvs. at såfremt der tomme celler bliver disse i bunden.
Hvis Kolonne A er tom kan det laves med denne makro:
Sub Sorter() Dim LastRow As Long LastRow = Range("b65536").End(xlUp).Row For x = 1 To LastRow If Cells(x, 2) <> "" Then Cells(x, 1) = Rnd() Else Cells(x, 1) = 1 End If Next Range("A1:C1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A1:A" & LastRow).ClearContents Cells(1, 1).Select End Sub
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.
