Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Eli Lopes

Simples pesquisa e copia de célula usando textbox e find

Mensagem Recomendada

Oi experts, procuro uma macro simples usando a função Find (sem verificação de textbox1 em branco)
Desculpem a dúvida de iniciante, a função de pesquisa parece complicado
 
No excel existem 2 planilhas na mesma pasta Plan1 e Plan2
 
Plan2 possui 3 registros com código e nome
       A     B
1    cod   nome
2   1212   josé
3  1010   joão
4  2323 antonio
 
Plan1 tem um textbox1...
1. clicando no botão pesquisar, comparar o código digitado no textbox1 com os registro em Plan2
2. Copiar o resultado em Plan1
 
Por exemplo, no textbox1 foi digitado 1010, foi pesquisado na Plan2 e o resultado seria colado na célula A5 da Plan1
 
Plan1
       A     B
1 Digite o código: [textbox1]  [pesquisar]
2
3 Resultado
4   cod   nome
5  1010   joão
 
Um código básico que pesquisei e to tentando entender
Sub Procura()	  Dim procurado As Interger	  procurado = TextBox1.Value	 	    For i = 1 To QuantPlanilhas Step 1	        'Seleciona toda a área da planilha	        With Worksheets(i).Range("A:IV")	            Set c = .Find(procurado, LookIn:=xlValues)	 	            Sheets("Plan2").Range("A5") = Sheets("Plan2").Cells(x,"A")	        Sheets("Plan2").Range("A6") = Sheets("Plan2").Cells(x,"A")	
 
Obrigado.

Macro de pesquisa simples.xlsm

Compartilhar este post


Link para o post
Compartilhar em outros sites

Veja se é isso que precisa.
Ao digitar o código no textbox a macro é executada automaticamente.

Respondido aqui também: https://goo.gl/ptGjRF

 

Macro_de_pesquisa_simples_1.xlsm

Editado por Basole

* Dê retorno.  

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...