locked
procurar e formatar valores por lista RRS feed

  • Pergunta

  • Como faço esta macro!?

    tenho uma lista de valores que desejo procurá-los em uma matriz, se forem achados na matriz gostaria que a célula ficasse em vermelho;

    Ex:

                        Matriz     Lista
          1       12       15       1
          3       10       16       9
          5        9        4       8
          8        8        5      10

    Assim, a macro faria o primeio critério de busca pela lista=1 se achar na matriz ela pinta a célula que conter 1 de vermelho, depois vai para o seguno critério lista=9 e assim por diante...

    grato!

    segunda-feira, 26 de abril de 2010 21:09

Respostas

  • Boa noite,

    Experimente este código aqui:

     

     

    Sub DestacarValores()
    
    Dim rgLista As Range
    
    Dim rgMatriz As Range
    
    Dim cellLista As Range
    
    Dim cellMatriz As Range
    
    
    
    Set rgLista = Application.InputBox(Prompt:="Informe a lista que contém os valores que serão pesquisados", _
    
    Type:=8)
    
    
    
    Set rgMatriz = Application.InputBox(Prompt:="Informe a matriz cujos valores serão destacados", _
    
    Type:=8)
    
    
    
    For Each cellLista In rgLista
    
        For Each cellMatriz In rgMatriz
    
        If cellMatriz = cellLista Then cellMatriz.Font.Color = vbRed
    
        Next cellMatriz
    
    Next cellLista
    
    
    
    End Sub

     

     

    [ ]s


    Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/
    • Sugerido como Resposta adilsonsoledade quinta-feira, 29 de abril de 2010 02:46
    • Marcado como Resposta Jnando84 sexta-feira, 30 de abril de 2010 21:17
    quinta-feira, 29 de abril de 2010 02:44

Todas as Respostas

  • Boa noite,

    Experimente este código aqui:

     

     

    Sub DestacarValores()
    
    Dim rgLista As Range
    
    Dim rgMatriz As Range
    
    Dim cellLista As Range
    
    Dim cellMatriz As Range
    
    
    
    Set rgLista = Application.InputBox(Prompt:="Informe a lista que contém os valores que serão pesquisados", _
    
    Type:=8)
    
    
    
    Set rgMatriz = Application.InputBox(Prompt:="Informe a matriz cujos valores serão destacados", _
    
    Type:=8)
    
    
    
    For Each cellLista In rgLista
    
        For Each cellMatriz In rgMatriz
    
        If cellMatriz = cellLista Then cellMatriz.Font.Color = vbRed
    
        Next cellMatriz
    
    Next cellLista
    
    
    
    End Sub

     

     

    [ ]s


    Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/
    • Sugerido como Resposta adilsonsoledade quinta-feira, 29 de abril de 2010 02:46
    • Marcado como Resposta Jnando84 sexta-feira, 30 de abril de 2010 21:17
    quinta-feira, 29 de abril de 2010 02:44
  • Blz!!!

     

    Valew... denovo... Adilson!!

    sexta-feira, 30 de abril de 2010 21:17