Ciao, il file in oggetto mischia una serie di stringhe, tu invece vuoi l'estrazione di una singola stringa da un foglio diverso.
Ti ho creato questa UDF, funziona con la versione 2007-2010, ecco il discorso della versione, i comandi sono differenti, e ci sono più funzioni.
Function CASUALS(rng As Range, fg As Variant)
Dim n As Long, r As Long, sh As Worksheet
Set sh = Worksheets(fg)
n = WorksheetFunction.CountA(rng)
r = WorksheetFunction.RandBetween(1, n)
CASUALS = sh.Cells(r, 1)
End Function
come funziona, nella cella dove vuoi la stringa casuale scrivi
=casuals(Foglio1!A1:A45;1)
Dove "Foglio1!A1:A45" è il range delle stringhe ed importante bisogna inserire il Foglio in numero, 1-2-3-etc...dove sono i dati da estrarre.
ed avrai la stringa casuale nella cella.
devi copiare il Codice in un modulo e nient'altro.
Si potrebbe anche perfezionare ulteriormente.
Ciao By Sal
[Modificato da by sal 27/05/2012 07:03]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui