Macro para eliminar filas o columnas indicando Rango

Los miembros de este foro, quisiera su ayuda en una macro que me permita eliminar las filas o columnas indicando un rangos, para lo cual adjunto archivo y las que quiero eliminar son las de color amarillo, y el diseño seria algo así:
¿Qué deseas eliminar Filas o Columnas?
Respuesta Filas
Luego: ¿Indicar Rango?
A66 hasta A79 (claro que pueden ser mas filas y algo similar para las columnas).
O una macro mas sencillas que haga un rastreo y que busque las celdas vacías desde B8 hasta la antepenúltima fila del Total, osea las que se encuentran de color amarillo, espero haberme explicado.

https://app.box.com/s/thaxpl448soeoz453pt49f51zhpfqh7y

1 Respuesta

Respuesta
1

 H o l a:

Te anexo la macro para eliminar las filas en amarillo:

Sub EliminaFilas()
'Por.Dante Amor
    u = Range("B" & Rows.Count).End(xlUp).Row
    u2 = Range("K" & Rows.Count).End(xlUp).Row
    If u2 - 1 > u Then
        Rows(u + 1 & ":" & u2 - 1).Delete
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas