Ir ao conteúdo
  • Cadastre-se

Excel Importar dados entre abas da mesma planilha - VBA Excel


marcos853

Posts recomendados

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. 

 

 

Link para o comentário
Compartilhar em outros sites

@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

Link para o comentário
Compartilhar em outros sites

@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

 

Link para o comentário
Compartilhar em outros sites

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! 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!