Excel Importar dados entre abas da mesma planilha - VBA Excel

[marcos853]

Boa tarde!

 

Preciso realizar um projeto em VBA, e estou com dificuldades, gostaria de ajuda!

 

É o seguinte, se a coluna M for = a Operador 01, o macro iria copiar os resultados da coluna A, da aba (Macro) na coluna A, da aba (ACOMPANHAMENTO) em sua ultima linha preenchida. 

 

 

[Midori]

A comparação para encontrar "Operador 01" é em todas as linhas com dados da coluna M da aba Macro?

 

Se puder anexar um modelo de planilha será mais fácil ajudar.

 

[marcos853]

@Midori Isso, a comparação seria feita em todas as linhas da coluna M, vou enviar um anexo com um modelo.

 

-----------------------------

 

De inicio eu precisava de uma formula que copiasse os dados de uma planilha "DIFERENTE" e salvasse apenas os que seriam do operador 01 em uma outra planilha na aba ACOMPANHAMENTO, em sua ultima linha em branco, mas eu não consegui fazer isso, consegui pegar os dados, mas sem usar o critério do "operador 01"

 

Como eu já fiz a formula de pegar os dados de uma outra planilha, eu estava tentando apenas criar uma nova sub que separasse por critérios. 

 

------------------

 

Se conseguir me ajudar, vou ficar muito grato! 

 

Teste.rar

[Midori]

@marcos853  Veja se resolve,

 

Sub CopiarOperador01()
    Dim PlanMacro   As Worksheet
    Dim PlanAcomp   As Worksheet
    Dim UltLinha    As Long
    Dim L           As Long
    
    Set PlanMacro = ThisWorkbook.Worksheets("Macro")
    Set PlanAcomp = ThisWorkbook.Worksheets("ACOMPANHAMENTO")
    
    UltLinha = PlanAcomp.[A:A].End(xlDown).Row + 1
    L = 3
    
    Do Until PlanMacro.Cells(L, 13) = ""
        If PlanMacro.Cells(L, 13) = "Operador 01" Then
            PlanMacro.Cells(L, 1).Copy PlanAcomp.Cells(UltLinha, 1)
            UltLinha = UltLinha + 1
        End If
        L = L + 1
    Loop
End Sub

 

[marcos853]

7 minutos atrás, Midori disse:

@marcos853  Veja se resolve,

 

Sub CopiarOperador01()
    Dim PlanMacro   As Worksheet
    Dim PlanAcomp   As Worksheet
    Dim UltLinha    As Long
    Dim L           As Long
    
    Set PlanMacro = ThisWorkbook.Worksheets("Macro")
    Set PlanAcomp = ThisWorkbook.Worksheets("ACOMPANHAMENTO")
    
    UltLinha = PlanAcomp.[A:A].End(xlDown).Row + 1
    L = 3
    
    Do Until PlanMacro.Cells(L, 13) = ""
        If PlanMacro.Cells(L, 13) = "Operador 01" Then
            PlanMacro.Cells(L, 1).Copy PlanAcomp.Cells(UltLinha, 1)
            UltLinha = UltLinha + 1
        End If
        L = L + 1
    Loop
End Sub

 

MUitoooooooooooooooooooooo Obrigadooooo!!

 

Ficou perfeito!