En este artículo, aprenderemos 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 que la columna A contiene el nombre, la columna b contiene la dirección, la columna C contiene la ciudad, la columna D la región, la columna E el país, la columna F el número de teléfono y la columna G contiene 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 elimine 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
- Insertar un módulo
- Luego, vaya nuevamente al menú de inserción y haga clic en procedimiento, donde obtendrá el procedimiento si no sabe cómo debe iniciarse la macro.
- Escriba el código mencionado a continuación:
Sub Delete_NotEligible () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). Campo de autofiltro: = 7, Criterio1: = "" Filas ("2:12"). Seleccione Selección. Eliminar turno: = xlRango superior (" B1 "). Seleccione Selección. 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 colocar el filtro con criterios de celdas que no están en blanco en la columna de elegibilidad
- Defina en el código para seleccionar la fila y luego eliminará toda la fila
- Al final abre el filtro
De esta forma, podemos poner el filtro en base a criterios particulares y luego borrar 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 al sitio de correo electrónico