Método .find

Eloize Teixeira · 21 de setembro de 2016

Gente, boa tarde!

Faz muito tempo que não mexo com VBA e estou meio que com pressa, gostaria de saber se vocês podem ajudar.

Tenho uma planilha com duas abas.

Plan 1 = Preencher os dados correspondentes

Plan2 = Onde estão todos os dados

Plan 1

A B C D E

1

2

3

Plan 2

A B C D E

1 abacaxi ww ww ww

2 mamao ww ww ww

3 xuxu ww ww ww

4 joelho

5 computador

Ao apertar um botao da Plan 2, a Plan 1 se prencha com os dados correspondentes:

Plan1

A B C D E

1 abacaxi ww ww ww

2 mamao ww ww ww

3 xuxu ww ww ww

Poderiam me ajudar?

Basole · 21 de setembro de 2016

Olá @Eloize Teixeira veja se é isso:

Sub Método_Find()
    Dim w1 As Worksheet, w2 As Worksheet, c As Range, i As Long, strProc As String

    Set w1 = Worksheets("plan1")
    Set w2 = Worksheets("plan2")

    i = 2    ' linha inicial de dados (* altere se necessario)

    With w1

        Do While .Range("A" & i) <> ""

           strProc = .Range("A" & i).Value
           
                Set c = w2.Columns(1).Find(strProc, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not c Is Nothing Then
                .Range("B" & i).Value = c.Offset(, 1).Value
                .Range("C" & i).Value = c.Offset(, 2).Value
                .Range("D" & i).Value = c.Offset(, 3).Value
                .Range("E" & i).Value = c.Offset(, 4).Value
               
            End If
             i = i + 1
        Loop

    End With

End Sub