Salve mi Chiamo Maurizio o un problema che vorrei risolvere con voi in Excel ; il problema e questo :Su' di un Foglio di Excel o Inserito delle Label e le o Numerate dall' 1 al 20 .
Con questo piccolo programmino volevo Riuscire ad estrarre da queste 20 Label ; solo 10 Numeri estratti a caso .
Ora il programma Funziona benissimo , pero' il problema sta' nel fatto che Io devo sempre interagire con il pulsante di comando Posizionato sul Foglio 2; e Premerlo per dieci Volte.
Ora la Mia Richiesta e Questa non c'e' per caso un Modo di Automatizzare il Tutto ; Magari inserendo una sorta di Timer che possa svolgere al posto mio Tutto quanto , e che si Disattivi quando il Tasto " Foglio2.CmdAvvia.Enabled " diventaEnable (Disattivo) Per L'appunto ! Ringrazio tutti coloro che vorranno darmi una mano in tal senso Sinceri Saluti , A. Maurizio
(N.B) allego File di Prova
Sub CoordinateEstrazioni()
On Error Resume Next
estrazione:
Dim numeroestratto
Randomize
numeroestratto = Int(20 * Rnd + 1)
If NumeroUscito(numeroestratto) = "si'" Then
GoTo estrazione
Else
NumeroUscito(numeroestratto) = "si'"
Cartella = Cartella + 1
I f Cartella = 10 Then Foglio2.CmdAvvia.Enabled = False
Range("A1") = "" & X
End If
Range("A1") = Cartella + 0
Call VisualizzaNumeri
End Sub
Rispondi quotando