Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
buscar numero por c...
 
Notifications
Clear all

buscar numero por cor

 
2024 - VBA & Macros
Post Recente por FAGNERIBAS 6 anos atrás
5 Posts
3 Usuários
0 Reactions
1,051 Visualizações
RSS
 FAGNERIBAS
(@fagneribas)
Posts: 67
Trusted Member
Topic starter
 

pessoal e possivel usar o metodo find, mais so com buscar o nmr q estiver na cor "vermelho" por exemplo, sou leigo no assunto e gostaria de saber se e possivel isso

 
Postado : 03/07/2018 1:44 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Use o mesmo criterio para pintar de vermelho para fazer a busca.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/07/2018 2:17 pm
 FAGNERIBAS
(@fagneribas)
Posts: 67
Trusted Member
Topic starter
 

Use o mesmo criterio para pintar de vermelho para fazer a busca.

nao sei como fazer isso, vc pode me ajudar?

 
Postado : 03/07/2018 3:05 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Fiz um exemplo sem usar o find:

Private Sub UserForm_Initialize()
Dim linha As Long

linha = 1

While Plan1.Range("A" & linha).Value <> ""


If Plan1.Range("A" & linha).Interior.Color = vbRed Then

Me.ListBox1.AddItem (Plan1.Range("A" & linha).Value)

End If

linha = linha + 1

Wend


End Sub
 
Postado : 03/07/2018 8:49 pm
 FAGNERIBAS
(@fagneribas)
Posts: 67
Trusted Member
Topic starter
 

Fiz um exemplo sem usar o find:

Private Sub UserForm_Initialize()
Dim linha As Long

linha = 1

While Plan1.Range("A" & linha).Value <> ""


If Plan1.Range("A" & linha).Interior.Color = vbRed Then

Me.ListBox1.AddItem (Plan1.Range("A" & linha).Value)

End If

linha = linha + 1

Wend


End Sub

vo tentar adaptar aqui meu amigo. obg pela ajuda

 
Postado : 04/07/2018 5:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico