Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Executar o Código de Busca em Células Visíveis
Executar o Código de Busca em Células Visíveis
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.
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.
Re: Executar o Código de Busca em Células Visíveis
Mathmatic,
O pessoal do planilhando costuma ser muito prestativo. Porque não fez a pergunta lá?
O pessoal do planilhando costuma ser muito prestativo. Porque não fez a pergunta lá?
Re: Executar o Código de Busca em Células Visíveis
Não fiz essa pergunta lá por que não tenho Login lá.
só tenho Login aqui, por isso pedi ajuda por aqui.
só tenho Login aqui, por isso pedi ajuda por aqui.
Re: Executar o Código de Busca em Células Visíveis
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.
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.
- Reinaldo
- 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
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:
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
Re: Executar o Código de Busca em Células Visíveis
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.
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 199 vezes
- Reinaldo
- 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
Experimente
- Anexos
-
- Cor_Cel_Visivel.zip
- (14.31 KiB) Baixado 203 vezes
Re: Executar o Código de Busca em Células Visíveis
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.
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.
CONCLUÍDO: Executar o Código de Busca em Células Visíveis
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.
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.