Código VBA condicional (IF)

Question

Caros,

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

Gostaria de uma corre&ccedil;&atilde;o ou automa&ccedil;&atilde;o no meu c&oacute;digo criado.

Como criar uma condi&ccedil;&atilde;o para que as c&eacute;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&eacute;lula por vez.

Segue anexo e o c&oacute;digo.

Sub Mudar()
    Range(A3).Activate
    If Range(A3)

Answer

Bom dia Matheus

Experimente o c&oacute;digo abaixo:
OBS.: Considerei que o segundo crit&eacute;rio &eacute; menor que 28800.

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

D&ecirc; retorno.

Se foi &uacute;til, clique em Curtir.
Se a d&uacute;vida foi sanada, edite o t&iacute;tulo da tua primeira mensagem e selecione a op&ccedil;&atilde;o Resolvido.

[]s

Answer

[QUOTE=P@tropi, post: 8298163, member: 743236]Bom dia Matheus

Experimente o c&oacute;digo abaixo:
OBS.: Considerei que o segundo crit&eacute;rio &eacute; menor que 28800.

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

D&ecirc; retorno.

Se foi &uacute;til, clique em Curtir.
Se a d&uacute;vida foi sanada, edite o t&iacute;tulo da tua primeira mensagem e selecione a op&ccedil;&atilde;o Resolvido.

[]s[/QUOTE]

Bom dia,

Muito obrigado, ajudou muito !!!

Ferramentas

Mover Tópico