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.

Copia Cola Valores Selecionados depois do Filtro

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

Copia Cola Valores Selecionados depois do Filtro

Mensagem por Mathmatic » Dom Jun 25, 2017 2:21 pm

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á,
Anexos
Valores Selecionados.rar
(4.25 KiB) Baixado 72 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.


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

Re: Copia Cola Valores Selecionados depois do Filtro

Mensagem por Mathmatic » Seg Jun 26, 2017 1:43 pm

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á.


Mathmatic

Responder