Página 1 de 1

Condições para exercutar macros

Enviado: 01 Set 2019 às 14:59
por Pessoa
Pessoal, precisava que um código onde cada condição ocorresse uma macro seja acionada. Quando determinada celula seja preenchida com um valor colado chama uma macro. Tentei com codigo abaixo mas só realizar a primeira macro. Quando as proximas celulas são preenchidas as demais macros nao sao acionadas

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$L$8960" Then
Call ImportaCadastro2
If Target.Address = "$L$17960" Then
Call ImportaCadastro3
If Target.Address = "$L$26960" Then
Call ImportaCadastro4
If Target.Address = "$L$35960" Then
Call ImportaCadastro5
If Target.Address = "$L$44960" Then
Call ImportaCadastro6
If Target.Address = "$L$53960" Then
Call ImportaCadastro7
If Target.Address = "$L$62960" Then
Call ImportaCadastro8

End If

End Sub

Condições para exercutar macros

Enviado: 01 Set 2019 às 16:28
por Falcao98
Boa Tarde!
Amigo, em vez de usar vários IFs, tenta usar ElseIf. Vai resolver seu caso. Seu código, vai ficar da seguinte forma:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$L$8960" Then
Call ImportaCadastro2
ElseIf Target.Address = "$L$17960" Then
Call ImportaCadastro3
ElseIf Target.Address = "$L$26960" Then
Call ImportaCadastro4
ElseIf Target.Address = "$L$35960" Then
Call ImportaCadastro5
ElseIf Target.Address = "$L$44960" Then
Call ImportaCadastro6
ElseIf Target.Address = "$L$53960" Then
Call ImportaCadastro7
ElseIf Target.Address = "$L$62960" Then
Call ImportaCadastro8

End If

End Sub

Espero ter ajudado!

Re: Condições para exercutar macros

Enviado: 02 Set 2019 às 20:19
por Pessoa
Maravilha Falcão. MUito obrigado