Notifications
Clear all

Desbloquear Optionbutton

6 Posts
2 Usuários
0 Reactions
1,256 Visualizações
(@paulitotavares)
Posts: 36
Eminent Member
Topic starter
 

Boa tarde

Gostaria de saber se existe algum comando para desbloquear alguns Optiobutton, através da colocação de um determinado valor numa TextBox.

Informo ainda que nas propriedades dos referidos Optiobutton, na parte Locked, eu tenho True, pois quero que estejam sempre bloqueados e que desbloqueem apenas quando inserir um valor

cumprimentos

 
Postado : 17/04/2013 10:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Precisaria de mais detalhes quando diz "alguns Optiobutton", mas o principio é o abaixo :

If TextBox1.Text = 1 Then
    OptionButton1.Locked = True
    Else
    OptionButton1.Locked = False
End If

Veja se as dicas no link abaixo ajudam, é referente a um formulário com varios optionbuttom, é só adaptar com a instrução acima :
Limpar formulário que tem botões de opção
viewtopic.php?f=23&t=7716

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2013 10:27 am
(@paulitotavares)
Posts: 36
Eminent Member
Topic starter
 

O que pretendo é que todos os Optionbutton dentro de um determinado frame, desbloqueem apenas quando inserir o valor 100 numa textbox por exemplo

 
Postado : 17/04/2013 10:31 am
(@paulitotavares)
Posts: 36
Eminent Member
Topic starter
 

If txtNCrime.Value = Sheets("Validacao").Range("l2:l17").Select Then
OptionButton6.Locked = False
OptionButton7.Locked = False
OptionButton8.Locked = False
OptionButton9.Locked = False
OptionButton10.Locked = False
OptionButton11.Locked = False
OptionButton12.Locked = False
OptionButton13.Locked = False
OptionButton14.Locked = False
Else
OptionButton6.Locked = True
OptionButton7.Locked = True
OptionButton8.Locked = True
OptionButton9.Locked = True
OptionButton10.Locked = True
OptionButton11.Locked = True
OptionButton12.Locked = True
OptionButton13.Locked = True
OptionButton14.Locked = True
End If

Este código não me dá certo, pois desbloqueia logo que inicio novo registo mesmo com valor diferente do intervalo em questão.
Penso agora poder ser mais aberto na pergunta.
O que pretendo é que o valor txtNCrime seja igual aos valores do intervalo Sheets("Validacao").Range("l2:l17") e então desbloquear os OptioButton.

 
Postado : 17/04/2013 12:19 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no arquivo anexo se não é o que está "procurando"
As Rotinas "Acha" e "Marca", baseado no valor constante no labelAt

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2013 4:06 pm
(@paulitotavares)
Posts: 36
Eminent Member
Topic starter
 

Obrigado, pela ajuda.

 
Postado : 05/05/2013 7:41 am