none
Copiar e Colar Dados entre Planilhas RRS feed

  • Pergunta

  • 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

    domingo, 8 de abril de 2018 23:56

Todas as Respostas