Variar el valor de celdas cuando cambie el valor de otra celda
Estoy haciendo una relación de pagos y necesito que cuando cambie la fecha en una celda aumente en 30 días el valor de otra y que solo se aumente 1 vez al mes. Me explico
Tengo en la columna H1 :como titulo "ultima fecha de pago" y en la columna QUE "siguiente pago" y debajo de estas fechasy esto es lo que necesito si por ejemplo
H K
1 25/11/2014 25/12/2014
2 01/02/2015 01/03/2015
3 16/03/2015 16/04/2015
En la fila H2: cambio manualmente la fecha ejem. 26/12/2014 entonces K2 aumente en 30 días resultaría 25/01/2015 y así en toda la columna H.Pero solamente que haga el aumento de días 1 ves por mes. Osea que si cambio de fecha 2 o más veces H1 solamente que se aumente 30 días K2 al mes.. No se si me explique bien,, muchas gracias por su ayuda,, y si no es posible lo que estoy necesitando tal ves de otra forma seria factible..
1 respuesta
Te anexo la macro para poner en los eventos de worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Column <> Columns("H").Column Then Exit Sub
If IsDate(Target.Value) Then
If Cells(Target.Row, "K") = "" Then
Cells(Target.Row, "K") = Target + 30
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
Para que funcione debes guardar tu archivo habilitado para macros. Cada que abras el archivo deberás habilitar las macros.
Agrega una fecha en la columna H para que veas el resultado en la columna K.
Saludos. Dante Amor
Recuerda valorar la respuesta.
Buenas tardes Sr.Dante ante todo muchas gracias por responder,la macro funciona aumenta en 30 días cuando pongo una fecha en la columna H...pero tal ves me explique mal,la columna K ya tiene valores y la macro que anexaste las celdas de la columna K tienen que estar vacías,osea los días que se aumente no se fijan de acuerdo al dato de la columna H,,entonces teniendo valores en la columna K por ejemplo en k3,= 02-04-2015 al momento de cambiar el valor de H3 (cualquiera sea) aumente k3 en 30 días,,,no se si me termino de explicar bien si no por favor hazmelo saber... recuerda que el aumento solo se puede hacer 1 vez al mes,,,,,estoy muy agradecido por su repuesta..y esperando me pueda ayudar con el problema que estoy teniendo muy amable,,gracias
Cambia la macro por esta:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Column <> Columns("H").Column Then Exit Sub
mes = Month(Date)
If Cells(Target.Row, "Z") <> mes Then
If IsDate(Cells(Target.Row, "K")) And Cells(Target.Row, "K") <> "" Then
Cells(Target.Row, "K") = Cells(Target.Row, "K") + 30
Cells(Target.Row, "Z") = mes
End If
End If
End SubEn la columna K deberás tener una fecha para poderla aumentar en 30 días.
Para saber si ya se aumentó la fecha, es necesario utilizar en otra columna un indicador, por ejemplo en la columna "Z" se escribirá el número de mes actual cuando ya se haya aumentado.
Saludos. Dante Amor
Recuerda valorar la respuesta.
