25-04-2014, 20:02
Boa tarde,
estou com problemas na programação de VBA do Excel.
como faço para que quando numa celula do excel introduzo um valor maior do que 0 aparecer-me uma figura, por exemplo um rectangulo, e quando o valor for igual a 0 essa mesma figura deixar de aparecer.
Inseri este codigo mas dá-me erro.
Podem ajudar-me???!!!
Sub sol()
Private Sub sol Worksheet_Change(ByVal Target As Range)
Dim cel As Integer
cel = Range("A1").Value
If cel >0 then
ActiveSheet.Shapes("Sol").Visible = True
ElseIf cel = 0 then
ActiveSheet.Shapes("Sol").Visible = False
End Select
End Sub
estou com problemas na programação de VBA do Excel.
como faço para que quando numa celula do excel introduzo um valor maior do que 0 aparecer-me uma figura, por exemplo um rectangulo, e quando o valor for igual a 0 essa mesma figura deixar de aparecer.
Inseri este codigo mas dá-me erro.
Podem ajudar-me???!!!
Sub sol()
Private Sub sol Worksheet_Change(ByVal Target As Range)
Dim cel As Integer
cel = Range("A1").Value
If cel >0 then
ActiveSheet.Shapes("Sol").Visible = True
ElseIf cel = 0 then
ActiveSheet.Shapes("Sol").Visible = False
End Select
End Sub