Verificar se números são iguais via VBA

[Ingo M P Américo]

Olá Pessoal!

 

Tenho a seguinte linha em uma planilha:

 

 

A parte verde é gerada randomicamente via VBA enquanto a azul é fixa.

Como eu faço para que nenhum dos números (verdes + azuis) se repitam?

 

Estou usando esse VBA:

Sub gerarNumeros()
    '///////// Isso gera 60 número aleatórios e joga na planilha APOIO
    Const nMínimo As Long = 1
    Const nMáximo As Long = 60
    Const strDestino As String = "APOIO!B2:K2"
    
    Dim n As Long
    Dim r As Long
    Dim col As Collection
    
    Randomize Timer
    
    Set col = New Collection
    On Error Resume Next
        Do
            n = Int(Rnd * nMáximo) + nMínimo
            col.Add n, CStr(n)
        Loop Until col.Count = nMáximo
        For n = 1 To nMáximo
            Range(strDestino).Cells(n) = col(n)
        Next n
    On Error GoTo 0
    
'///////// Isso pega os 10 primeiros números e joga parte verde da planilha TABELA COM FECHAMENTO
    
    Sheets("APOIO").Select
    Range("B2:K2").Select
    Selection.Copy
    Sheets("TABELA COM FECHAMENTO").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

Estou mandando a planilha como anexo.

 

FECHAMENTO TABELA TESTE.zip

[Basole]

Eu usei a cont.se para verificar  o que já existe na parte azul, antes de adicionar na coleção (na parte verde)

FECHAMENTO TABELA TESTE_1.zip

[Ingo M P Américo]

@Basole Funcionou perfeitamente.

Pra variar, você mais uma vez salvando minha pele.

Quando vier para Recife, me avisa, pra eu te pagar uma cerveja.

[igorhen1]

Basole. preciso urgentemente conversar com você pra uma ajuda, como faço pra falar com você no privado?

 

A respeito desse exemplo que você usou aqui.

https://www.clubedohardware.com.br/forums/topic/1077543-planilha-com-leitor-de-código-de-barras/

[Patropi]

@igorhen1

 

Para enviar uma mensagem privada para o Basole , basta você clicar no envelope que se encontra na parte superior da página, ao lado do teu nome  --> Nova Mensagem  ==> Em Para: -==> digite Basole

 

Não se esqueça de ciclar em Curtir.

 

[]s