Macro Atingir meta

[BernardorValle]

Bom dia a todos, estou trabalhando em um simulador e gostaria de fazer uma alteração na macro

 

Atualmente ela realiza o atingir metas e quando o valor da célula é igual a " ", ele para a macro.

 

Sub ValorSugeridoTabelaMg()

    For Each cll In Range("AA6:AA60")

    If cll.Value = "" Then Exit Sub

        cll.GoalSeek Goal:=cll.Offset(0, 1), ChangingCell:=cll.Offset(0, -18)

    Next cll

End Sub

 

 

 

Eu gostaria que a macro continuasse, ignorando a célula que for igual a " ".

 

Acredito que deveria envolver "next" , mas não sei como configurar.

 

 

Obrigado.

 

 

Tentei fazer assim

Sub ValorSugeridoTabelaMg2()

    For Each cll In Range("AA6:AA60")

    If cll.Value <> "" Then

        cll.GoalSeek Goal:=cll.Offset(0, 1), ChangingCell:=cll.Offset(0, -18)

    End If

    Next cll

End Sub

 

e mesmo assim o erro persistiu.

[Visitante]

Olá, Bernardo.

 

No segundo código que você postou acima o 'loop' não será finalizado ao encontrar uma célula vazia.

Qual o problema que você está enfrentando?

Sugestão - disponibilize uma amostra do seu arquivo com o código instalado e coloque na própria planilha as explicações.

[BernardorValle]

Obrigado já pensei em uma maneira que na própria fórmula já daria.

 

At.