Willekeurig sorteren

[MBBS]

Hoe krijg ik de namen in de naastliggende kolommen 10 keer door elkaar geschud.

=Aselect() heb ik al geprobeerd maar krijg die niet in werking bij dit probleem.

 

[snb]

Sub tst()
  Randomize
  sq = [A5:B24]
  For j = 1 To 10
    For jj = 1 To UBound(sq)
      sq(jj, 2) = Rnd
    Next
    [P5:Q24] = sq
    [P5:Q24].Sort [Q5]
    [B5:B24].Offset(, j) = [P5:P24].Value
  Next
  [P5:Q24].ClearContents
End Sub

 

[MBBS]

Prima oplossing !

Bedankt


Nog een vraagje.
Als ik nu maar 15 personen heb dan verschijnen er in de kolommen lege cellen.
Is het nu mogelijk om indien het aantal personen mindert ook de lege cellen te vermijden

 

[snb]

Deze had je makkelijk zelf kunnen maken op basis van de voorgaande suggestie.

Sub tst()
  Randomize
  With [A5].currentregion.resize(,2)
    sq=.offset
    For j = 2 To 11
      For jj = 1 To UBound(sq)
        sq(jj, 2) = Rnd
      Next
      with .offset(,j)
         .offset = sq
         .Sort .offset(,1).resize(1,1)
      end with
    Next
    .offset(,12).clearcontents
  End With
End Sub

 

[MBBS]

Waarvoor dank.