Em um Formulário de cadastro ao clicar em pesquisar as textbox são preenchidas. E se algum desses TextBox tiver um valor que conste na plan1 a partir da coluna "AS" então esse TextBox tem o texto destacado (Ex. Verde). Consegui um código mas não esta dando certo.
No módulo:
Function ProcuraCheque(Cheque As String) As Boolean
Dim Intervalo, Celula As Range
Set Intervalo = Planilha1.Range("A1:B10") 'Informe aqui o intervalo onde estão os dados
For Each Celula In Intervalo
If Celula.Value = Cheque Then
ProcuraCheque = True 'Verdadeiro se encontrado
Exit For
End If
Next Celula
End Function
Não estou conseguindo chamr a função no evento Change ou AfterUpdate da TextBox, passando na função o valor da TextBox (tipo TextBox1.Value...). Caso ela seja verdadeira (If ProcuraCheque(Textbox1.Value)=True), o propriedade ForeColor da TextBox assume o valor vbRed, e se for Falso, vbBlack.
Private Sub TextAI1_Change()
If TextAI1.Value = "FunctionProcuraCheque" Then
Me.TextAI1.ForeColor = &HFF0000
Else
Me.TextAI1.ForeColor = &HFF&
End If
End Sub