Logo Hardware.com.br
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas

[Resolvido] Ignorar caractere na textbox

#1 Por Marcelo G Pr... 30/11/2016 - 08:25
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.
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#2 Por Basole
30/11/2016 - 09:48
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. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Mauriciodez
Mauriciodez Highlander Registrado
4.9K Mensagens 1.6K Curtidas
#3 Por Mauriciodez
30/11/2016 - 12:34
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 )"
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#4 Por Marcelo G Pr...
30/11/2016 - 13:59
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.
Marcelo Prudencio
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.
Mauriciodez
Mauriciodez Highlander Registrado
4.9K Mensagens 1.6K Curtidas
#5 Por Mauriciodez
30/11/2016 - 14:29
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 )"
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#6 Por Marcelo G Pr...
30/11/2016 - 17:16
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.
Marcelo Prudencio
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.
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#7 Por Basole
30/11/2016 - 17:51
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. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Mauriciodez
Mauriciodez Highlander Registrado
4.9K Mensagens 1.6K Curtidas
#8 Por Mauriciodez
30/11/2016 - 19:11
Marcelo G Prudencio disse:
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.


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&quot.Value = TextBox1.Value
Range("A1&quot.Replace "/", ""
End Sub


" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal