Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro Procura

Dúvidas gerais sobre Excel
Joao Batista
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Seg Ago 15, 2011 12:38 pm

Macro Procura

Mensagem por Joao Batista »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


JValq
Manda bem
Manda bem
Mensagens: 101
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP

Re: Macro Procura

Mensagem por JValq »

Boa tarde,

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
O código deve ser adaptado à sua necessidade.

Abraço


jsbatista
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Ago 16, 2011 2:19 pm

Re: Macro Procura

Mensagem por jsbatista »

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.


Felipe Dasi
Colaborador
Colaborador
Mensagens: 54
Registrado em: Seg Jul 05, 2010 6:56 am

Re: Macro Procura

Mensagem por Felipe Dasi »

Joao
Boa Tarde..
Como voce é iniciante, anexe a planilha e os colegas poderão replicar a voce já com o codigo.abs


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder