Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2004-11-03


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If IsEmpty(Range("A1")) Then
Exit Sub
End If

If Range("A1") <> 0 Then
Call Teste
ElseIf Range("A1") = 0 Then
MsgBox "O valor da célula não pode ser ZERO!!!"
Else
Exit Sub
End If
Range("A1").ClearContents

End Sub
-------
Sub Teste()
MsgBox "Parabéns!"
End Sub