Simples pesquisa e copia célula usando textbox e find

Question

Oi experts, procuro uma macro simples usando a fun&ccedil;&atilde;o Find (sem verifica&ccedil;&atilde;o de textbox1 em branco)
Desculpem a d&uacute;vida de iniciante, a fun&ccedil;&atilde;o de pesquisa parece complicado

No excel existem 2 planilhas na mesma pasta Plan1 e Plan2

Plan2 possui 3 registros com c&oacute;digo e nome
       A     B
1    cod   nome
2   1212   jos&eacute;
3  1010   jo&atilde;o
4  2323 antonio

Plan1 tem um textbox1...
1. clicando no bot&atilde;o pesquisar, comparar o c&oacute;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&eacute;lula A5 da Plan1

Plan1
       A     B
1 Digite o c&oacute;digo: [textbox1]  [pesquisar]
2
3 Resultado
4   cod   nome
5  1010   jo&atilde;o

Um c&oacute;digo b&aacute;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 &aacute;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.

Answer

As informa&ccedil;&otilde;es est&atilde;o incompletas,  a plan1 cont&eacute;m 1779869184 celulas, especifique o endere&ccedil;o exato, que deseja retornar o resultado.
Ou anexe um modelo com alguns dados ficticios

Edit:

Ok, o 1&ordm; post foi editado e incluido o modelo em anexo.

Answer

[QUOTE=Basole, post: 7936221, member: 908394]As informa&ccedil;&otilde;es est&atilde;o incompletas,  a plan1 cont&eacute;m 1779869184 celulas, especifique o endere&ccedil;o exato, que deseja retornar o resultado.
Ou anexe um modelo com alguns dados ficticios[/QUOTE]

Ok, j&aacute; enviei uma planilha simples

Eu queria a resposta na linha A5 de Plan1

Plan1
     A     B
1 Digite o c&oacute;digo: [textbox] [pesquisar]
2
3 Resultado
4 cod nome
5 1010 jo&atilde;o

Answer

Veja se &eacute; isso que precisa.
Ao digitar o c&oacute;digo no textbox a macro &eacute; executada automaticamente.
Respondido aqui tambem:  https://goo.gl/ptGjRF

Answer

[QUOTE=Basole, post: 7936391, member: 908394]Veja se &eacute; isso que precisa.
Ao digitar o c&oacute;digo no textbox a macro &eacute; executada automaticamente.
Respondido aqui tambem:  https://goo.gl/ptGjRF[/QUOTE]

Com a fun&ccedil;&atilde;o TextBox1_Change() funcionou quando adicionei a declara&ccedil;&atilde;o Dim lr As Integer

Mudei para a fun&ccedil;&atilde;o Bot&atilde;o1_Clique() usando o Plan1.TextBox1.Text n&atilde;o precisou de Dim lr As Integer

Obrigado Basole

Outra d&uacute;vida... se em Plan2 tiver dois registro com mesmo c&oacute;digo, como eu copio os dois registros?

Answer

[QUOTE=liclopes, post: 7936403, member: 679485]Com a fun&ccedil;&atilde;o TextBox1_Change() funcionou quando adicionei a declara&ccedil;&atilde;o Dim lr As Integer
Mudei para a fun&ccedil;&atilde;o Bot&atilde;o1_Clique() usando o Plan1.TextBox1.Text n&atilde;o precisou de Dim lr As Integer
Outra d&uacute;vida... se em Plan2 tiver dois registro com mesmo c&oacute;digo, como eu copio os dois registros?[/QUOTE]
Eu acrescentei 'Option Explicit' no inicio do codigo, depois de testar, desta forma todas as variaveis devem ser necessariamente declaradas.

Sim, fiz as altera&ccedil;&otilde;es solicitadas, e retorna dados com c&oacute;digos repetidos.

Answer

[QUOTE=Basole, post: 7936465, member: 908394]Eu acrescentei 'Option Explicit' no inicio do codigo, depois de testar, desta forma todas as variaveis devem ser necessariamente declaradas.[/QUOTE]
Fez uma pegadinha, n&atilde;o declarou o lr :D

[QUOTE=Basole, post: 7936465, member: 908394]Sim, fiz as altera&ccedil;&otilde;es solicitadas, e retorna dados com c&oacute;digos repetidos.[/QUOTE]
Obrigado Basole, funcionou perfeitamente.

Ferramentas

Mover Tópico