Simples pesquisa e copia célula usando textbox e find

Simples pesquisa e copia célula usando textbox e find#29635

Por liclopes - 23 Jan 2018 às 15:34

- 23 Jan 2018 às 15:34 #29635

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 foi colado em Plan1

Plan1
A B
1 Digite o código: [ ] [pesquisar]
2
3 Resultado
4 cod nome
5 1010 joão

Um código básico que pesquisei e to tentando entender

Código: Selecionar todos

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.

Você não está autorizado a ver ou baixar esse anexo.

Editado pela última vez por liclopes em 23 Jan 2018 às 18:00, em um total de 2 vezes.

Simples pesquisa e copia célula usando textbox e find#29636

Por gfranco - 23 Jan 2018 às 15:38

- 23 Jan 2018 às 15:38 #29636

Boa tarde.
Sugiro postar um modelo de sua planilha.
Pode ser com dados fictícios MAS MESMA ESTRUTURA.
E uma demonstração manual do resultado esperado.

Espero ter ajudado.
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo