Macro desde una celda
necesito que una macro me aumente en 30 unidades una serie de celdas consecutivas de una columna, indicando previamente desde que celda a de comenzar.
la respuesta obtenida, funciona perfectamente, que modificaciones tendríamos que hacer para que sumara horas y minutos.
Disculpa Dam.
Modificaciones en:
Sub suma30()
'por.dam
lin = ActiveCell.Row
col = ActiveCell.Column
For i = lin To Cells(Rows.Count,col).End(xlUp).Row
IF IsNumeric (Cells (i,col)) Then
Cells (i,col) = Cells (i,col) + 30
End.IF
Next.
End.Sub
para que pueda sumar horas y minutos con formato 00:00
Si lo que quieres es sumar horas en las celdas, modifica esta línea
Cells (i,col) = Cells (i,col) + 30
por esta
Cells (i,col) = Cells (i,col) + "00:30:00" esto sumaría 30 minutos.
Estoy suponiendo que en Cells (i, col) hay valores de hora.
