Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
InputBox com varios...
 
Notifications
Clear all

InputBox com varios campos

 
2024 - VBA & Macros
8 Posts
1 Usuários
0 Reactions
961 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

To pegando códigos por aqui e tentando montar essa planilha, esbarrei nus impecilhos aqui.
]

If Search = "" Then
        Prompt = "Procurar: " & vbNewLine & vbNewLine & Path
        Title = "Critério de Busca"
        
       
        Search = InputBox(Prompt, Title, "Digite o Valor a Procurar")
        If Search = "" Then
            GoTo Canceled
        End If
    End If

1-Pra inputBox existe como ter a opção de digitar mais criterios pra busca com a opção E e OU (search1 e/ou search2 e/ou search3?

2-A formula usada em B's foi :ESQUERDA(A8;6) ,(ex de A8 - 228775!B8 ou 70406!B8) acontece que no segundo caso a fórmula teria que ser ESQUERDA(A8;5) , pois preciso somente dos numeros.

 
Postado : 06/10/2015 1:40 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Até onde sei o método find utiliza uma unica variável por vez. talvez possa "ampliar" essa procura utilizando ao invez do inputbox, uma area de planilha, onde será digitados os valores a ser pesquisados e efetuar um loop de leitura/procura.
Para a segunda utilize a formula assim:=ESQUERDA(A8;LOCALIZAR("!";A8;1)-1)

 
Postado : 07/10/2015 8:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Até onde sei o método find utiliza uma unica variável por vez. talvez possa "ampliar" essa procura utilizando ao invez do inputbox, uma area de planilha, onde será digitados os valores a ser pesquisados e efetuar um loop de leitura/procura.
Para a segunda utilize a formula assim:=ESQUERDA(A8;LOCALIZAR("!";A8;1)-1)

Muito obrigado Reinaldo; a dúvida 2 ta resolvida, PERFEITO.
A duvida 1 não sei nem por onde começar , rsrsrs , não entendo muito, alias nada , o que faço é pegar os códigos aqui e ir adaptando, poderia me dar um inicio?

 
Postado : 07/10/2015 11:06 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Digite nas células em amarelo

 
Postado : 07/10/2015 11:19 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

caraca devo ser parente da dilma. Não entendi ainda,digitei e não mudou nada.

 
Postado : 07/10/2015 1:03 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Em E2 digite por exemplo:AVES (apague as demais) e clique em Buscar, e veja o retorno
Depois Em E3 digite PARDAL e clique em buscar,

 
Postado : 08/10/2015 4:32 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado e desculpe a ignorancia.
É isto que preciso , mas teria como a busca ao inves de ser na coluna , ser na linha?
For x = 3 To 3
Search = Cells(x, 5).Value
pelo que entendi onde tem esse for especifica a linha e o search a coluna , eu queria procurar tudo que for digitado de A3:Q3 e que quando a busca for feita por exemplo de 4 critérios e pra 1 ou mais criterios não houver resultado me de uma msgbox . tipo :"criterio X , valor não encontrado".

 
Postado : 08/10/2015 5:27 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Produrar por linha e simples, basta "inverter" a variavel x que está para linha, e coloca-la na coluna
ficaria ...cells(3,x) --> onde 3 representa a linha, no exemplo linha 1, e x a coluna, no For x=1 to 17.
Quanto ao retorno, e preciso avaliar melhor a rotina.
Vou ver se consigo um tempo para isso.

 
Postado : 08/10/2015 10:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico