- 20 Out 2019 às 13:40
#49418
Olá pessoal, não sou perito em Excel VBA e estou tendo um problema que não encontro solução. Por favor se puderem me ajudar..
Criei uma planilha e montei um calendário de trabalho, onde em cada dia da semana coloquei um ComboBox que define se é trabalho de Dia, de Noite, Folga e etc. Quando eu mudo o ComboBox para um valor ele executa uma macro que altera as cores e valores daquele determinado dia. Tudo funcionou perfeitamente até eu precisar Salvar, Fechar e Abrir novamente.
O Excel ta executando todas as macros quando abro automaticamente, sendo que era para executar apenas quando o valor do ComboBox fosse alterado. Sendo assim acredito que o valor do ComboBox esta sendo alterado toda vez que abro o documento. Acho que deve ser por que ele carrega a lista de valores do ComboBox e vai executando pois esta suportalmente "alterando". Alguem sabe me dizer como corrigir isso?? Quero que ele só execute quando eu MANUALMENTE alterar o ComboBox. Grato.
Criei uma planilha e montei um calendário de trabalho, onde em cada dia da semana coloquei um ComboBox que define se é trabalho de Dia, de Noite, Folga e etc. Quando eu mudo o ComboBox para um valor ele executa uma macro que altera as cores e valores daquele determinado dia. Tudo funcionou perfeitamente até eu precisar Salvar, Fechar e Abrir novamente.
O Excel ta executando todas as macros quando abro automaticamente, sendo que era para executar apenas quando o valor do ComboBox fosse alterado. Sendo assim acredito que o valor do ComboBox esta sendo alterado toda vez que abro o documento. Acho que deve ser por que ele carrega a lista de valores do ComboBox e vai executando pois esta suportalmente "alterando". Alguem sabe me dizer como corrigir isso?? Quero que ele só execute quando eu MANUALMENTE alterar o ComboBox. Grato.
Código: Selecionar todos
Private Sub ComboBox2_Change()
If ComboBox2.Value = "Dia" Then
Call MHC02
ElseIf ComboBox2.Value = "Noite" Then
Call MYC02
ElseIf ComboBox2.Value = "Folga Remunerada" Then
Call MUC02
ElseIf ComboBox2.Value = "Folga" Then
Call MFC02
ElseIf ComboBox2.Value = "Falta" Then
Call MAC02
ElseIf ComboBox2.Value = "Feriado" Then
Call MEC02
Else
Call MBC02
End If
End Sub