Skip to main content
2 de 5
adicionou 197 caracteres ao conteúdo; título editado
b8engl
  • 301
  • 5
  • 15

Como procurar numa coluna por valor =< 200 (executar comando)?

Pretendo procurar linha a linha dentro da coluna P:P um número inferior ou igual a 200 e executar um comando. Se for superior a 200 executar outro. Os valores estão definidos assim 0.00.

If .Value =< 200 Then

ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+30%)"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)

ElseIf .Value > 200 Then

ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+40%)"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)

End If
b8engl
  • 301
  • 5
  • 15