Notifikationer

Markér alle som læst Log ud

EjnarJepsen Nybegynder

04. september 2013 - 23:30 Der 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.

Synes godt om

jens48 Ekspert

04. september 2013 - 23:50 #1

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

Synes godt om

EjnarJepsen Nybegynder

05. september 2013 - 00:29 #2

Super - det var lige hvad jeg har brug for.
Rettede lige til række 4, men ellers perfekt.

Synes godt om

EjnarJepsen Nybegynder

05. september 2013 - 00:34 #3

Kan du ikke lige skrive igen, så du kan få dine point. Har ikke så meget forstand på pointgivning

Synes godt om

vejmand Juniormester

05. september 2013 - 01:02 #4

jens48, dine point er her: http://www.eksperten.dk/spm/985264

Synes godt om

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. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	I dag 10:22	I dag 11:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	I dag 10:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel	4	04/03/202617:11	06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel	3	19/02/202614:23	20/02/202608:26

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS