Página 1 de 1

PESQUISA CASE INSENSITIVE

Enviado: 22 Set 2018 às 15:46
por Zema
Boa tarde Galera,

Preciso da ajuda de vocês para a seguinte dúvida:
Tenho uma Agenda de Telefones em Excel VBA, o banco de dados é a própria planilha, e que os registros dos dados foram inseridos de forma que quando digito um nome para cadastrar na Agenda as primeiras letras dos nomes e sobrenomes automaticamente passam para maiúsculas as demais são minúsculas. Preciso de um código de pesquisa que eu possa digitar o nome a ser pesquisado tudo em minúsculas e ele busque os nomes cadastrados com iniciais em maiúsculas. Vou postar abaixo o código que estou usando no botão filtrar da minha Agenda. Essa Agenda que anexei abaixo está buscando legal o nome pesquisado só que tenho que digitar no txtbox da pesquisa a primeira letra maiúscula quero digitar tudo em letras minúsculas e ele buscar, pois já vi várias situações no youtube funcionando dessa forma em algumas vídeo aulas, mas pra mim nenhuma delas consegui aplicar no meu projeto.

Desde já

Obrigado

Zema

PESQUISA CASE INSENSITIVE

Enviado: 22 Set 2018 às 18:20
por ExcelFlex
Me desculpe mas não li o seu código, pelo enunciado acho que você precisa do seguinte: Se você puder postar o arquivo fica mais fácil.
Código: Selecionar todos
if LCase(txtNome.Pesquisa) = LCase(Cell(numLin, numCol)) then
   'comparacao de maiúsculas com minúsculas executada 
End if

PESQUISA CASE INSENSITIVE

Enviado: 22 Set 2018 às 19:39
por Zema
Aí Excel Flex, vai o arquivo

Re: PESQUISA CASE INSENSITIVE

Enviado: 23 Set 2018 às 11:06
por Reinaldo
Alterado apenas na pesquisa por -->nome<--, alteração apenas na montagem da clausura "Where"; veja se atende (se atender deve ser extendida para as demais pesquisas pretendida)
Agenda de Telefones1.xlsm
Cross post https://www.tomasvasquez.com.br/forum/v ... 603#p25603

Re: PESQUISA CASE INSENSITIVE - (RESOLVIDO)

Enviado: 23 Set 2018 às 14:36
por Zema
Valeu Reinaldo, muito bom. Resolveu o problema e deu tudo certinho. Era o que eu precisava pro meu projeto. Obrigado

Abraço
Zema