Como pasar una fórmula a VBA EXCEL

Quisiera de favor me pudieran apoyar a como pasar una fórmula a código vba.

Mi archivo cuenta con 2 columnas "FECHA" y "STATUS" lo que necesito es que en la 3er columna tenga un status diferente con las siguientes condiciones:

Si la columna "FECHA" es menor a la fecha del día actual, en la 3er columna STATUS 2, aparezca "VENCIDO", de lo contrario si es mayor aparezca "EN TIEMPO", pero si la columna STATUS es igual a "LIQUIDADO" en STATUS 2 aparezca "LIQUIDADO".

La fórmula que realice es la siguiente

=SI(B2="LIQUIDADO","LIQUIDADO", SI(A2<$F$2,"VENCIDO","EN TIEMPO"))

El archivo puede variar en las filas ya que no siempre serán las mismas, por eso ocupo que sea con macro, por si en alguna ocasión el archivo tiene 100 filas o 1000

¿Podrían ayudarme de favor?

Un abrazo. Grac. Ias

2 respuestas

Respuesta
1

Te anexo la macro

Sub Poner_Estatus()
    With Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=IF(RC[-2]=""LIQUIDADO"",""LIQUIDADO"", IF(RC[-3]<R2C6,""VENCIDO"",""EN TIEMPO""))"
    End With
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

[

Respuesta
1

Esto puede ayudar en algo

https://youtu.be/Es7JSOw-1zY

https://www.programarexcel.com/2016/09/como-usar-if-then-else-en-macro.html 

https://www.programarexcel.com/2016/09/como-usar-intruccion-select-case-en.html 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas