Copiar e Colar na Última Linha Vazia VBA.

Question

Olá a todos!

Pessoal, estou trabalhando em uma planilha da empresa e eu precisaria achar uma forma onde meu relatório vai pegar uma base que gero do sistema e colar no relatório, mas isso é um processo acumulativo. Preciso fazer todos os dias sem que o dia anterior se apague, nesse caso entraria a parte de colar na ultima linha vazia.

o código que busca as informações e cola eu já tenho, a unica coisa que não consegui aplicar foi a questão do colar na linha vazia.

Sub ImportarDados

Dim caminho As Variant

dim este As workbook, outro As workbook

caminho = Application.GetOpenFileName

If caminho = false then Exit Sub

Workbooks.Open caminho,, True

set este = thisWorkbook

set outro = activeworkbook

application.displayalerts = false

outro.sheets(1).range("a1").currentregion.copy

planilha1.range("A1").PasteSpecial

outro.close false

stop

End Sub

Alguém poderia me ajudar?

Answer 1

Olá , tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria e farei o possível para ajudar.

Localizei dois posts do Fórum MSDN, próprio para programação, que pode te orientar Veja:

https://social.msdn.microsoft.com/Forums/sqlser....

https://social.msdn.microsoft.com/Forums/pt-BR/....

Caso não ajude, para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI para tratar está questão.

https://social.msdn.microsoft.com/Forums/pt-BR/....

Para criar uma nova pergunta no fórum MSDN, acesse:

https://social.msdn.microsoft.com/Forums/pt-BR/....

Basta logar com a sua conta Microsoft.

Espero ter ajudado, até mais!