Bom dia,
Gostaria de copiar a ultima linha preenchida Da tabela que contem 03 colunas (A,B,C) para a coluna D, E F., 01 Linha abaixo.
EX:
A B C
maria 1 1
joao 2 2
'fiz isso , mas copia APENAS A COLUNA A. quero copiar a ultima linha das 03 colunas.
Range("c65536:f65536").End(xlUp).Select 'ACHA A ULTIMA LINHA PREENCHIDA
Selection.Copy Destination:=ActiveCell.Offset(1, 4) 'COPIA E COLA PARA UMA LINHA ABAIXO NA COLUNA DESEJADA
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]
Editado pela última vez por rachelgdias em Seg Mar 23, 2020 8:34 am, em um total de 1 vez.
Re: COPIAR E COLAR ULTIMA LINHA
Tenta da seguinte maneira:
Dim uLinhaA as long
Dim uLinhaC as long
uLinhaA = cells(rows.count, "A").end(xlup).row
uLinhaD = cells(rows.count, "D").end(xlup).row + 1
Range("A" & uLinhaA & ":C" & uLinhaA ).copy
Range("D" & uLinhaD).select
Activecell.paste
Qualquer erro aqui foi por esta escrevendo do celular.
Dim uLinhaA as long
Dim uLinhaC as long
uLinhaA = cells(rows.count, "A").end(xlup).row
uLinhaD = cells(rows.count, "D").end(xlup).row + 1
Range("A" & uLinhaA & ":C" & uLinhaA ).copy
Range("D" & uLinhaD).select
Activecell.paste
Qualquer erro aqui foi por esta escrevendo do celular.
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re:[RESOLVIDO] COPIAR E COLAR ULTIMA LINHA
bom dia, Alyson,Alyson escreveu: ↑Sáb Mar 07, 2020 4:45 pm Tenta da seguinte maneira:
Dim uLinhaA as long
Dim uLinhaC as long
uLinhaA = cells(rows.count, "A").end(xlup).row
uLinhaD = cells(rows.count, "D").end(xlup).row + 1
Range("A" & uLinhaA & ":C" & uLinhaA ).copy
Range("D" & uLinhaD).select
Activecell.paste
Qualquer erro aqui foi por esta escrevendo do celular.
Muito obrigada pela ajuda, RESOLVIDO.