Excel VBA - Versão de Impressão +- Forum Pplware (http://forum.pplware.com) +-- Fórum: Software (/forumdisplay.php?fid=4) +--- Fórum: Aplicações (/forumdisplay.php?fid=12) +--- Tópico: Excel VBA (/showthread.php?tid=19041) |
Excel VBA - Tânia - 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 RE: Excel VBA - eSkiSo - 26-04-2014 01:03 No fim em vez de End Select não devia ser End If ? RE: Excel VBA - Tânia - 28-04-2014 09:37 Mesmo com essa alteração acusa um erro nesta parte: "Sub sol() Private Sub sol Worksheet_Change(ByVal Target As Range" Já encontrei o problema! Obrigado! RE: Excel VBA - Iniciado21 - 26-05-2014 23:22 Partilha a resolução, assim ajudas o proximo |