Olá, pessoal!
Pretendo adaptar as fórmulas existentes numa coluna E para o sorteio de nomes, desde que não repita nomes fixos em outra coluna G referente ao mesmo bairro. conforme planilha anexa:
Sorteio com fórmulas (atualizada)
Grato pela atenção!
Orlando Souza
8)
Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet
Dim oCell As Object
oCell = oSheet.getCellByPosition(10, 129)
Do Until oCell.Value = 0
ThisComponent.calculateAll()
WAIT 0
Loop
FONTE: Ask LibreOffice
Ola @Orlando, não é uma solução bonita, mas resolve até uma solução melhor.
Na coluna K, coloquei um contador de diferentes, e na macro, acrescentei no final se o campo "Conferente" for diferente de 128, é acionada a macro novamente.
Arquivo editado, sem planilha extra.
ATENÇÂO:: Para dar mais detalhes a sua pergunta, use 
na pergunta ou 
abaixo. Grato.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha 
a esquerda da resposta, para finalizar a pergunta.
A ideia é boa, mas a macro acrescentada está gerando um loop infinito com travamento na planilha.
abç.
Ok @Orlando, Tudo depende de sorte, os testes que fiz variou de 2min e 25 seg. a 5min e 40seg. rodei 6 vezes.
vlw a intenção, @Gilberto Schiavinatto! Mas é muito tempo para aguardar o sorteio.
Não seria mais rápido se conseguíssemos uma
fórmula nas linhas de coluna K com resultado "1", quando
tivessem nomes iguais em mesmo bairro nas cols I e J; e
resultado "" (cél vazia), quando isso não acontecesse?
Incluindo uma macro enxuta para realizar um loop do sorteio
até que a soma nas linhas da col K ficassem "" (cél vazia).
@Orlando, Vide Arquivo teste2 na resposta acima a coluna M tem 1 para Bairro com duplicata.
No 2o. teste também o loop da macro é lento.
Acho que não é possível deixa-lo instantâneo como na combinação das teclas de atalho Ctrl+Shift+F9
Obrigado pela atenção, @Gilberto Schiavinatto
:)
Ops... Só gerei o 1 na coluna M, não alterei a macro. Não tenho conhecimento suficiente para altera-la conforme mencionou acima...
Sorteio em +/- 5 segundos, tá bom, vide acima: Arquivo teste3
Criei uma planilha para sorteio, depois só linkei com a tabela.
E uma macro simples de recalculo.
Não entendi, você testou o terceiro ?? Menos que 5 segundos .................
Perguntadas: 2019-10-01 03:19:40 +0100
Lidas: 325 vezes
Última atualização: Oct 13 '19
Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.
