Prezados,

Sou iniciante em macros, e assim peço ajuda.

Tenho um arquivo composto de várias planilhas. Uma delas é composta de cada um dos lançamentos de time-sheet feitos por cada membro da equipe em cada cliente; outra é composta das classificações do cliente.

Gostaria de copiar as classificações do cliente para a planilha dos lançamentos, ao lado da célula do lançamento, para que depois usando a função if, possa fazer análises.

O problema é que quando uso a macro abaixo, ele não copia dos dados de classificação da planilha clientes. Alguém poderia me dizer onde está o erro?

Sub Clientes()

'definir valor de objetos e variáveis

Dim w1 as Object

Dim w2 as Object

Set w1 = Sheets("Débitos 2018")

Set w2 = Sheets("Clientes")

w1.Select

Range("d2").Select

lin1 = 2

lin2 = 2

Do While ActiveCell.Value <> ""

            Do

                        If ActiveCell.Value = w2.Cells(lin2, 1).Value Then

                                    w2.Cells(lin2, 3).Select

                                    Selection.Copy

                                    w1.Cells(lin1, 7).Select.Paste

                                    w2.Cells(lin2, 4).Select

                                    Selection.Copy

                                    w1.Cells(lin1, 8).Select.Paste

                                    Application.CutCopyMode = False

                        End If

            lin2 = lin2 + 1

            Loop While ActiveCell.Value <> w2.Cells(lin2, 1).Value

lin1 = lin1 + 1

lin2 = 2

w1.Cells(lin1, 4).Select

Loop

End Sub

Obrigado