Caixa de seleção co...
 
Notifications
Clear all

Caixa de seleção com macro

7 Posts
2 Usuários
0 Reactions
1,391 Visualizações
(@gadeacesar)
Posts: 0
New Member
Topic starter
 

Bom dia a todos

Estou com um pequeno problema, que não consigo resolver.
Criei uma caixa de seleção, e quero que ao ser selecionada ela deixe um texto, que está em outra aba, em negrito.
Mas, se por algum erro, o usuário da planilha selecionou por engano a caixa de seleção e quer desmarca-la, quero que a linha que havia ficado em negrito volte a ficar normal.

Conseguir fazer uma macro que ao clicar na caixa de seleção transforma em negrito a linha referente a essa caixa de seleção, mas ao desclicar nada acontece.

Alguém me ajude....por favor!!!
Já to a 3 dias nesse situação!!!
abs

 
Postado : 15/12/2014 7:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Qual a rotina/função utilizada para negritar??

 
Postado : 15/12/2014 8:07 am
(@gadeacesar)
Posts: 0
New Member
Topic starter
 

Oi Reinaldo
Então, fiz de forma básica mesmo. Os passos que segui foram os seguintes:
Cliquei com o botão direito na caixa de seleção, atribui uma macro, e lá gravei.
Indo para a aba que tinha a linha que queria grifar, selecionei ela e apertei aquele N (botão lá em cima que aparece para deixar o texto em negrito)
Voltei para a aba onde está a caixa de seleção e parei a gravação.
Ai quando eu marco a caixa de seleção, a linha fica em negrito, mas quando desmarco ela, a linha continua em negrito.
Queria que ela voltasse ao normal se o usuário desmarcar.

 
Postado : 15/12/2014 11:42 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Então faça o mesmo roteiro para voltar a fonte ao normal.
Depois na macro inicial faça algo assim:

If seucheckbox checked=true then
copie/escreva aqui a rotina que negrita
else
copie/escreva aqui a rotina que volta a fonte ao normal
end if
 
Postado : 15/12/2014 12:45 pm
(@gadeacesar)
Posts: 0
New Member
Topic starter
 

Então faça o mesmo roteiro para voltar a fonte ao normal.
Depois na macro inicial faça algo assim:

If seucheckbox checked=true then
copie/escreva aqui a rotina que negrita
else
copie/escreva aqui a rotina que volta a fonte ao normal
end if

Tentei e não consegui.
O código que fiz antes era esse
Sub Caixadeseleção13_Clique()
'
' Caixadeseleção13_Clique Macro
'

'
Sheets("DESCRIÇÃO DE REFERÊNCIAS").Select
Selection.Font.Bold = True
Sheets("Créditos").Select
End Sub

Desculpe a ignorância, mas não sei nada de VBA :(

 
Postado : 15/12/2014 1:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde GadeaCesar

Eu excluí uma das mensagens em sequência.
Nos fóruns não é permitido mensagens em sequência sem ter passado pelo menos 12 horas.

Quanto a tua dúvida, se você tive se anexado um exemplo da planilha o Reinaldo já teria resolvido a tua dúvida.

[]s

Patropi - Moderador

 
Postado : 15/12/2014 1:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Com o exemplo seria mais simples.
Acho que está utilizando um controle Activex
experimente

Private Sub CheckBox21_Click()
If checkbox23.Value = True Then
    Sheets("DESCRIÇÃO DE REFERÊNCIAS").Select
    Selection.Font.Bold = True
    Sheets("Créditos").Select
Else
    Sheets("DESCRIÇÃO DE REFERÊNCIAS").Select
    Selection.Font.Bold = False
    Sheets("Créditos").Select
End Sub
 
Postado : 15/12/2014 2:18 pm