Sortere kolonne i excel tilfældigt og export herefter til CSV fil

Hvor mange sms-nr er der tale om?

Ca. 130

Sker der en registrering på de mobilnr, som får ekstra-vagter m.v. - så kunne man jo lade disse gå bag i køen.

Ved "ryst posen" - kan man jo godt risikere gengangere mindre mindre man tager højde for dette.

Men der kan skrives VBA-kode, der kan dette...

Ryst psoen er bedre end det der sker i dag. Det med at flytte nummer bag i køen er ikke en løsning, det skal være ryst posen. Behøver ikke være Excel kan også være andet...

Excel er ok - er begyndt på en skitse ...

(Hvad sker der idag - hvis man må spørge)

VBA-koden anbringes under ark med mobilNr (Højreklik på ark / vælg Vis Programkode) - Alt+F8 / afspil vist makro - eller forbind denne med en knap

Const CsvFilNavn = "SMScsv.txt"                    'kan justeres
Dim filSti As String                                'aktuelle mappe

Const smsKol1 = 3
Dim randomNr As Integer, nrListe() As Integer
Dim antalRæk As Long, antalKol As Long
Dim ræk As Long, smsLinje As String
Public Sub sorterSMS()
Dim ræk
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
    filSti = findSti
   
    ReDim nrListe(antalRæk)
   
    Application.ScreenUpdating = False
   
    For ræk = 2 To antalRæk
        randomNr = trækEtNr
        Cells(ræk, 3) = randomNr
    Next ræk
   
Rem Sorter iflg. kolonne C
    Range("A1:C" & CStr(antalRæk)).Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Rem overfør til CSV.fil
    smsLinje = ""
    Open filSti + CsvFilNavn For Output As #1
    For ræk = 2 To antalRæk
        smsLinje = smsLinje + CStr(Cells(ræk, 2)) & ";"
    Next ræk
       
    Print #1, smsLinje
    Close #1
   
    Application.ScreenUpdating = True
End Sub
Private Function findSti()
    findSti = ActiveWorkbook.Path
    If Right(findSti, 1) <> "\" Then
        findSti = findSti + "\"
    End If
   
End Function
Private Function trækEtNr() As Long
Dim flag As Boolean
    flag = False
   
    While flag = False
        trækEtNr = Int((antalRæk * Rnd) + 1)
        If nrListe(trækEtNr) = 0 Then
            nrListe(trækEtNr) = trækEtNr
            flag = True
        End If
    Wend
End Function

I dag, mobilnr. rækkefølge er den samme hvergang. DVS. det er de samme ansatte som får SMS først - SMS system sender åbenbart 1 SMS adgangen.

Ok - hvis det er ønskeligt - kan du få tilsendt min filen med ovennævnte kode - blot send en mail - @-adr. under profil.

Et svar, hvis tiden er til det...

Super, well done! Kunne du kort beskrive hvad koden gør - mest omkring hvordan tilfældigheden er....? TAK!

Super, well done! Kunne du kort beskrive hvad koden gør - mest omkring hvordan tilfældigheden er....? TAK!