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: 154
Registrado em: Seg Out 24, 2011 1:50 pm

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

Mensagem por Mathmatic » 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.


att.
Mathmatic / SC

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: 2368
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 » Dom Jun 18, 2017 1:29 pm

Mathmatic,

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


Tomás
http://www.tomasvasquez.com.br/blog
http://twitter.com/tomamais
Gostou da resposta? Clique no joinha no topo da mensagem!
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

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

Mensagem por Mathmatic » 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.


att.
Mathmatic / SC

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

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

Mensagem por Mathmatic » 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.


att.
Mathmatic / SC

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: 765
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 » 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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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

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

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


att.
Mathmatic / SC

Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 765
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 » Qui Jun 22, 2017 1:11 pm

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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

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

Mensagem por Mathmatic » 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.


att.
Mathmatic / SC

Mathmatic
Manda bem
Manda bem
Mensagens: 154
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 » 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.


att.
Mathmatic / SC

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