Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
PESQUISA SO POR DET...
 
Notifications
Clear all

PESQUISA SO POR DETERMINADA COR

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
6 Posts
4 Usuários
0 Reactions
1,654 Visualizações
RSS
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

pessoal tenho uma metodo de pesquisa q pesquisa por um codigo exato q esta na minha coluna de referencia ate ai tudo bem funciona muito bem, so q eu queria adaptar a esse codigo q ele nao pesquisase por exemplos linhas q estiver na cor amarela, somente cores em branco , sera q isso e possivel??? desde ja agradeço a atençao de todos

On Error GoTo ERRO
Plan1.Activate
Plan1.Select

Resp = TextBox3.Value
If resposta = vbYesNo Then
Exit Sub
End If

With Worksheets("DADOS2").Range("A:A")
  Set C = .Find(Resp, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not C Is Nothing Then
 C.Activate
TextBox3.Value = C.Value
'cod = PLAQUETA


Else

MsgBox " PLAQUETA NAO ENCONTRADA", vbInformation, "F R CONTROLES"
TextBox3 = ""
TextBox3.SetFocus

Exit Sub




End If
  End With




Exit Sub

ERRO:
MsgBox "CANCELADO COM SUCESSO", vbInformation, "F R CONTROLES"
 
Postado : 23/02/2018 5:19 am
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Bom dia!

Não entendi muito bem, mas veja se é isso que você precisa.

 
Postado : 23/02/2018 5:43 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

sera q e possivel adaptar ao metodo find.?

 
Postado : 23/02/2018 6:31 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não cheguei a ver seu modelo, mas a rotina abaixo usa o Metodo Find para localizar as celulas com o interior de cor vermelha:

Sub FindInteriorColor()
    Dim FindInteriorColor As Long
    Dim sRg As Range
    
    FindInteriorColor = 255 'Interior vermelho
    
    Set sRg = Range("A2:A7")
      
        For Each x In sRg
            If x.Interior.Color = FindInteriorColor Then
                MsgBox ("Celula  cor Vermelha encontrada em " & x.Address(0, 0))
        End If
      
      Next
  
End Sub

[]s

 
Postado : 23/02/2018 7:15 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

nao consegui adaptar ao meu codigo nao amigo

 
Postado : 23/02/2018 8:24 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

...
...
  With Application.FindFormat.Interior
   .Pattern = xlNone
   .TintAndShade = 0
   .PatternTintAndShade = 0
  End With

 With Worksheets("DADOS2").Range("A:A")
   Set c = .Find(Resp, LookIn:=xlValues, LookAt:=xlWhole, SearchFormat:=True)
...
...
 
Postado : 23/02/2018 9:41 am
Forum Jump:
  Tópico Anterior
Próximo Tópico