Ayuda con esta macro
Publicado por santi (24 intervenciones) el 06/11/2018 12:57:49
Hola, Buenos días,
Tengo esta macro que elimina filas si tiene el valor ! en la columna A. La macro es:
En principio la macro funciona, pero si encuentra una fila en blanco se para y si lanzo varias veces la macro seguidas (presionando el botón repetidamente) llega al final del documento borrando las filas que debe, pero también las que están en blanco.
Lo que me gustaría es modificar esta macro para:
Que las filas en blanco no paren la macro y no las elimine.
Que la macro actúe solo en un rango determinado, por ejemplo (A10:A150).
Necesitaría así mismo una macro igual, pero que no elimine las celdas con el símbolo !, solo que las esconda.
Muchas gracias por vuestra ayuda.
Tengo esta macro que elimina filas si tiene el valor ! en la columna A. La macro es:
1
2
3
4
5
6
7
8
9
Sub eliminar_filas()
Application.ScreenUpdating = False
Application.Calculation = xlManual
ActiveSheet.Range("A11").CurrentRegion.AutoFilter Field:=1, Criteria1:="!"
Range("A11").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
En principio la macro funciona, pero si encuentra una fila en blanco se para y si lanzo varias veces la macro seguidas (presionando el botón repetidamente) llega al final del documento borrando las filas que debe, pero también las que están en blanco.
Lo que me gustaría es modificar esta macro para:
Que las filas en blanco no paren la macro y no las elimine.
Que la macro actúe solo en un rango determinado, por ejemplo (A10:A150).
Necesitaría así mismo una macro igual, pero que no elimine las celdas con el símbolo !, solo que las esconda.
Muchas gracias por vuestra ayuda.
Valora esta pregunta
0
