Como copiar as ultimas 6 colunas de uma tabela

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

4 Posts

4 Usuários

0 Reactions

946 Visualizações

RSS

Gilbertojj

(@gilbertojj)

Posts: 1

New Member

Topic starter

srs. boa tarde.

tenho uma tabela que todo dia recebe 6 colunas a mais de dados.

estou tentando fazer uma macro que selecione sempre as ultimas 6 colunas, copie e cole em outra planilha.
porém não estou conseguindo, pois funciona na primeira vez, quando acrescento mais 6 colunas, a macro pega o intervalo anterior.

segue código abaixo.

Sub Macro1()
' Macro1 Macro

    Range("B4").Select
    Selection.End(xlToRight).Select
    Range("C4:H4").Select
    
    Range("H4").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("C18").Select
    ActiveSheet.Paste
    
End Sub

Postado : 04/10/2017 2:22 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa tarde.
Sugiro postar um modelo de sua planilha (pode ser com dados fictícios MAS MESMA ESTRUTURA) para facilitar tentar lhe ajudar.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 04/10/2017 2:34 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

(Estou considerando que a linha 4 contém seu cabeçalho)
se for o caso tente Isso:

Sub last6()
ActiveSheet.Range("B4").Select
Do
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 1).Select
End If
Loop Until ActiveCell.Offset(0, 7).Value = ""
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("C18").Select
ActiveSheet.Paste
End Sub

Se isso não ajudar, tente enviar uma cópia da planilha
Abrç.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 04/10/2017 3:01 pm