• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Random kolom

Status
Niet open voor verdere reacties.

Amstellovich1967

Gebruiker
Lid geworden
25 jul 2017
Berichten
143
Beste leden,

Graag wil ik informeren of het mogelijk is om alleen de cellen I2:I11 middels een commandobutton random te laten verspringen.
Dit omdat de medewerkers elke dag op een verschillende plaats komen te werken.

Is dit mogelijk? Wie kan en wil me hierbij helpen?

Groet,
Rene
 

Bijlagen

@Emields:

Dat ziet er geweldig uit. Ik ga de code eens bestuderen hoe dit tot stand is gekomen.
Super bedankt voor je hulp. :thumb:

Groet,
René
 
Hier nog een variant

Code:
Sub jec()
 Dim ar, i As Long
 ar = Range("J2", Range("J" & Rows.Count).End(xlUp))
  
 With CreateObject("System.Collections.SortedList")
   For i = 1 To UBound(ar)
     .Item(Rnd) = ar(i, 1)
   Next
   For i = 0 To .Count - 1
      ar(i + 1, 1) = .GetByIndex(i)
   Next
 End With

 Range("J2").Resize(i).Value = ar
End Sub
 
Laatst bewerkt:
Voor office 365

Code:
Sub jecc()
 Dim ar
 ar = Range("J2", Range("J" & Rows.Count).End(xlUp))
 With Application
    Range("J2").Resize(UBound(ar)) = .Index(ar, .SortBy(.Sequence(UBound(ar)), .RandArray(UBound(ar))))
 End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan