Este fórum está sendo desativado

[Diego100ges]

Boa tarde pessoal.
Estou usando essa macro:
Sub Calc_PDV()
'

' Calc_PDV
'
Range("R27").GoalSeek Goal:=Range("E3"), ChangingCell:=Range("J27")
'
End Sub

Porém ela serve para uma única célula, gostaria que ela acontecesse em todas as outras linhas abaixo dela também, alguém sabe me dizer como fazer isso?

[Jimmy]

Olá @Diego100ges ,

Você não deu detalhes, como por exemplo, a partir de qual linha, ou até que linha vai o cálculo, ou ainda se E3 é fixa para todas as linhas ou não.

O código abaixo lhe dará uma ideia de como fazer o cálculo para diversas linhas. Estipulei por minha conta, da linha 27 até a 72, sendo o valor de referência em E3 fixa.

Sub Calc_PDV()
For Lin = 27 To 72
Range("R" & Lin).GoalSeek Goal:=Range("E3"), ChangingCell:=Range("J" & Lin)
Next
End Sub

Informe mais detalhes para que o código seja ajustado.

Peço a gentileza de dar um retorno com relação ao seu outro tópico:
viewtopic.php?f=12&t=8515
Se a resposta ajudou, clique em POSITIVO.
Se a questão está resolvida, clique em MARCAR RESOLVIDO.
Essas duas ações são importantes para o bom andamento do fórum.

Obrigado,

Jimmy San Juan

[Diego100ges]

Jimmy, não funcionou, apresenta um erro nessa linha :
Range("R" & Lin).GoalSeek Goal:=Range("E3"), ChangingCell:=Range("J" & Lin)

Desculpe pela falta de informações, sim a E3 é fixa, e a quantidade de linhas vai estar sempre variando.