Macro disparar quando o procv atualiza celula

ad48 · 20 de junho de 2016

boa noite,

tenho um procv que atualiza a celula A1.

cada alteração na célula aciona a macro beleza

teria como fazer quando estiver estes números 20 21 22 23 24 25

disparar um macro pra cada números?

Private Sub Worksheet_Change(ByVal Target As Range)

Static rng As Variant
If IsEmpty(rng) Then

rng = Range("A1")

End If

If rng = Range("A1") Then Exit Sub

Call minhaMacro

rng = Range("A1")

End Sub

Sub minhaMacro()

MsgBox "Minha macro rodou..."

End Sub

muito obrigado

21 de junho de 2016

Não sei se entendi o que você quer

Uma tentativa: no lugar do seu comando Call minhaMacro coloque o trecho de código abaixo.

Select Case Range("A1").Value
  Case 20: Macro20
  Case 21: Macro21
  ' complete até o 25
End Select

Sub Macro20()
  MsgBox "A1 = 20"
End Sub
Sub Macro21()
  MsgBox "A1 = 21"
End Sub

ad48 · 22 de junho de 2016

Osvaldo,

estou postando em anexo

se possível dar uma analisada,fazer alguma correção

porque fiz uma alteração,

a primeira vez que abre o arquivo

o comando funciona só após de varias tentativas.

aceito outra ideia este comando seria só para fazer a soma total de Horas trabalhadas/mês

o mês que não tiver 31 dias aparece valor a formula não soma total.

já estou te devendo uma cerveja bem gelada,

Muito Obrigado

HORAS osvaldo .rar

22 de junho de 2016

31 minutos atrás, ad48 disse:

... este comando seria só para fazer a soma total de Horas trabalhadas/mês

o mês que não tiver 31 dias aparece valor a formula não soma total.

Se você fizer as alterações abaixo nas suas fórmulas, não vai precisar do código que você está tentando montar:

em k6 coloque a fórmula abaixo para somar até a linha 40

=SOMA($K$10:$K$40)

em K38 acrescente a condição em vermelho para a fórmula abaixo não retornar #VALOR se o mês tiver menos de 31 dias, arraste até K40

=SE(D38="";"";SE(T38=$V$4;"Feriado";SE(T38=$V$5;"Folga semanal";SE(R38=$W$6;"Folga semanal";SE(R38=X$6;"Folga semanal";SE(1=P38;"feriado";(J38-I38)+(H38-G38)))))))