Bom dia tenho uma base de dados que segue o seguinte padrao inicial:
1234/12345
O fato é que preciso na pesquisa que o excel ignore a barra seja ela digitada ou nao no momento do cadastro e da pesquisa
Tenho uma mascara de entrada que exibe a barra se o usuario nao digitar e na celula o valor e recebido com a barra se ele digitar, porem se o usuario nao digitar a celula esta formatada para inseir a barra atraves de formatação personalizada.
Enfim como ignorar a existencia da barra e fazer com que a busca funcione corretamente
No aguardo.
- Home
- >
- Fórum
- >
- Windows, Softwa...
- >
- Suítes de escri...
- >
- Ignorar caractere na text...
A questão é.. a barra está inserida entre os numeros., ou apenas virtual, ou seja na formatação.
Se for a 1ª opção utilize a função Replace. Ex.:
[code=vb]Dim SuaStringPesquisda as String
SuaStringPesquisa = VBA.Replace(TextBox1.text,"/","") [/code]
Caso a o usuario digite a "\" ou não retornará como: 123412345
Click em Curtir se a resposta foi útil.
Marcelo ...se o usuário não digitar a barra a função do basole vai te gerar um erro ... como vc tem um padrão ... 4 números ... 5 números .. o ideal seria vc usar fórmula esquerda e direita ..
= Esquerda(A1;4) & Direita(A1;5)
ou
= concatenar(Esquerda(A1;4);Direita(A1;5))
aí no caso tanto vai fazer o usuário digitar a barra ou não ... sempre vai te dar os quatro caracteres da esquerda && os 5 da direita
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
Vamos la Basole deu quase correto, pq tenho duas condições a primeira é carregar os dados em uma listbox e funciona se a digitação for igual ao que esta cadastrado na planilha, porem tenho que na consulta carregar uma imagem que nao aceita a / no nome entao da erro.
Da forma que indicou carrega a imagem mas nao esta carregando a listbox
Mauricio agradeço sua intenção mas acho que vc nao entendeu estou fazendo a pesquisa em um formulario e nao na planilha.
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
velho ... vc tem a inserção de dados ... 123412345 ... a máscara é literalmente uma máscara ... só serve para o usuário ver ... a princípio o q o usuário vai digitar é só números .... vc proibe ele de digitar a / ... a partir daí vc grava os dados q ele digitou já no formato 123412345
seria como ele digitar o CPF na mascara 000.000.000/00.
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
Acho que identifiquei o problema na hora do cadastro o usuario digita por exemplo 123412345 e o vba insere a barra na textbox ate ae esta do jeito que preciso que funcione porem na hora de gravar ele grava a barra e isso da erro na pesquisa.
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Vamos la Basole deu quase correto, pq tenho duas condições a primeira é carregar os dados em uma listbox e funciona se a digitação for igual ao que esta cadastrado na planilha, porem tenho que na consulta carregar uma imagem que nao aceita a / no nome entao da erro.
É dificil opinar sem ver seu arquivo, mas experimente, um tratamento para cada condição.
Quando for carregar a imagem, use o replace caso contrario sem.
Click em Curtir se a resposta foi útil.
Marcelo G Prudencio disse:
então velho ... já q vc já fez a macro da máscara ... agora usa o raplace e acaba com a agonia
aqui eu fiz o texbox com a máscara no formulario
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.MaxLength = 10
Select Case KeyAscii
Case 8
Case 13: SendKeys "{TAB}"
Case 48 To 57
If TextBox1.SelStart = 4 Then TextBox1.SelText = "/"
Case Else: KeyAscii = 0
End Select
End Sub
no botão que grava o textbox coloquei
Private Sub CommandButton1_Click()
Range("A1".Value = TextBox1.Value
Range("A1".Replace "/", ""
End Sub
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
Basole obrigado mais uma vez
Mauricio obrigado tambem e dessa vez funcionou perfeitamente como esperado.
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Vc usou o replace mesmo ???
" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
Sim sua sugestao atendeu como esperado.
Obrigado de novo.
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.