TextBox muda cor do valor se intervalo da planilha valor for repetido [RESOLVIDO].

[ludehenrique2cia]

Boa noite a todos!
É possível que o valor da textbox seja alterado se esse valor for duplicado em uma determinada seleção da planilha?
Ex: TextBox1 com valor "x" e na planilha no intervalo exemplo B:5000 a J:5000 o mesmo valor, a textBox muda o cor do valor nela digitado ou carregado pra vermelho.
Como se fosse uma formatação condicional.
Tentei usar a formatação na própria planilha e depois transferir para o TextBox mas com a formatação condicional "valores duplicados" por exemplo fica muito pesado, e quase trava tudo.
Desde já meus agradecimentos!

[Mikel Silveira Fraga]

Lude Henrique, bom dia e seja bem vindo ao fórum.

Você teria um modelo para melhor exemplificar sua necessidade? Sua explicação ficou um pouco confusa.

Ficamos no aguardo.

[ludehenrique2cia]

Tenho um formulário com 40 TextBox que são preenchidas com números de talões retirados pelos funcionários, preciso que se os TextBox quando carregados com dados iguais aos constantes na planilha no intervalo CO ao CS até a linha 5000. acusem isso. mudando a cor do texto ou com ícone tipo validando "ticando".
Formulário:

Formulário.jpg (38.56 KiB) Exibido 6532 vezes

Células da planilha onde são armazenado os dados quando retirados os talões:

Cadastro.jpg (63.69 KiB) Exibido 6532 vezes

Células da planilha onde são armazenados os dados quando os talões são devolvidos:

Baixa.jpg (62.85 KiB) Exibido 6532 vezes

Seria como controlar um talão de cheques, conforme vai se usando as folhas vai inserindo na planilha e quando pesquisado acusa quais folhas já foram usadas.
Espero não ter atrapalhado, não sei nesse momento como explicar de outra forma, Muito Obrigado!

[Mikel Silveira Fraga]

Lude Henrique, boa tarde.

Bem, vou ser muito sincero, continuo não entendendo exatamente o que pretende.

Quando solicitei que fosse enviado um modelo, referia-se ao arquivo que esta utilizando, para entender exatamente o que pretende e como esta tentando fazer. Dessa forma, podemos dar um direcionamento que melhor se aplique a sua necessidade.

Caso o arquivo seja muito grande para ser postado aqui, é possível utilizar serviços nas nuvens como DropBox, Mega, OneDrive ou GoogleDrive, para disponibilizar o arquivo, sem ir contra as regras do fórum.

Fico no aguardo e dúvidas, a disposição.

[netocasaroli]

Se eu entendi direito, faça o seguinte:

Cole o código abaixo em um módulo:

Código: Selecionar todos

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

Essa função retornará Verdadeiro caso o cheque informado seja encontrado.

Depois, chame essa função no evento Change ou AfterUpdate da TextBox (dependendo do seu projeto), 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.

Estou imaginando que funcionará, mas se precisar, faça as alterações necessárias no código para que se adapte ao seu projeto.

[ludehenrique2cia]

Obrigado a todos!
Eu exclui alguns formulários e módulos para ficar mais limpa a planilha e facilitar o entendimento.
Segue link da planilha:
https://www.dropbox.com/s/0vz90m5ro7y8c ... .xlsm?dl=0

Mais uma vez meus agradecimentos!!!!

[ludehenrique2cia]

Esclarecendo a planilha.
Então no Formulário de cadastro e conferencia ao pesquisar o nome do funcionário pelo número do registro, no botão pesquisa é preenchido as TextBox.
E se algum desses TextBox tiver um valor que conste na planilha TabelaAICRR a partir da coluna "AS" então esses ou esse TextBox é destacado. Minha intenção seria colocar o valor mais um ícone após o valor, tipo quando se tica itens em um documento, mas como não achei nada a respeito, poderia ser a alteração de cor do valor mesmo.
Muito obrigado!!!

[ludehenrique2cia]

Muito obrigado Neto Casaroli, mas ainda não consegui adaptar o código, assim que conseguir eu dou um toque.
Obrigado!!!

[ludehenrique2cia]

Não consigo!
Se poder me ajudar, estou fazendo assim:
Private Sub TextAI1_Change()

If TextAI1.Value = "FunctionProcuraCheque" Then

Me.TextAI1.ForeColor = vbGreen
Else

Me.TextAI1.ForeColor = vbRed

End If
End Sub

Estou apanhando faz tempo nisso, pra mim é difícil.

[Lúcio Mauro da Silva]

Lude boa tarde, tudo bem?

O seu projeto VBE está bloqueado, não conseguimos acessar para te auxiliar,

Poste ele novamente desbloqueado.

Pode colocar ele como anexo aqui no forum mesmo, o arquivo é super leve (153 Kb).

Abraço.