VBA como copiar dados de um intervalo de linhas após cair numa condição especifica?

Marcelo G Prudencio disse:

Disponibiliza um modelo do seu arquivo

Sub Macro1()

'

' Macro1 Macro

Dim LinhaSchedule, LinhaOrdem, i, j

Application.ScreenUpdating = False

' Conta todas as Células preenchidas da Coluna A da planilha Ordem

' Soma-se mais 4, devido as 4 primeiras células da coluna A estarem vazias, se preencher elas com 0 ou com espaço, deve-se retirar a soma.

LinhaOrdem = Application.WorksheetFunction.CountA(Plan2.Columns(1)) + 4

' Conta todas as Células preenchidas da Coluna Z da planilha Schedule

LinhaSchedule = Application.WorksheetFunction.CountA(Plan3.Columns(26)) + 1

'MsgBox LinhaOrdem

'MsgBox LinhaSchedule

For i = 6 To LinhaOrdem

    For j = 2 To LinhaSchedule

    Ordem = Plan2.Cells(i, 1)

    Schedule = Plan3.Cells(j, 26)

    If Schedule = Ordem Then

        Plan3.Select

        Plan3.Range(Cells(j, 1), Cells(j, 64)).Select

        Selection.Copy

        Plan2.Activate

        Plan2.Range(Cells(i, 6), Cells(i, 70)).Select

        ActiveSheet.Paste

    End If

    Next j

Next i

Application.ScreenUpdating = True

End Sub

A6_INFO disse:

Tópicos unidos. Por gentileza, concentre o assunto em um único tópico.