none
VBA - PROCURAR UM VALOR DUPLICADO EM UMA COLUNA RRS feed

  • Pergunta

  • Quando Insere o cod. verifica se há um codigo já existente na coluna e reportar uma msgbox " Codigo Existente " .

    Por Exemplo 

    Se eu tentar cadastrar a mesma pessoa no sistema , ele verifica que aquele nome já existe e me fala que esse nome já foi cadastrado e preenche a form com os dados . 

    Obrigado ! 

    domingo, 8 de março de 2015 05:10

Respostas

  • Sub Exemplo()
        Dim lRow As Long
        
        lRow = GetMatchRow("Felipe", Columns("A"))
        If lRow > 0 Then
            MsgBox "Registro já existe na coluna A."
        Else
            MsgBox "Registro não existe na coluna A."
        End If
        
    End Sub
    
    Public Function GetMatchRow(searchValue As Variant, _
                                searchArray As Variant) As Long
      'This function returns 0 if searchValue is not on searchArray.
      
      Dim element As Long
    
      On Error Resume Next
      element = WorksheetFunction.Match(CDbl(searchValue), searchArray, 0)
      If element = 0 Then element = WorksheetFunction.Match(CStr(searchValue), searchArray, 0)
      
      GetMatchRow = element
    End Function
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 9 de março de 2015 13:57
    Moderador