Setar valor de célula para uma forma

[Awq]

Olá, sou novo no fórum, vim aqui para pedir uma ajuda um pouco simples, mas como estou começando a programação em VBA estou com um pouco de dificuldade.

É bem simples, criei um "Dim shape_ as Shape" e quero que de acordo com as células que eu definir, cada forma receba o valor de uma determinada célula para definir se ela será visível ou não.

Então será assim: a célula vai ter 1 ou 2 e dependendo desse valor eu vou definir a visibilidade. Eu só queria uma maneira de setar automaticamente esses valores.

Obrigado!

[Benhur Palini]

Oi,

Exemplo de uma planilha com 4 retângulos:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To ActiveSheet.Shapes.Count

Valor = Range("A" & i).Value

If Valor = 1 Then

ActiveSheet.Shapes("Retângulo " & i).Visible = msoTrue

ElseIf Valor = 2 Then

ActiveSheet.Shapes("Retângulo " & i).Visible = msoFalse

End If

Next i

End Sub

[Awq]

Opa, cara! Valeu, mas esse não deu certo...

Aqui vai o que eu já fiz, e se vocês puderem dar uma avaliada seria legal!

Obrigado!

------------------------

No edit aqui eu fiz um progresso, então o código que eu postei aqui foi totalmente modificado,

Eu já consigo que as textbox aparecem e desapareçam, e que mudem de cor conforme o status.

Já fiz também com que a textbox receba o texto de determinada célula.

Agora, o meu problema é a continuidade do código, já que eu estou tendo que repetir ele pra cada célula e textbox.

Me deram uma sugestão de usar um WHILE pra isso, mas não sei como.

Tá assim:

___________________________________________________

'GOV 2012

Select Case Range("R2")

Case 1 To 3:

ActiveSheet.Shapes("GOV_2012").Visible = True

Case Else:

ActiveSheet.Shapes("GOV_2012").Visible = False

End Select

___________________________________________________

Então a textbox "GOV_2012" será visível se a célula R2 tiver um valor de 1-3.

Então, quero fazer uma estrutura de repetição, que escolha a próxima célula(R3)

e que o valor dessa célula estimule a visibilidade de "GOV_20122" e que a célula R4

estimule "GOV_20123" e assim por diante.

Valeu, pessoas!

Editado Setembro 4, 2014 por Awq