Eliminar filas
Hola Fernando, antes que nada soy Joaquin de querétaro, y la verdad he tenido algunas dudas pero estas sean resuelto con tus respuestas. Más sin embargo no se como hacer esto.
Una macro que me elimine filas por ejemplo :
A B C D E F
1 0
2 1
3 0
4 1
5 1
La idea es eliminar los ceros (0) de la columna "d" eliminado toda la file (1,3)
Ha ver si con esto queda claro la duda que tengo Fernando y mil gracias por tua ayuda...
Una macro que me elimine filas por ejemplo :
A B C D E F
1 0
2 1
3 0
4 1
5 1
La idea es eliminar los ceros (0) de la columna "d" eliminado toda la file (1,3)
Ha ver si con esto queda claro la duda que tengo Fernando y mil gracias por tua ayuda...
1 Respuesta
Respuesta de fejoal
1
La siguiente macro, realiza la depuración que solicitas:
Activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "´Modulo") y pega el siguiente código:
Sub DeleZeros()
Dim S_area As Range
Set S_area = Selection
For Each cell In S_area
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1).Select
End If
Next cell
Range("D1").Select
End Sub
Cierra el Editor de Visual y graba el archivo (a modo de BackUp)
Para que funcione, selecciona el rango donde se encuentran los ceros (D1:D60, por ejemplo) y déjalo seleccionado, luego ejecuta la macro (DeleZeros) y obtendrás el resultado esperado.
aclarando qué entendí mal o qué faltó.
Activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "´Modulo") y pega el siguiente código:
Sub DeleZeros()
Dim S_area As Range
Set S_area = Selection
For Each cell In S_area
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1).Select
End If
Next cell
Range("D1").Select
End Sub
Cierra el Editor de Visual y graba el archivo (a modo de BackUp)
Para que funcione, selecciona el rango donde se encuentran los ceros (D1:D60, por ejemplo) y déjalo seleccionado, luego ejecuta la macro (DeleZeros) y obtendrás el resultado esperado.
aclarando qué entendí mal o qué faltó.
