Excel Código para Copiar e Colar dados acumulando no Excel.

[mirojunior97]

Bom dia Pessoal.

Preciso de um Help, eu tenho uma planilha com varias abas no excel, elas são abastecidas pelo Power Querry todo dia.

Cada Aba eu uso pra abastecer outras planilhas.

 

Existe alguma forma de colocar um VBA nessas planilhas que eu abasteço, para pegar os dados dessa no Querry de acordo com a Aba ? 
Eu queria apenas que ela pegasse a informação, colocasse abaixo da que já existe e pronto. Para sempre acumular.

 

Porém, tem uma delas, que quero apagar da minha base e colar os dados.
Sempre desconsiderando o titulo. 

[ppeterk]

@mirojunior97, boa tarde!
 

Para auxiliarmos, poste um modelo, contendo exemplos e resultados que deseja.

[mirojunior97]

@ppeterk

Na planilha Att automatica eu tenho uma guia de SP com algumas informações dos dias anteriores, gostaria que essas informações abastecessem a planilha "BASE SP" que possui apenas 1 aba.  

Base SP.xlsx Att automatica.xlsx

[Midori]

@mirojunior97 Veja se é isto, abra as duas planilhas e cole o código na Base SP,

 

Sub CopiaSP()
    Dim PlanAtt As Worksheet
    
    Set PlanAtt = Workbooks("Att automatica.xlsx").Sheets("Sp")
    
    With ThisWorkbook.ActiveSheet
        Call PlanAtt.[A1].CurrentRegion.Offset(1).Copy( _
            .Cells(.[A1].CurrentRegion.Rows.Count + 1, 1))
    End With
    Application.CutCopyMode = False
End Sub

 

[mirojunior97]

27 minutos atrás, Midori disse:

@mirojunior97 Veja se é isto, abra as duas planilhas e cole o código na Base SP,

 

Sub CopiaSP()
    Dim PlanAtt As Worksheet
    
    Set PlanAtt = Workbooks("Att automatica.xlsx").Sheets("Sp")
    
    With ThisWorkbook.ActiveSheet
        Call PlanAtt.[A1].CurrentRegion.Offset(1).Copy( _
            .Cells(.[A1].CurrentRegion.Rows.Count + 1, 1))
    End With
    Application.CutCopyMode = False
End Sub

 

 

Funcionou perfeitamente, apenas um detalhe. 
Ele está colando como valor né ? 

Qual seria a alteração pra ele colar sem formatação ? 

[Midori]

@mirojunior97 Sem formatação fica assim,

 

Sub CopiaSP()
    Dim PlanAtt As Worksheet
    
    Set PlanAtt = Workbooks("Att automatica.xlsx").Sheets("Sp")
    
    PlanAtt.[A1].CurrentRegion.Offset(1).Copy
    
    With ThisWorkbook.ActiveSheet
        .Cells(.[A1].CurrentRegion.Rows.Count + 1, 1).PasteSpecial
    End With
    Application.CutCopyMode = False
End Sub

 

[mirojunior97]

@Midori Muito obrigado mano. 

Me ajudou demais. Agradeço muito. 

 

Agora vou vincular o Power Automate pra realizar esses códigos de forma automatica salvar e fechar. Agradeço novamente. Deus abencoe 

@Midori Esqueci de uma informação.

É possível também, apagar as informações da Base SP, e inserir as informações da Att ? 
No mesmo formato, porém em vez de colar , ele substituiria. 

[Midori]

@mirojunior97 Assim apaga toda a região a partir de A1 na Base SP,

 

Sub CopiaSP()
    Dim PlanAtt As Worksheet
    
    Set PlanAtt = Workbooks("Att automatica.xlsx").Sheets("Sp")
    
    With ThisWorkbook.ActiveSheet.[A1]
        .CurrentRegion.ClearContents
        PlanAtt.[A1].CurrentRegion.Copy
        .PasteSpecial
    End With
    Application.CutCopyMode = False
End Sub

 

[mirojunior97]

@Midori Muitissimo obrigado. 

Deu super certo. Agradeço demais pela ajuda