Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
GENECI

Conferir e excluir se igual.

Mensagem Recomendada

Boa tarde!

Parabéns a administração pelas mudanças implantadas.

Para saber se houve alterações nos valores, solicito a sua ajuda para o problema apresentado.

Grato - GENECI.

Conferir e excluir.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Geneci.

Instale o código baixo no módulo da planilha de interesse e veja se o resultado é o desejado.


Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Count > 1 Then Exit Sub

 If Target.Column <> 3 Or Target.Value = "" Then Exit Sub

 If Cells(Target.Row, 1) <> Target.Value Then

  Cells(Target.Row, 4) = "Divergência"

 Else: Cells(Target.Row, 4) = "OK": Cells(Target.Row, 1) = ""

 End If

End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...