Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro scelta casuale da elenco senza ripetizioni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro scelta casuale da elenco senza ripetizioni

Postdi DALVI » 10/11/16 16:14

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
DALVI
Utente Junior
 
Post: 13
Iscritto il: 31/05/16 14:18

Sponsor
 

Re: Macro scelta casuale da elenco senza ripetizioni

Postdi Anthony47 » 11/11/16 01:17

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 :D ).

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17656
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro scelta casuale da elenco senza ripetizioni

Postdi DALVI » 13/11/16 18:17

Ciao Anthony47,
beh funziona alla perfezione!!
grazie mille come sempre per la rapido supporto..
DALVI
Utente Junior
 
Post: 13
Iscritto il: 31/05/16 14:18


Torna a Applicazioni Office Windows


Topic correlati a "Macro scelta casuale da elenco senza ripetizioni":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti