Ir ao conteúdo
  • Cadastre-se
ad48

Macro disparar quando o procv atualiza celula

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não sei se entendi o que você quer :confused:

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

 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
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)))))))

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Te devo mais uma grande professor Osvaldo,

muito obrigado.

 

 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×