Garuzzi, não tenho como baixar seu arquivo no momento, mas de uma olhada no link : http://www.exceldoseujeito.com.br/2012/ ... elo-excel/
, pelo que li, acredito que com alguns ajustes consiga o que pretende.

Um exemplo, em uma analise rápida do que interpretei do site indicado :
Acrescente uma nova Variavel de nome :

Private totalDeItensDaListaPorcentual As Integer

Depois ajuste a rotina conforme abaixo :
Aqui calculamos os 10% da qde que se encontra no range definido na rotina "Sub SortearTimes()"

Public Property Let setListaGeral(value As Range)
    Set listaGeral = value
    totalDeItensDaLista = listaGeral.Cells.Count
    
    totalDeItensDaListaPorcentual = totalDeItensDaLista * 10 / 100

End Property

Depois, na Function :"Private Function obterNovoItem() As Integer" altere a linha :
If totalSorteado >= totalDeItensDaLista Then - para
If totalSorteado >= totalDeItensDaListaPorcentual Then
e acrescente apos a instrução "numEscolhidoTemp = 0" um reset da contagem, ou seja a instrução : "totalSorteado = 0"
Ficando o inicio da Function, assim :

Private Function obterNovoItem() As Integer
Dim numEscolhidoTemp As Integer
    
    'Verifica se ainda há jogadores disponíveis para sortear
    If totalSorteado >= totalDeItensDaListaPorcentual Then

        'Se não existir, retorna 0 (zero)
        numEscolhidoTemp = 0
        
        totalSorteado = 0
    Else
..................

Com estas alterações teremos o percentual, e logicamente temos de ajustar ainda a saida do resultado, mais isto fica pra depois, agora estou bem apurado, mas procure assimilar o acima e na sequencia sempre temos outros colegas para ajudar.

abraços

Olá Mauro.

Obrigado pelo apoio, consegui ajustar o código. Mas ainda possuo algumas dúvidas.

Como farei para que o sorteio seja realizado em listas diferentes, como havia comentado possuo uma lista por aba, e para cada aba, é necessário que seja realizado um sorteio com base em 10% do efetivo total.

É possível que o resultado seja alcoado em uma nova aba? E que esta aba seja bloqueada, inibindo alterações?

OBrigado.

Garuzzi, vamos procurar resolver por parte.

Comecei a desenvolver um modelo com base no exemplo que indiquei, mas como só da para fazer nos momentos de tempo livre, talvez demore um pouco mais, e se der mais tarde anexo o que já fiz.

1º ) Cheguei a ver seu arquivo e vi que tem 3 abas com relações de nomes e matriculas que se repetem, então pergunto :
O sorteio de 10% será no Total de cada aba, ou a soma de total de todas as abas ? Se sim, teremos que evitar as matriculas repetidas ?

O Resultado do sorteio terá de ser em uma única aba, ou uma aba para cada relação (MADEIRA - INSUMOS - COMBOIO) ?

[]s

Obrigado Mauro!

Respondendo seu questionamento:

- O sorteio será de 10% do total de cada aba;
- O sorteio poderá retornar somente em uma aba, desde que sempre que haja um novo sorteio, seja criado uma nova aba.
- De fato não podemos ter matrículas repetidas.

Obrigado.

Garuzzi,veja se o modelo que desenvolvi até o momento está de acordo.

Sortear Funcionários

Adaptação do modelo postado no site abaixo:
http://www.exceldoseujeito.com.br/2012/ ... elo-excel/

Qualquer duvida retorne.

abraços

Mauro,

Deu certo! Ficou ótimo. Vou dar uma estudada na planilha.

Muito obrigado pelo apoio, e desculpe a demora em retorno.

Abs,