Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#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.
#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.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord