none
Códio VBA buscar valor em uma célula alterável RRS feed

  • Pergunta

  • Possuo o Código VBA abaixo e gostaria de saber se é possível buscar o número contido na linha: "Const nMáximo As Long = 81" em uma célula da planilha. Esta célula sofreria variações conforme o número de itens que eu tiver em uma listagem.

    O objetivo é NÃO ter que precisar entrar e editar o Código VBA toda vez que alterar a quantidade de ítens da listagem.

    -------------------------------------------------------------

    Sub GeraNúmAleatSemRepetir()

    Const nMínimo As Long = 1
    Const nMáximo As Long = 81
    Const strDestino As String = "A5:U21"
    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
    End Sub

    ----------------------------------------------------------------

    Obrigado!!!

    quinta-feira, 9 de fevereiro de 2017 01:14

Todas as Respostas

  • Logo, nMáximo não pode ser uma constante, deve ser uma variável, concorda?

    Sub GeraNúmAleatSemRepetir()
        Const nMínimo As Long = 1
        Const strDestino As String = "A5:U21"
        
        Dim nMáximo As Long
        Dim n As Long
        Dim r As Long
        Dim col As Collection
    
        'Em qual célula você irá colocar o valor desejado?
        nMáximo = Range("A1")
    
        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
    End Sub
    
    
    


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    quinta-feira, 9 de fevereiro de 2017 22:41
    Moderador