Quiero completar el tiempo en la siguiente celda vacía, pero la función End(xlUp) me lleva a la última celda activa, y End(xlDown) me lleva a la última celda del gráfico.
¿Qué debo hacer? por favor, ayúdame
Aquí está el código que escribí para encontrar la última celda de la columna "F".
Function insertTime() Range("F").End (xlUp) = Now() End FunctionSi su hoja está vacía, se llevará a la última fila. Si tiene datos en la F Column , los llevará a la última celda. Prueba los siguientes códigos
Sub insertTime() Cells(Rows.Count, "F").End(xlUp).Offset(1, 0) = Now() End SubOffset() al rescate: estés donde estés, puedes usar Offset() para mover una celda a la izquierda ( Offset(0,-1) ), a la derecha ( Offset(0,1) ), arriba ( Offset(-1,0) ) o hacia abajo ( Offset(1,0) ), y obviamente puedes usar otros números: Offset(1,2) , Offset(2,-1) , ... son formas de saltar como un caballo en un tablero de ajedrez :-)
Para su aplicación, creo que esto (o uno similar) podría ayudarlo:
Sube y a la derecha:
Range("F:F").End (xlUp).Offset(0,1) = Now()Ir hacia abajo y uno más profundo:
Range("F1").End (xlDown).Offset(1,0) = Now()...