Ir ao conteúdo
  • Cadastre-se
Eloize Teixeira

Método .find

Recommended Posts

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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá @Eloize Teixeira veja se é isso:refresh.gif

 

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 

 

Editado por Basole

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×