Não tenho certeza de haver entendido, mas experimente, e veja se atende:
Na rotina: Lotofacil altere
InsereNumerosAleatoriosSemDuplicados 18, Range("L6")
e na rotina : InsereNumerosAleatoriosSemDuplicados altere
Cell.Offset(0, i - 1) = j
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/07/2018 7:40 am