Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Excel VBA
25-04-2014, 20:02
Mensagem: #1
Excel VBA
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
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
26-04-2014, 01:03
Mensagem: #2
RE: Excel VBA
No fim em vez de End Select não devia ser End If ?
Visitar Website de este utilizador Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
28-04-2014, 09:37 (Esta mensagem foi modificada pela última vez a: 28-04-2014 10:17 por Tânia.)
Mensagem: #3
RE: Excel VBA
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!
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
26-05-2014, 23:22
Mensagem: #4
RE: Excel VBA
Partilha a resolução, assim ajudas o proximo

Intel Core i5-3450 Quad Core | RAM 6GB | 1.5TB  | GeForce GTX 780 TI | LG Display 24"

# I'll be back soonfor real!
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)