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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
VBA Colar em Sequência
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: VBA Colar em Sequência
Colega, existe várias maneiras de fazer isso, veja se está te resolve.
Atenciosamente
Tov Elen Shau
Atenciosamente
Tov Elen Shau
- Anexos
-
- Valores Selecionados.rar
- (11.85 KiB) Baixado 446 vezes
RESOLVIDO: VBA Colar em Sequência
tópico RESOLVIDO !
sr. Tov Elen Shau,
a sua solução apresentada já me ajudou.
muito obrigado.
até mais ...
abs.
sr. Tov Elen Shau,
a sua solução apresentada já me ajudou.
muito obrigado.
até mais ...
abs.