Saudações,
segue em anexo uma planilha modelo para aplicar o código VBA desejado.
Descrição:
Tenho uma planilha que primeiramente executo filtros na Plan1.
Depois de executar o Filtro na coluna A, coloco "x" manualmente na coluna B para escolher os valores desejados, e então só os escolhidos aparecerão na coluna C através da fórmula condicional SE que ali coloquei.
código VBA desejado:
Preciso de um código VBA que Copie todos os valores escolhidos que estão na coluna C (das células Visíveis) e Cole os (valores) na coluna A da Plan2 em ordem (um debaixo do outro), conforme fiz manualmente no exemplo que está em anexo.
Agradeço a vossa ajuda desde já,
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Copia Cola Valores Selecionados depois do Filtro
Copia Cola Valores Selecionados depois do Filtro
- Anexos
-
- Valores Selecionados.rar
- (4.25 KiB) Baixado 171 vezes
Re: Copia Cola Valores Selecionados depois do Filtro
Pessoal,
fiz uma parte do código (copiar a range visível col "C" plan1) funcionar, Mas.. não estou conseguindo fazer a outra parte, a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência (conforme está feito manualmente na planilha em anexo).
segue abaixo o código que fiz até o momento. Preciso agora fazer a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência.
==============================================================================
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
=========================================================================
agradeço pela ajuda desde já.
fiz uma parte do código (copiar a range visível col "C" plan1) funcionar, Mas.. não estou conseguindo fazer a outra parte, a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência (conforme está feito manualmente na planilha em anexo).
segue abaixo o código que fiz até o momento. Preciso agora fazer a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência.
==============================================================================
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
=========================================================================
agradeço pela ajuda desde já.