Verificar dado repetidos ao sair da textbox !!

Dirceu Seregatti Soares · 11 de janeiro de 2016

Olá Pessoal.

É possível verificar se um nome ou palavra já consta na coluna da planilha através digitação na textbox pelo procedimento Exit??
Ou seja, ao terminar a digitação e sair da textbox uma msgbox para informa se o nome já consta na listagem.

Assim evitamos de inserir dados em duplicidade.

Fico no aguardo.

Basole · 11 de janeiro de 2016

Use esta funcao abaixo para verificar se ja existe no intervalo:

* cole a funcao em um modulo

Function Verifica_Exist(text As Variant, rCells As Range, stt As Boolean)
  Dim txt As String
  Dim rRange As Range
  Dim SubjCell

  For Each rRange In rCells
    SubjCell = rRange
    txt = text

    If InStr(txt, SubjCell) <> 0 Then
      Verifica_Exist = SubjCell
      stt = True
      Exit For
        End If
  Next rRange

End Function

Segue abaixo um exemplo de utilizacao. você pode tambem inserir o codigo diretamente no evento exit do seu textBox:

Sub teste()
Dim rng As Range
Dim sText As String
Dim stt As Boolean
sText = SuaTextBox.text
Set rng = Sheets("Plan1").Range("B2:B100")
Verifica_Exist sText, rng, stt
If stt = True Then
MsgBox "Ja existe.....", 64, "Atenção"
Exit Sub
Else
' Sua macro
End If
End Sub