Insertar filas con macros

Hola, espero me puedan ayudar, tengo datos horarios de cada mes del año, pero no están completos, por ejemplo, tengo en la primer columna "2001 abril 01" y en la segunda "00:00" y después "2001 abril 03" "19:10", entonces necesito una macro que encuentre donde no sigue de forma consecutiva y que ahí inserte filas con el tiempo faltante.

1 Respuesta

Respuesta
1
Falta un poco de claridad en tu pregunta, pero intentaré ayudarte.
Voy a asumir que en, 'encuentre donde no sigue de forma consecutiva', te refieres a la fila que está a continuación de tus últimos datos.
Supongamos que tus datos están a partir de la celda A1.
Dentro de tu código escribe lo siguiente:
Dim oRange as Range
Dim cRow as Long
Set oRange=Range("A1").CurrentRegion
cRow = oRange.Rows.Count + 1
Cells(cRow, 1) = Variable 'Aquí asignas el valor que desees a la la celda que sigue al último dato de tu lista, en la columna 1 (A).
Si lo que quieres es agregar los datos en la columna a la derecha, sol tienes que asignar la variable cColumn así (en lugar de cRow):
cColumn = oRange.Columns.Count + 1
Suerte
Muchas gracias ghod, intentaré hacerlo, pero también pienso que mi pregunta no fue clara, pero abajo te pongo un ejemplo. Los minutos son los que tienen que llevar una secuencia, así que necesito que la macro identifique el minuto faltante e inserte filas donde haga falta con su respectivo año, mes y día.
2005 Ene 01 05:40 2 1 1.16666662005
2005 Ene 01 06:00 349 332 1.444444444
2005 Ene 01 09:10 342 344 0.944444444
2005 Ene 01 09:20 345 340 1.138888889
2005 Ene 01 09:30 10 352 1.083333333
Muchas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas