Hacer macro que realice tres acciones
Disculpa que te moleste nuevamente mrtool, pero necesito urgente la siguiente ayuda de los archivos que te envíe, si te diste cuenta en una hoja de exception report aparecen varias tablas con los mismos campos o títulos, entre cada tabla existen filas vacías, lo que quiero hacer es implementar una macro que me elimine todas las filas vacías y eliminar los títulos de las otras tablas también, esto es para que me quede todo como una tabla, lo estado intentando de hace pero mi macro me va eliminando de a poco las filas cuando la aplico 4 veces me deja la tabla así general como yo la quiero y la idea es hacerlo de una te envío mi macro haber si la puedes arreglar:
Sub Eliminar_filas_vacias()
Application.ScreenUpdating = False
Range("c3").Select
For i = 1 To 1000
If ActiveCell = "" Or IsNull(ActiveCell) Or ActiveCell = "Error Code" Then
Selection.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
Ahora si te fijas en el archivo que te envíe hay varias celdas vacías en los campos Truck y Duration entonces la idea es crear una macro que me autocomplete esa información que falta con la ultima información información disponible algo así:
truck duration error code
CE_10 0:05:59 5109
5104
CE_03 0:00:03 4515
Y lo autocomplete así
CE_10 0:05:59 5109
CE_10 0:05:59 5104
CE_03 0:00:03 4515
Si te das cuenta solamente truck y duration van a estar vacías, error code no, esto es solamente unas cuantas celdas en otras partes si te fijas en el excel que te envíe hay como 5 o 6 o más filas con celdas vacías entonces no se si me puedas ayudar a realizar este favor de idear una macro para autocompletar o autocopiar a las celdas vacías con la ultima información disponible, esta es la segunda acción de la macro
La tercera es hacer 2 inpubox, en el primero debo ingresar la fecha y la fecha que ingrese se debe copiar en toda la columna correspondiente a fecha la fecha que yo ingrese al inputbox, la segunda es para ingresar el turno (día o noche) y hacer exactamente lo mismo que la primera, pero para eso la macro debe saber cuantas filas con información hay para que no me las copie en toda la columna sino hasta donde este la información, bueno amigo eso seria disculpa la molestia nuevamente yo actualmente estoy trabajando para pasar los datos del exception report al libro donde almacenaré los datos así como tu me dijiste desde ya gracias amigo y espero ansioso tu respuesta.
Sub Eliminar_filas_vacias()
Application.ScreenUpdating = False
Range("c3").Select
For i = 1 To 1000
If ActiveCell = "" Or IsNull(ActiveCell) Or ActiveCell = "Error Code" Then
Selection.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
Ahora si te fijas en el archivo que te envíe hay varias celdas vacías en los campos Truck y Duration entonces la idea es crear una macro que me autocomplete esa información que falta con la ultima información información disponible algo así:
truck duration error code
CE_10 0:05:59 5109
5104
CE_03 0:00:03 4515
Y lo autocomplete así
CE_10 0:05:59 5109
CE_10 0:05:59 5104
CE_03 0:00:03 4515
Si te das cuenta solamente truck y duration van a estar vacías, error code no, esto es solamente unas cuantas celdas en otras partes si te fijas en el excel que te envíe hay como 5 o 6 o más filas con celdas vacías entonces no se si me puedas ayudar a realizar este favor de idear una macro para autocompletar o autocopiar a las celdas vacías con la ultima información disponible, esta es la segunda acción de la macro
La tercera es hacer 2 inpubox, en el primero debo ingresar la fecha y la fecha que ingrese se debe copiar en toda la columna correspondiente a fecha la fecha que yo ingrese al inputbox, la segunda es para ingresar el turno (día o noche) y hacer exactamente lo mismo que la primera, pero para eso la macro debe saber cuantas filas con información hay para que no me las copie en toda la columna sino hasta donde este la información, bueno amigo eso seria disculpa la molestia nuevamente yo actualmente estoy trabajando para pasar los datos del exception report al libro donde almacenaré los datos así como tu me dijiste desde ya gracias amigo y espero ansioso tu respuesta.
1 respuesta
Respuesta de mrtool
1