Página 1 de 1

Comparar Valores

Enviado: 20 Dez 2018 às 19:12
por kleinowski
Olá!
Preciso comparar os dados da minha tabela.
Tenho 2 abas na minha planilha, preciso que se os dados da aba "ficha" forem diferentes da aba "Hastes" o nome e a haste da aba Ficha fique em negrito.
O problema é que tem alguns cones que tem diversos tamanhos de hastes conforme mostra na planilha.
É possível fazer isso?

Re: Comparar Valores

Enviado: 21 Dez 2018 às 08:01
por gfranco
Amigo,
Veja se é isso que precisa

Re: Comparar Valores

Enviado: 21 Dez 2018 às 11:24
por Deciog
kleinowski

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Feliz Natal e Prospero Ano Novo

Decio

Re: Comparar Valores

Enviado: 21 Dez 2018 às 12:11
por kleinowski
Eu tenho este código que compara 3 valores.
Código: Selecionar todos
Sub Teste()

 Dim c As Range, K As Long
  With Sheets("Ficha")
   
   For Each c In .Range(.[D16], .[D16].End(4))
     K = Sheets("Hastes").Range("A3", Sheets("Hastes").[A3].End(4)).Find(c.Value, lookat:=xlWhole).Row
    If c.Offset(, 8).Value <> Sheets("Hastes").Cells(K, 2) Or c.Offset(, 10).Value <> Sheets("Hastes").Cells(K, 3) Then

 c.Resize(, 11).Interior.ColorIndex = 6
 
    End If
   Next c
  End With

End Sub
tentei adaptar ele mas não consegui. Tentei trocar o D16 por L16 que seria o valor para comprar, mas quando faço isso da o seguinte erro "a variavel do objeto ou a variavel do bloco with não foi definida".
Teria como adaptar esse código para fazer essa comparação?

Comparar Valores

Enviado: 21 Dez 2018 às 12:22
por gfranco
Boa tarde.
Não vejo motivo (neste caso apresentado) para usar VBA uma vez que funções nativas podem retornar o resultado.