Este fórum está sendo desativado

[lecipriano]

Galera, bom dia
Vejam se vocês podem me ajudar, preciso fazer uma macro utilizando a função atingir meta para zerar determinada coluna, utilizei o código abaixo, mas, não está correto...

Sub preco_venda()

Dim i As Single
Dim n As Single

i = 2
n = (Cells(2, 3) - Cells(2, 4))

Do While n <> 0
Cells(i, 5) = n
Cells(i, 3).GoalSeek Goal:=Cells(i, 4), ChangingCell:=Cells(i, 2)

i = i + 1
Loop

End Sub

[LuizSegecs]

Boa noite!
Confesso que não consegui entender muito bem...mas dá uma olhada se essa macro é algo parecido com o que você quer.

[lecipriano]

Olá, Luiz
Obrigado pela ajuda, eu resolvi este problema com o seguinte código abaixo:

Sub preco_venda()
Dim i As Single
i = 2
Do While Cells(i, 5) <> ""
Cells(i, 3).GoalSeek Goal:=Cells(i, 4), ChangingCell:=Cells(i, 2)

i = i + 1
Loop

MsgBox "Cálculo Executado", vbExclamation
End Sub