Tomás Vásquez Fórum

Enviado: **Sáb Jun 17, 2017 11:36 am**

Saudações,

Encontrei no Link abaixo um código de muita utilidade para mim..: http://www.planilhando.com.br/forum/vie ... f=10&t=142

Mas, falta uma coisa para este código do Link ficar ótimo:

Preciso que o código execute a Busca (que já o faz pela COR) em Células Visíveis (SpecialCells(xlCellTypeVisible).

Não consegui adaptar o código para que o mesmo faça a busca em Células Visíveis.

Poderiam me ajudar por favor adaptar este código do Link.

Obs: Adaptar (SpecialCells(xlCellTypeVisible) só na parte da Busca, somente quando executar a Busca pela COR (RGB).

desde já sou agradecido pela ajuda.

Enviado: **Dom Jun 18, 2017 1:29 pm**

Mathmatic,

O pessoal do planilhando costuma ser muito prestativo. Porque não fez a pergunta lá?

Enviado: **Dom Jun 18, 2017 11:39 pm**

Não fiz essa pergunta lá por que não tenho Login lá.

só tenho Login aqui, por isso pedi ajuda por aqui.

Enviado: **Seg Jun 19, 2017 1:14 pm**

Pessoal,

Tive outra dúvida (problema) com o Cód do Link (que será de grande ajuda para minha necessidade se conseguir fazer as adaptações).

Descobri também que ele só funciona na busca pela cor RGB "original" da célula.

Eu preciso usar esse cód. do Link na busca por célula pintada por Formatação Condicional (RGB).

Então descobri que o cód. VBA apresentado no Link não funciona quando a célula for pintada por formatação Condicional.

Resumindo:

Preciso fazer 2 adaptações no cód. do Link...: Uma para executar em células Visíveis e a outra para fazer a Busca pela cor da Formatação condicional (RGB).

Agradeço muitíssimo pela vossa ajuda.

Enviado: **Qua Jun 21, 2017 10:10 am**

Existem muitos "códigos" na internet que se dispõe a buscar/contar/somar células por suas cores.
Quando são cores internas (do fundo de célula ou texto) e relativamente simples, e o código proposto pelo colega Edson no planilhando e funcional.
Em tratando-se de cores atribuídas por formatação condicional ai a coisa pega. Não vi,ainda, nenhum realmente funcional, as vezes funciona parcial; motivo pelo qual não recomendo.
Sempre proponho tentar utilizar a formula aplicada para a condicional.
Utilizar a rotina do link (não funcional em cores condicional) e verificando se a célula e visível experimente algo do tipo:

Código: Selecionar todos

Sub FiltroCor()
Dim slin As Long
Dim elin As Long
    slin = 2
    elin = 2
Do While Sheets("Plan1").Cells(slin, 1) <> ""
    If Sheets("plan1").Cells(slin, 14).SpecialCells(xlCellTypeVisible) = True Then
        If Sheets("Plan1").Cells(slin, 14).Font.Color = RGB(0, 0, 0) And _
           Sheets("Plan1").Cells(slin, 12).Font.Color <> RGB(0, 0, 0) Then
            Sheets("Plan1").Range("A" & slin & ":Z" & slin).Copy
            Sheets("Plan2").Range("A" & elin).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            slin = slin + 1
            elin = elin + 1
        Else
            slin = slin + 1
        End If
    End If
Loop
End Sub

Enviado: **Qua Jun 21, 2017 12:57 pm**

sr. Reinaldo, em primeiro lugar, agradeço pela atenção.

coloquei em anexo um pequeno modelo de planilha para aplicar o código sugerido.

Informo que ocorreu erro na linha If Sheets("Plan1").Cells(slin, 14).SpecialCells(xlCellTypeVisible) = True Then

O objetivo é copiar as informações da coluna A e B Filtradas, cujas células da coluna B estão pintadas de Verde (no interior e no fundo) e então Colar valores na Plan2.

OBS: Já inseri no seu código VBA a combinação RGB da Fonte e do Fundo (Verde)

De acordo com o filtro atual, deveria ter copiado para a Plan2 as seguintes informações:
126 NP
127 JS

Mas como lhe informei, ocorreu erro na linha citada acima.

mais uma vez, muito obrigado pela atenção.

Enviado: **Qui Jun 22, 2017 1:11 pm**

Experimente

Enviado: **Qui Jun 22, 2017 2:13 pm**

sr. Reinaldo,

ficou muito bom, MAS.. faltou selecionar os dados filtrados e Colá-los os valores na Plan2.
tentei acrescentar o comando .Copy, mas não consegui.

precisava colar na plan2 os seguintes dados filtrados:

col A col B
126 NP
127 JS

muito obrigado por sua ajuda.

Enviado: **Qui Jun 22, 2017 3:48 pm**

Tópico CONCLUÍDO !

sr. Reinaldo, consegui adaptar o comando .Copy e PasteSpecial ...
simplesmente usei alguns comandos que já havia em outro código.

Agradeço muitíssimo pela ajuda, dedicação e atenção.

Parabéns pelo seu conhecimento em VBA e Excel.

até mais ... abraço.

Tomás Vásquez Fórum

Executar o Código de Busca em Células Visíveis

Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

Re: Executar o Código de Busca em Células Visíveis

CONCLUÍDO: Executar o Código de Busca em Células Visíveis