| | Post: 1 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
  03/06/2020 13:23 | |
Salve a tutti,
tramite questo forum e quindi il vostro aiuto ho risolto il problema di estrazione casuale di nomi senza ripetizione, ho la necessità di creare una colonna d'appoggio nella quale memorizzare le estrazioni fatte fino a un certo punto, qualcuno può aiutarmi a trovare una soluzione?
Grazie mille anticipatamente [Modificato da Carla.68 03/06/2020 14:26] |
|
| | Post: 4.415 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 13:54 | |
Allega un file di esempio con dati e risultato desiderato inserito a mano.
Alfredo |
| | Post: 1 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 14:31 | |
Grazie alfrimpa, Alfredo, non riesco a capire se sono riuscita ad allegare il file di prova.
Grazie per la disponibilià |
| | Post: 4.416 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 14:58 | |
Il file lo hai allegato ma sono io che non sono riuscito a capire quello che vuoi fare.
Puoi spiegarlo dettagliatamente riferendoti al file?
Alfredo |
| | Post: 2 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 15:22 | |
Ho un elenco di nomi, nel primo foglio;
Eseguo la macro di estrazione nome, nel secondo foglio, contestualmente la macro mi cancella il nome estratto, per non estrarlo nuovamente;
Nel terzo foglio mi occorrerebbe, in ordine di estrazione, i nomi estratti, cioè l'estratto alla 1° estrazione, alla seconda e così via. |
| | Post: 5.936 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 03/06/2020 15:55 | |
Ciao L'estrazione deve essere casuale?
Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif) se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 3 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 15:57 | |
Ciao,estrazione casuale senza ripetizione.
Grazie |
| | Post: 4.417 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 17:31 | |
Io non so se ho capito bene
Prova questa macro
vb Sub Estrazione()
Dim ur As Long
Dim lr As Long
Dim tbl As Range
Dim num As String
Dim cas As Integer
Application.ScreenUpdating = False
ur = Sheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Row
lr = Sheets("Estrazioni").Cells(Rows.Count, 2).End(xlUp).Row
Set tbl = Sheets("Foglio1").Range("a2:b" & ur)
cas = WorksheetFunction.RandBetween(1, WorksheetFunction.CountA(Sheets("Foglio1").Range("a2:a" & ur)))
num = WorksheetFunction.VLookup(cas, Sheets("Foglio1").Range("a2:b" & ur), 2, False)
Sheets("Estrazioni").Cells(lr + 1, 2).Value = num
Sheets("Foglio1").Select
Sheets("Foglio1").Range("a" & cas + 1).EntireRow.Delete
Sheets("Estrazioni").Select
Application.ScreenUpdating = True
End Sub
Alfredo |
| | Post: 4 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 18:42 | |
Mi da errore runtime '1004,, non capisco i motivi. |
| | Post: 4.418 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 19:35 | |
Mah io prima di postarla l'ho provata e non ho avuto errori.
Allega il file con la macro.
Alfredo |
| | Post: 5 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 19:51 | |
Non riesco a capire, scusami, il file che avevo allegato già conteneva una macro, ho aggiunto quella che hai postato.
La macro tua continua a darmi errore. |
| | Post: 4.419 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 20:08 | |
Scusami Carla ho dimenticato di dire una cosa importante.
Sul Foglio1 in colonna A numera (da 1 in poi) le prove che sono in colonna B e riprova a rieseguire la macro
Alfredo |
| | Post: 6 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 20:48 | |
Alfredo, niente non riesco a capire l'errore, avevo compreso che i dati dovevano essere inseriti in foglio 1 da A1 in poi, ma continua a darmi errore e non capisco. |
| | Post: 4.420 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 03/06/2020 21:09 | |
Domani ti allego il file.
Alfredo |
| | Post: 7 | Registrato il: 02/06/2020
| Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 03/06/2020 21:19 | |
Ti ringrazio.
A domani, buona serata.
Carla |
|
|
|
|