ho aggiunto questo pezzo di codice che apre una userform, dove chiede quanti ne vuoi estrarre, io inserisco il numero ma vedo che se metto un numero di più di una cifra non vede la seconda cifra ma solo la prima. Come posso fare se ad esempio io voglio estrarre 100 numeri a caso?
Sempre chiedendo con questa userform.
codice:
Range("A:B").ClearContents

'UserForm2.Show 

Dim x, messaggio, titolo 
' 
messaggio = "SCRIVI IL VALORE DESIDERATO" 
titolo = "ESTRAZIONE DATI" 
x = InputBox(messaggio, titolo) 
If x = "" Then Exit Sub 

nestrazioni = x 


For I = 1 To nestrazioni '5/100*TotNomi'