ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

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.

VBA Colar em Sequência

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

VBA Colar em Sequência

Mensagem por Mathmatic » Qua Jul 05, 2017 7:27 pm

Saudações,

Gostaria de Copiar as células visíveis da coluna C (Plan1) e Colá-las em sequência na coluna A (Plan2), conforme já fiz manualmente no anexo.

está copiando a Range visível inteira da coluna C (que é da forma que eu gostaria que copiasse).
Mas não consigo fazer Colar em sequencia na coluna A (Plan2) conforme fiz manualmente no anexo.
abaixo segue um código vba que construi que copia a coluna C, mas não cola em sequência na coluna A (Plan2).

Sub CopiaVisivel_ColaSequencialDebaixo()

Sheets("Plan1").Select
Range("C1").Select

Range(Range("C2"), Range("C2").End(xlDown)).Select

Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

'está colando os valores na mesma posição original que foram copiados, Mas...
'preciso fazer Colar em ordem Sequencial um debaixo do outro na col A Plan2.

Sheets("Plan2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False
Range("A1").Select

Sheets("Plan1").Select
Range("A1").Select

End Sub
Anexos
Copiar e Colar em Sequencia.rar
(4.25 KiB) Baixado 123 vezes


Mathmatic

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.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 171
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: VBA Colar em Sequência

Mensagem por Tov Elen Shau » Qui Jul 06, 2017 7:58 am

Colega, existe várias maneiras de fazer isso, veja se está te resolve.

Atenciosamente

Tov Elen Shau
Anexos
Valores Selecionados.rar
(11.85 KiB) Baixado 261 vezes



Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

RESOLVIDO: VBA Colar em Sequência

Mensagem por Mathmatic » Qui Jul 06, 2017 4:04 pm

tópico RESOLVIDO !

sr. Tov Elen Shau,

a sua solução apresentada já me ajudou.

muito obrigado.

até mais ...

abs.


Mathmatic

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