none
Formula no Excel mostrar valor diferente da ultima célula RRS feed

  • Pergunta

  • Olá pessoal, 

    Seguinte preciso de uma formula que possa me avisar de alguma forma , (pode ser com cor ou mesmo com aviso) , mas que quando estou digitando um valor em uma determinada coluna em uma celula, quando esse valor for diferente do ultimo valor digitado ( ou mais ou menos ) ele me mostre um aviso ...ou cor...ou atenção....nao importa.... algume consegue me ajudar nisso?

    Agradeço muito,

    terça-feira, 14 de novembro de 2017 12:08

Todas as Respostas

  • Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim linha As Long
        Dim valor1, valor2 As Variant
        linha = 1
        While ThisWorkbook.Sheets("Planilha1").Range("A" & linha) <> ""
            
            If linha >= 2 Then
                
                valor1 = ThisWorkbook.Sheets("Planilha1").Range("A" & linha - 1).Value
                
                valor2 = ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Value
                
                
                If valor2 <> valor1 Then
                    
                    MsgBox "O valor da linha " & linha & " é diferente do valor da linha " & linha - 1
                    
                End If
                
                
            End If
            
            linha = linha + 1
            
        Wend
        
    End Sub
    


    Anderson Diniz diniabr2011@gmail.com

    terça-feira, 14 de novembro de 2017 12:55
  • https://www.youtube.com/watch?v=qEkjZCl58Ho

    Anderson Diniz diniabr2011@gmail.com

    terça-feira, 14 de novembro de 2017 12:56