Macro scelta casuale da elenco senza ripetizioni

[DALVI]

Ciao a tutti,

spero di non aprire un argomento già discusso...ho già verificato ma non trovo un topic che mi aiuti.
Avrei necessità di creare una macro che mi permetta di estrarre CASUALMENTE da un elenco di nomi contenuto (supponiamo in D10:D200) 10 di questi e me li scriva in H2:H11. Preciso che in questo elenco potrebbero esserci delle celle vuote, pertanto mi deve selezionare (casualmente) solo 10 celle che contengano il testo.
Sarebbe però necessario che la macro richieda una password nel momento in cui clicco il pulsante per attivarla.
Qualcuno potrebbe gentilmente aiutarmi??

grazie

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Sub acaso()
Dim Lista As String, Dest As String, myInd As Long, numerO As Long, rndCand
Dim dArea As Range, myTim As Single
'
Lista = "D10:D200"      '<<< L'intervallo con i Nominativi
Dest = "H2"             '<<< L'area di copia (inizio)
numerO = 18             '<<< Il numero di dati da estrarre
'
rispo = Application.InputBox("Password??")
If rispo <> "segreta" Then Exit Sub
Set dArea = Range(Dest).Resize(numerO, 1)
dArea.ClearContents
myTim = Timer
Do While myInd < numerO
    rndCand = Range(Lista).Range("A1").Offset(Int(Rnd * Range(Lista).Rows.Count), 0)
    If Application.WorksheetFunction.CountIf(dArea, rndCand) = 0 And rndCand <> "" Then
        Range(Dest).Offset(myInd, 0) = rndCand
        myInd = myInd + 1
    End If
If myTim + 5 < Timer Then Exit Do
Loop
Debug.Print Timer - myTim
End Sub


Mettila in un Modulo standard del vba (es Modulo1); le righe marcate <<< vanno personalizzate come da commento.
La password e' segreta (da tenere segretissima ).

Ciao

[DALVI]

Ciao Anthony47,
beh funziona alla perfezione!!
grazie mille come sempre per la rapido supporto..