Ir para conteúdo
Fórum Script Brasil
  • 0

Setar valor de célula para uma forma


Awq

Pergunta

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!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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
Link para o comentário
Compartilhar em outros sites

  • 0

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 por Awq
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...