Logo Hardware.com.br
Matheus Rodrigues95
Matheus Rodr... Membro Junior Registrado
60 Mensagens 5 Curtidas

[Resolvido] Código VBA condicional (IF)

#1 Por Matheus Rodr... 17/02/2020 - 18:56
Caros,

Estou com um problema, devido ao pouco conhecimento na ferramenta VBA.

Gostaria de uma correção ou automação no meu código criado.

Como criar uma condição para que as células cujo valor que seja maior que 28800 se converta em 28800 e todos que forem maior que 28800 se mantenha com o valor original (Sem se alterar) no intervalo "A3:AE24" . Consegui fazer apenas em uma célula por vez.

Segue anexo e o código.

Sub Mudar()
Range("A3").Activate
If Range("A3") <= 28800 Then
Range("A3").Activate
Else
Range("A3").Value = 28800
End If
End Sub

Anexos

P@tropi
P@tropi Highlander Registrado
3.4K Mensagens 2.6K Curtidas
#2 Por P@tropi
18/02/2020 - 09:26
Bom dia Matheus

Experimente o código abaixo:
OBS.: Considerei que o segundo critério é menor que 28800.

Sub MudaValores()
Dim c As Range
For Each c In Range("A3:AE24&quot
c.Value = Application.Min(28800, c.Value)
Next c
End Sub


Dê retorno.

Se foi útil, clique em Curtir.
Se a dúvida foi sanada, edite o título da tua primeira mensagem e selecione a opção Resolvido.

[]s
Se foi útil, clique em Curtir.
Devemos combater o Comunismo ou qualquer doutrina totalitária.
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal