Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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

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

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

Mensagem por Mathmatic »

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.


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem por webmaster »

Mathmatic,

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


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

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

Mensagem por Mathmatic »

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

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


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

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

Mensagem por Mathmatic »

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.


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem por Reinaldo »

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


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

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

Mensagem por Mathmatic »

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.
Anexos
Copia Cor Cel Visivel e Cola Valores.rar
(10.5 KiB) Baixado 186 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem por Reinaldo »

Experimente
Anexos
Cor_Cel_Visivel.zip
(14.31 KiB) Baixado 192 vezes


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

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

Mensagem por Mathmatic »

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.


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

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

Mensagem por Mathmatic »

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.


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