Boa noite a todos,
Gostaria de saber se há possibilidade : De num quadro de diverso números estipulados ( com estes números ) , criar um botao que assim que acionado escolheria de forma aleatório os números ( por exemplo 06) e destacasse , toda vez que acionasse o botao . Fiz uma planilhas para terem uma ideia .( em anexo)
Se pudessem me ajudar ficarei muito grato...
Boa Noite jau288,
Estou na dúvida sobre o que você necessita.
Você quer gerar uma tabela inteiramente nova de números, sortear (marcar em amarelo) alguns números (quantos? ) entre 1 e 77 ou dado os valores da tabela sortear seis(?) números?
No que brevemente entendi, montei duas macros. Uma no módulo 1 gera uma tabela aleatória de números entre 0 e 100 na "Planilha 2".
A macro no módulo 3, marca até 6 números de 1 a 77 que estão presente na tabela da "Planilha 1".
Veja se ajuda no seu caso.
Caso não atenda sua necessidade, explique mais sobre o que você necessita.
att,
Ola Bruno, e tipo a planilha 1 (você me envio) só que quanto ao "sorteio" tem de ser 06 por vez que aciona toda vez, e ele apresenta outros "sorteios" tipo com 3, 4 , 5 e teria que ser somente 6.
Como fazer esta correção?
Obrigado pela atenção...
Veja se ajuda.
Sub GeraNúmeros()
Dim vt As New Collection, i As Long, r As Long, n As Range
[B5:I9].Interior.Color = xlNone
While vt.Count < 6
r = (77 - 1) * Rnd() + 1
If Application.CountIf([B5:I9], r) > 0 Then
On Error Resume Next
vt.Add r, CStr(r)
On Error GoTo 0
End If
Wend
For i = 1 To vt.Count
Set n = [B5:I9].Find(vt(i), after:=[B5], _
SearchOrder:=xlByRows, LookAt:=xlWhole)
n.Interior.ColorIndex = 6
Next i
End Sub
Osvaldo
Ola Osvaldo, muito obrigado pela colaboração e ajuda , ficou como eu queria.
Obs:
Obrigado a Bruno e Osvaldo pela atenção.