Excel VBA - Atingir Meta no Excel

[Euler Rodrigues]

Olá pessoa boa tarde,

 

Gostaria de uma ajuda no seguinte código, para Atingir Meta no Excel.

 

Assim ele atualizará a Coluna H para 0 e achara o valor da coluna F.

 

O código é o seguinte que estou tentando realizar:
-------------------------------------------------------------------------------------------------------

Sub META()
'
' META Macro
'
' Atalho do teclado: Ctrl+Shift+X
'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("H208").GoalSeek Goal:=0, ChangingCell:=Range("F208")
End Sub

-------------------------------------------------------------------------------------------------------
Este código dá certo somente para a Linha 208, como faço para realizar dá linha (208 até 987) nas mesmas colunas!!!

Obrigado.

[CasaDoHardware]

Tenta trocar Range("H208") por activecell.row.

 

E

 

Range("F208") por activecell.

 

Isso vai fazer o Codigo rodar na linha ativa.

 

Edit

 

Se nao funcionar como você deseja altere activecell.row e activecell.

 

Application.cutcopymode você pode apagar.

[lucasleite95]

Bom dia! Será que alguém poderia me ajudar, por favor
Eu tenho uma planilha de RPA
Até achei algumas fórmulas com o VBA para atingir meta
Eu queria incluir um botão "Para achar o valor bruto com o líquido, clique aqui"
Que ele abrisse uma janela para incluir o valor líquido

Esse valor sempre vai achar o AU30
Alternando o H9
Para o valor digitado...

Seria possível adequar a fórmula do colega para essa função?

 

[Patropi]

@lucasleite95 , Bom dia

 

Na próxima vez crie um novo tópico não aproveite tópico dos outros para suas dúvidas.

Para facilitar anexe o arquivo Excel aqui no fórum, demonstrando manualmente o resultado esperado.

 

[]s