ELIMINAR FILAS ! AYUDA !!!
Publicado por Roberto Gomez (67 intervenciones) el 06/07/2017 23:16:25
Estimados una consulta:
Tengo el siguiente codigo que me elimina las filas que esten de rojo: PERO EL PROBLEMA ES QUE TENGO QUE ESTAR SELECCIONANDO FILA POR FILA QUE SERIA LO MISMO YA QUE CUANDO SELECCIONO TODO EL LIBRO NO ME BORRA NADA, PERO SELECCIONANDO FILA POR FILA Y EJECUTO LA MACRO SI.
NO HABIA VISTO BIEN EL CODIGO: YA VEO QUE SE DETIENE HASTA LOS ESPACIOS EN BLANCOS POR ESO NO CORRIA EL CODIGO, PERO COMO HAGO PARA QUE CORRA TODO EL LIBRO SIN QUE SE DETENGA EN LOS ESPACIOS ???
YA QUE SI LE CAMBIO EL <> por el =
SE BUGEA Y NO SE DETIENE NUNCA. :'(
Tengo el siguiente codigo que me elimina las filas que esten de rojo: PERO EL PROBLEMA ES QUE TENGO QUE ESTAR SELECCIONANDO FILA POR FILA QUE SERIA LO MISMO YA QUE CUANDO SELECCIONO TODO EL LIBRO NO ME BORRA NADA, PERO SELECCIONANDO FILA POR FILA Y EJECUTO LA MACRO SI.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub EliminarFilas()
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> ""
'Eliminar los que tengan fondo rojo
If ActiveCell.Interior.ColorIndex <> 3 Then
'... elimina la fila
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub
NO HABIA VISTO BIEN EL CODIGO: YA VEO QUE SE DETIENE HASTA LOS ESPACIOS EN BLANCOS POR ESO NO CORRIA EL CODIGO, PERO COMO HAGO PARA QUE CORRA TODO EL LIBRO SIN QUE SE DETENGA EN LOS ESPACIOS ???
YA QUE SI LE CAMBIO EL <> por el =
SE BUGEA Y NO SE DETIENE NUNCA. :'(
Valora esta pregunta
0