Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
rachelgdias
Colaborador
Colaborador
Mensagens: 23
Registrado em: Sex Jan 31, 2020 9:53 am

COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]

Mensagem por rachelgdias » Sex Mar 06, 2020 1:39 pm

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
Editado pela última vez por rachelgdias em Seg Mar 23, 2020 8:34 am, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Alyson
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sex Mar 06, 2020 6:56 pm

Re: COPIAR E COLAR ULTIMA LINHA

Mensagem por Alyson » 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.



rachelgdias
Colaborador
Colaborador
Mensagens: 23
Registrado em: Sex Jan 31, 2020 9:53 am

Re:[RESOLVIDO] COPIAR E COLAR ULTIMA LINHA

Mensagem por rachelgdias » Ter Mar 10, 2020 11:42 am

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.
bom dia, Alyson,
Muito obrigada pela ajuda, RESOLVIDO.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder