Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA COPIAR E...
 
Notifications
Clear all

MACRO PARA COPIAR E COLAR ÚLTIMOS VALORES NA ULTIMA CELULA V

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
2 Posts
2 Usuários
0 Reactions
543 Visualizações
RSS
 Arafat77
(@arafat77)
Posts: 0
New Member
Topic starter
 

Galera, Boa noite.

Estava repassando umas formular de Excel para uma planilhaplanilha com macros que uso no trabalho, mas notei que seria preciso, primeiro:
identificar a última célula vazia;
copiar o conteúdo, por exemplo, AB para coluna AC(Vazia) e que isso se repita toda vez que ativo a macro

Será que poderiam ajudar nessa?

 
Postado : 07/05/2015 10:48 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Arafat77,

Bom dia!

Para identificar a última Célula vazia da coluna AC, use:

Sub Copiar
     Dim UltimaLinha as Long
     UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 29).End(XlUp).Row
     
     'Para copiar o conteúdo da Célula AB (na última linha) para a célula AC, utilize isso
     ActiveSheet.Range(AC & UltimaLinha +1).Value =ActiveSheet.Range(AB & UltimaLinha).Value 
End Sub
 
Postado : 08/05/2015 4:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico