Forum Pplware
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"


Sad

Já encontrei o problema!

Smile 

Obrigado!


RE: Excel VBA - Iniciado21 - 26-05-2014 23:22

Partilha a resolução, assim ajudas o proximo