none
Como fazer uma macro para Selecionar sempre a ultima linha em branco coluna A RRS feed

  • Pergunta

  • Bom Amigos!

    Tenho 29 planilhas de varias empresas no mesmo formato, e todos os dias tenho que consolidar todas em apenas uma, esta planilhas são de faturamento de duplicatas, ou seja, todos os dias tenho pagamento e faturamento, assim aumentando e diminuindo a quantidade de linhas.

    Gostaria de saber se tem alguma macro que eu possa fazer, que copiar uma planilha, colar na ultima linha em branco da outra.

    tenho visto outros fóruns mas não encontrei a solução. 

    Abaixo um pequeno script onde tenho 4 planilhas consolidadas, mas lembrando, todos os dias as linhas aumentam ou diminui, por isso quero sempre cole na célula em branco da Coluna A1.

    Conto com a ajuda de todos.


        Windows("abrange.csv").Activate
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Copy
        Windows("Pasta1.xlsx").Activate
        ActiveSheet.Paste
        Range("A1").Select
        Selection.End(xlDown).Select
        Range("A3496").Select
        
        Windows("adibe e castro.csv").Activate
        Range("A2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("Pasta1.xlsx").Activate
        ActiveSheet.Paste
        Selection.End(xlDown).Select
        Range("A11908").Select
        
        Windows("castro e marques.csv").Activate
        Range("A2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("Pasta1.xlsx").Activate
        ActiveSheet.Paste
        Selection.End(xlDown).Select
        Range("A18234").Select
        
        Windows("cimed.csv").Activate
        Range("A2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("Pasta1.xlsx").Activate
        ActiveSheet.Paste
        Range("A18207").Select
        
        Application.CutCopyMode = False
        ChDir "C:\Users\maercio.alves\Desktop"
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Users\maercio.alves\Desktop\consolidado diario.xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
    End Sub

    segunda-feira, 3 de março de 2014 17:38

Respostas

Todas as Respostas