Olá Pessoal.
Gostaria de uma dica, pois tenho uma planilha com 10 abas de cadastro queria na PLan1 criar uma macro que ao digitar a matricula do funcionário a macro procure e retorne qual planilha (aba) encontra-se a matrícula seguida do nome.
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro Procura
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Seg Ago 15, 2011 12:38 pm
Re: Macro Procura
Boa tarde,
Veja se este código ajuda:
O código deve ser adaptado à sua necessidade.
Abraço
Veja se este código ajuda:
Código: Selecionar todos
Sub Procura()
Dim Matr As String
Dim i As Integer
'Armazena a matrícula da célula A1 na variável "Matr"
Matr = Sheets("Plan1").[A1].Value
'Apaga o intervalo "B1:C1" onde serão colocados o Nome e a Planilha
[B1:C1].ClearContents
'Percorre as planilhas 2 a 11 (Plan2 a Plan11)
For i = 2 To 11
'Define o intervalo de busca como a região adjacente à célula A1 de cada planilha
Set Intervalo = Sheets(i).[A1].CurrentRegion
'Verifica se a matrícula consta do intervalo
If WorksheetFunction.CountIf(Intervalo.Columns(1), Matr) > 0 Then
'Em caso positivo retorna o nome que está na coluna "B" e o armazena em "B1"
'da primeira planilha
Sheets("Plan1").[B1].Value = WorksheetFunction.VLookup(Matr, Intervalo, 2, 0)
'Armazena o nome da planilha em "C1" da primeira planilha
Sheets("Plan1").[C1].Value = Sheets(i).Name
'Sai do laço
Exit For
End If
Next
End Sub
Abraço
Re: Macro Procura
Jvalk.
Como sou iniciante com macros e manjo pouco de vba vou te dizer como está minha planilha para entender melhor esse código que vc postou.
Abaixo o modelo como está minha planilha.
1 A B C D E F G H I
2 DATA HORÁRIO MATRICULA NOME ABONA FALTA ATESTADO COMP.HORAS PERMUTA
3 15/07 17:00 300489 Marcos x
Grato . João Batista.
Como sou iniciante com macros e manjo pouco de vba vou te dizer como está minha planilha para entender melhor esse código que vc postou.
Abaixo o modelo como está minha planilha.
1 A B C D E F G H I
2 DATA HORÁRIO MATRICULA NOME ABONA FALTA ATESTADO COMP.HORAS PERMUTA
3 15/07 17:00 300489 Marcos x
Grato . João Batista.
-
- Colaborador
- Mensagens: 54
- Registrado em: Seg Jul 05, 2010 6:56 am
Re: Macro Procura
Joao
Boa Tarde..
Como voce é iniciante, anexe a planilha e os colegas poderão replicar a voce já com o codigo.abs
Boa Tarde..
Como voce é iniciante, anexe a planilha e os colegas poderão replicar a voce já com o codigo.abs