Este fórum está sendo desativado

[Anderson01]

Olá, pessoal!
Gostaria de uma ajuda com a minha dúvida, tenho uma tabela com formulas que retornam 0 ou 1 de acordo com algumas condições. Eu gostaria de substituir as formulas pelos valores, mas somente quando o resultado da formula for 1. Como poderia fazer isso?

Anexo adicionei um exemplo, os ícones verdes são os números 1 e os vermelhos são o 0.

[Anderson01]

Olá!
Alguém tem alguma ideia??

[osvaldomp]

Olá, Anderson.

O que você deseja fazer requer o uso de macros.

Experimente o código abaixo.

Sub InsereUm()
Dim r As Range
For Each r In [F2:AL9]
If r.Value = 1 Then r.Value = 1
Next r
End Sub

[Anderson01]

Funcionou! Muito obrigado Osvaldo!
No caso, esse processo precisa acontecer em tres abas diferentes, como eu faria isso?

[osvaldomp]

No caso, esse processo precisa acontecer em tres abas diferentes, como eu faria isso?

opção1 - o código que passei antes irá atuar SEMPRE na planilha ativa, então você pode ativar cada planilha de interesse e rodar o código.

opção2 - se ao rodar o código você quiser processar mais de uma planilha em sequência, sem depender de qual seja a planilha ativa, então utilize o código abaixo. Independente de qual seja a planilha ativa, o código irá atuar nas planilhas cujos nomes estejam colocados na matriz (Array) do código.
Considerei que o intervalo a ser processado nas três planilhas será F2:AL9.

Sub InsereUmV2()
Dim r As Range, ws As Worksheet
For Each ws In Worksheets(Array("Planilha1", "Planilha2", "Planilha3")) 'altere os nomes das planilhas se necessário
For Each r In ws.[F2:AL9]
If r.Value = 1 Then r.Value = 1
Next r
Next ws
End Sub

[Anderson01]

Ótimo, funcionou tudo!
Obrigado pela ajuda!!