Notifications
Clear all

Macro Procura

3 Posts
1 Usuários
0 Reactions
1,269 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá

Pessoal preciso deuma ajuda, como criar uma macro para procurar um nome em uma planilha, tenho uma planilha na pasta de trabalho com 11 abas nomeada quero fazer uma busca na plan1 através da matricula e retorne o nome do funcionario e em que planilha (aba) está. a planilha esta´anexada verifiquem e envie para mim e-mail: [email protected]

Grato.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/08/2011 2:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde.
so pode ser atraves de macors?
Fiz um exemplo com PROCV basta voce aplicar no restante da planilha.

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/09/2011 1:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue um exemplo de procura em VB (Somente da matricula)

 Sub procurando()

    Dim nLin As Long, Cont, Dl As Range, wS As Variant
    Dim Nome As String, nMat As String, i As Long
    For Each wS In Worksheets
        Nome = wS.Name
        If Nome <> UCase("Consulta") Then
            For i = 3 To 7
                nLin = Worksheets(Nome).Range("c65000").End(xlUp).Row
                nMat = Sheets("Consulta").Range("A" & i).Value
                If nMat <> "" Then
                       With Worksheets(Nome).Range("C4:C" & nLin)
                        Set Dl = .Find(nMat, LookIn:=xlValues)
                            If Not Dl Is Nothing Then
                             
                             Sheets("Consulta").Cells(i, 2) = Sheets(Nome).Cells(Dl.Row, 4).Value
                             Sheets("Consulta").Cells(i, 3) = Nome
                             Sheets("Consulta").Cells(i, 4) = Dl.Row
                             
                            End If
                        End With
                End If
            Next
        End If
    Next
 End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/09/2011 4:48 pm