Atingir Meta

[Boudais]

Olá, bom dia

 

Estou tentando criar uma VBA para executar uma função de "atingir meta" para várias linhas, porém só consegui para uma por enquanto.

 

"Sub Botão1_Clique ()

'

' Botão1_Clique Macro

'

'

Range("E4").GoalSeek Goal:=Range("F4"), ChangingCell:=Range("B4")

End Sub

 

Att.

 

 

Atingir MetaR0.xlsx

[Visitante]

Experimente:

Sub Botão1_Clique() Dim gs As Range  For Each gs In Range("F4", Cells(Rows.Count, "F").End(xlUp))   gs.Offset(, -1).GoalSeek Goal:=gs.Value, ChangingCell:=gs.Offset(, -4)  Next gsEnd Sub

 

[Boudais]

oswaldomp.

 

Excelente, funcionou perfeitamente.

 

Muito obrigado