Simples pesquisa e copia célula usando textbox e find
Enviado: 23 Jan 2018 às 15:34
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
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
Obrigado.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")