Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como rodar o código...
 
Notifications
Clear all

Como rodar o código de forma automática?

 
2024 - VBA & Macros
Post Recente por Trindade 8 anos atrás
9 Posts
2 Usuários
0 Reactions
1,502 Visualizações
RSS
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Bom dia!
Como rodar o código de forma automática?

Sub check_box_observacoes_deposito()

  Dim ws As Worksheet
  Set ws = Worksheets("A")

'Checkbox values are 0 (false), 1 (true), 2 (changed or grey)
    If ws.CheckBoxes("Check Box 84").Value = 1 Then
        MsgBox ("Yay")
        Else: MsgBox ("Aww")
    End If

End Sub
 
Postado : 21/09/2016 6:11 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Bom dia, alanisfcsm.

Quando diz automático, seria ao abrir o arquivo? ao realizar alguma ação no arquivo?
Disponibiliza um arquivo de exemplo, fica mais fácil o entendimento ...

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/09/2016 6:29 am
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Toda vez que clicar.

Teria como fazer o mesmo com os botoes de opção?

:oops:

 
Postado : 21/09/2016 6:43 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Como colocou pouco controle seria mais ou menos assim ...

Quanto a upload depois de uma olhada no tópico http://www.planilhando.com.br/forum/viewtopic.php?f=7&t=203

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/09/2016 6:58 am
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

E quase isso!
Eu tenho várias caixas de seleção e botões de opção na mesma planilha, gostaria de definir quais devem ser consideradas.
Na pressa não expliquei corretamente.
Desculpe pelo upload não ter sido em zip.
:oops:

 
Postado : 21/09/2016 7:05 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Basta adicionar ação para os controles que deseja.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/09/2016 8:07 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Depois de sua ação montada

Adicionar e/ou Remover
1. Clique com o botão direito do mouse sobre o controle que deseja inserir/remover ação
2. Atribuir Macro
3. Em Nome da Macro, selecione uma das macros listadas abaixo ou simplesmente limpe o campo.

Conforme imagem abaixo

No arquivo anexo o "Botão de opção 5" esta sem ação, ao clica nele pode notar que nada ira acontecer, nos demais esta chamando a ação com o Msgbox.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/09/2016 8:19 am
 Fabiano
(@alanisfcsm)
Posts: 0
Trusted Member
Topic starter
 

Cara! explica ai. Como que com apenas esse código ele sabe que eu cliquei na check box?
Funcionou, mas quero entender támbem..

Sub Mensagem()

    MsgBox "Deu certo clicar no controle, executou..."

End Sub
 
Postado : 21/09/2016 10:42 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

:D

Fácil ...
A mesma macro esta associado aos seus controle, na imagem que mandei pra ti você pode associar a mesma macro para um ou mais controles.
No seu caso a macro não vai mudar sempre será a mesma, e conforme os checkbox ou optionbutton selecionado vai alterando os valores mas dentro da mesma macro.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/09/2016 2:57 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico