Notifications
Clear all

Erro amostral

7 Posts
1 Usuários
0 Reactions
915 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caros,

Novamente recorro ao fórum para me auxiliarem na criação de uma planilha conforme indicado abaixo:

No arquivo em anexo, temos três abas, cada uma com sua respectiva lista de "funcionários".
Necessito de uma MACRO que sorteie 10% do total de funcionários de cada aba, retornando a linha com os dados dos funcionários sorteados em uma nova aba, esta aba deve ter como titulo a data do sorteio.

A aba com as informações do sorteio deve conter uma senha para que as informações não sejam alteradas.

Lembro que sempre poderá haver um novo sorteio, então haverá a criação de mais abas.

Consegue me ajudar?

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/03/2015 11:36 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/03/2015 1:36 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/03/2015 1:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/03/2015 6:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/03/2015 7:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/04/2015 10:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro,

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

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

Abs,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/04/2015 2:04 pm