Debo repetir una condición para varias columnas, pero debe trabajar hacia atrás de la W a la L
Quisiera que me ayudarán con este problemilla:
Tengo una tabla con los 12 meses en la cual mis columnas siempre son fijas, en un módulo puse este código para que me obtenga el mes actual
Sub OBTENMES() Dim mes As String
'REGISTRA LA ENTRADA DEL MES PARA POSICIONAR A LA CELDA CORRESPONDIENTE
mes = InputBox("Introduce por favor el mes actual usando las primeras tres letras" _ & vbCrLf & _ "Ejemplo: Enero=ENE Diciembre=DIC")
'CONVIERTE A MAYÚSCULAS
mes = UCase(mes)
'BUSCA EL MES OBTENIDO DENTRO DEL RANGO
Range("L1:W1").Find(What:=mes, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
End Sub
Lo que deseo hacer es que me cumpla esta condición
"SI=(MESACTUAL<0,MESANT+MESACTUAL,MESACTUAL))"
Donde si mi mes actual que obtiene mediante el inputbox es menor que 0 entonces a la columna anterior le sume la cantidad de la celda actual, y así sucesivamente hacia atrás hasta que obtenga un número positivo, en caso de que el numero encontrado en el mes actual sea positivo que se quede con su valor normal, pero que busque en las columnas anteriores cualquier saldo negativo, hasta que llegue al final de los registros.
Entonces todos los números negativos que me entrega como resultado debo cambiarlos a 0