Forum Pplware

Versão Completa: Excel VBA
Está de momento a ver uma versão reduzida do nosso conteúdo. Ver versão completa com o formato adequado.
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
No fim em vez de End Select não devia ser End If ?
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!
Partilha a resolução, assim ajudas o proximo
URL's de Referência