Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Manipular Controle por Variável

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
lima27
Colaborador
Colaborador
Mensagens: 33
Registrado em: Qua Mar 30, 2016 2:43 pm

[RESOLVIDO] Manipular Controle por Variável

Mensagem por lima27 »

Boa tarde, pessoal

Estou com um problema e não consigo resolver.
Gostaria de manipular o valor de um controle utilizando variáveis.

Na célula A1 de uma Sheet tenho o nome do controle "optionbutton1" (mas pode ser optionbutton2, optionbutton3 e optionbutton4)

Tenho um formulário com as options buttons citadas acima (01 a 04). Quando abro o formulário, gostaria que o nome da option button fosse identificado na célula A1 e essa apresentasse o value = True.

Então fiz assim, mas não funcionou:

Código: Selecionar todos

 Private Sub UserForm_Initialize()

Dim OPT As Object
OPT = Worksheets("Pasta 1").Range("A1").Text

    OPT.Value = True

End Sub 
Alguém pode me ajudar?
Editado pela última vez por lima27 em Sáb Out 01, 2016 9:32 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Manipular Controle por Variável

Mensagem por Mikel Silveira Fraga »

Lima, boa noite.

Tente com o código abaixo:

Código: Selecionar todos

Private Sub UserForm_Initialize()

Dim OPT As Object
Dim nomeControl As String

nomeControl = Worksheets("Plan1").Range("A1").Text

Set OPT = Me.Controls.Item(nomeControl)
OPT.Value = True

End Sub
Teste e nos retorne.

Abraços e bom final de semana.


lima27
Colaborador
Colaborador
Mensagens: 33
Registrado em: Qua Mar 30, 2016 2:43 pm

Re: Manipular Controle por Variável

Mensagem por lima27 »

Prezado Mikel,

Funcionou perfeitamente bem!
Muito obrigado!

Um abraço,
Mikel Silveira Fraga escreveu:Lima, boa noite.

Tente com o código abaixo:

Código: Selecionar todos

Private Sub UserForm_Initialize()

Dim OPT As Object
Dim nomeControl As String

nomeControl = Worksheets("Plan1").Range("A1").Text

Set OPT = Me.Controls.Item(nomeControl)
OPT.Value = True

End Sub
Teste e nos retorne.

Abraços e bom final de semana.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder