Usuário com melhor resposta
Como fazer uma macro para Selecionar sempre a ultima linha em branco coluna A

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
Respostas
-
Olá.
Para encontrar a última linha escrita na coluna "A" (1) basta usar:
Lf = Cells(Rows.Count, 1).End(xlUp).Row
Seria isto?
Abraço.
Filipe Magno
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:03
-
Verifique o link a seguir: http://www.rondebruin.nl/win/s3/win002.htm
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:03
Todas as Respostas
-
Olá.
Para encontrar a última linha escrita na coluna "A" (1) basta usar:
Lf = Cells(Rows.Count, 1).End(xlUp).Row
Seria isto?
Abraço.
Filipe Magno
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:03
-
Amigo,
Não sei ao certo onde colo esta informação, sou muito leigo nisso. Tem como dar exemplo?achei em um forum por aqui mesmo esta informaçãoLini = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(Lini, 1), Cells(Lini + 19, 13)).Selectno momento deu certo, mas ainda não é o que eu procuro, acho que não é necessário, colunas até a 13.
Maercio Alves
- Editado Maercioalves quarta-feira, 5 de março de 2014 18:19
-
Verifique o link a seguir: http://www.rondebruin.nl/win/s3/win002.htm
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:03