Este fórum está sendo desativado

[Diego100ges]

Boa tarde pessoal.
Estou com uma macro aqui, e gostaria de entender melhor o que ela faz, ela é a seguinte

Sub Calc_PDV()
'

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

Então ela pega o R27 que é 40%, ai pega o E3 que também é 40% e me retorna um valor da na j27 que é de 420,08.

Alguem sabe me dizer o que aconteceu aqui?

Atenciosamente.

[Jimmy]

Vou fazer uma "tradução" da instrução, sem saber o que faz a planilha.

O Excel vai, por conta própria, alterar o conteúdo de J27, na base da tentativa e erro (tem na verdade algoritmos envolvidos), até que o valor da célula R27 fique igual ao da E3.

Essa função na planilha, você encontra no menu DADOS / TESTE COM HIPOTESES / ATINGIR META.
Dependendo da versão do Excel, o ATINGIR METAS pode estar em outro lugar.

Jimmy San Juan

[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:
http://gurudoexcel.com/forum/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, consegui entender com o Atingir Meta.
Muito obrigado!