Macro eliminar filas
Experto, favor vuestra ayuda con la siguiente inquietud, tengo un libro de trabajo con 10 hojas, 8 de ellas con nombre variable y dos con el mismo nombre siempre (cuadre y resumen), en las otras 8 quisiera eliminar diferentes filas y no ir hoja por hoja, las filas a eliminar son de la 1 hasta la 5, luego de la 7 hasta 9, luego la 12 y por ultimo de la 15 hasta la 17, les agradeceré me puedan ayudar.-
1 respuesta
Te mando mi solución con esta macro:
Sub proceso()
'por luismondelo
For Each hoja In Sheets
If hoja.Name <> "cuadre" And hoja.Name <> "resumen" Then
hoja.Select
ActiveSheet.Range("a1:a5;a7:a9;a12;a15:a17").EntireRow.Select
Selection.Delete
End If
Next
End Subrecuerda finalizar
Estimado, gracias por la pronta respuesta pero tengo un problema con esta macro me arroja un, error definido por la amplicación objeto 1004
El error lo arroja la siguiente linea
ActiveSheet.Range("a1:a5;a7:a9;a12;a15:a17").EntireRow.Select
Acabo de probar la macro y funciona perfectamente. Inténtalo y me cuentas
