Cómo extraer Grabar con criterios no a través de VBA
En este artículo, vamos a aprender cómo extraer registros sin criterios a través de VBA en Microsoft Excel.
Tomemos un ejemplo para entender cómo podemos poner el filtro y seleccionar los criterios y luego tomar la acción requerida: – Tenemos datos en el rango A: columnas G, en las cuales la columna A contiene el Nombre, la columna b contiene la Dirección, la columna C contiene la ciudad , la región de la columna D, el país de la columna E, el número de teléfono de la columna F y la columna G contienen los criterios.
Queremos escribir la macro para poner el filtro y luego filtrar los datos de acuerdo a No contiene datos en la columna G y luego eliminar el No contiene datos. Y luego quite el filtro y muestre todos los datos.
Para extraer el registro con los criterios No, siga los pasos que se indican a continuación:
Abra la página de VBA presione la tecla Alt + F11 Inserte un módulo Luego vaya nuevamente al menú de inserción y haga clic en el procedimiento, donde obtendrá el procedimiento si no sabe cómo debe iniciar la macro Escriba el código mencionado a continuación:
Sub Delete_NotEligible()
ActiveSheet.Range("$A$1:$G$15").AutoFilter Field:=7, Criteria1:="<>"
Rows("2:12").Select
Selection.Delete Shift:=xlUp
Range("B1").Select
Selection.AutoFilter
End Sub
-
Para ejecutar el código presione la tecla F5 en el teclado.
-
Los datos se filtrarán y luego, de acuerdo con los criterios establecidos, los datos filtrados se eliminarán.
Explicación del código:
Hemos definido el rango de datos del encabezado para poner el filtro con criterios de celdas no en blanco en la columna de elegibilidad Definir en el código para seleccionar la fila y luego borraremos toda la fila * Al final abrimos el filtro De esta manera, puede poner el filtro sobre la base de criterios particulares y luego eliminar los datos.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]