Ejemplo 1

Eliminar Filas Según Criterio



Basándose en el tema de la eliminación de columnas vacías, se adjunta en este artículo la forma de eliminar en un archivo según un criterio en específico, para ello es necesario emplear el código de la última fila.  Esta macro generalizada, solicita la columna del criterio y cuál es esté para poder facilitar al usuario su búsqueda.
Eliminar Filas Según Criterio, Eliminar Filas Según Criterio

Empezando la macro se realiza una copia de la hoja actual para no modificar la base de datos, y así poder realizar los cambios requeridos. Esta función en primer lugar selecciona la hoja actual y luego la copia para tenerla lista a los cambios.
HojaActual = ActiveSheet.Name
Sheets(HojaActual).Select
Sheets(HojaActual).Copy Before:=Sheets(1)
Por otro lado, para el bucle de limpieza se utiliza el código de la última fila, recorriendo desde el fin al principio, así se podrá evitar problemas de que se acorte la tabla o existan saltos en ella. A continuación, a través de la variable qColumna,  se solicita la columna donde está ubicado el criterio  y después se pide el criterio para almacenarla en la variable qCriterio. Entonces, el programador para cada celda de la columna solicitada va eliminando si el contenido es igual a la variable almacenada. 
For i = u To 2 Step -1
Cells(i, qColumna).Select
If Cells(i, qColumna) = qCriterio Then
    ActiveCell.EntireRow.Select
    Selection.Delete
End If
Next
End Sub
En conclusión, este método podría utilizarse para agilizar búsquedas en un bases de datos sin modificaciones y como un método de filtrado, así como hacerlo más amigable al usuario.

Ejemplo3

Que es el Ciclo For 


Comentarios

Publicar un comentario

Entradas más populares de este blog

Ejemplo 2

Generar números primos en Excel A veces nos preguntamos  ¿Cómo sacar los números primos en Excel? ,  o si  ¿Existe una fórmula para sacar los números primos? , en nuestro artículo Números Primos mostramos en que consisten estos números, y colocamos algunos ejemplos de números primos previamente generados, en este artículo mostraremos como generar los números primos. Descargue el siguiente archivo Generar números primos en excel,  el cual contiene el programa mostrado a continuación, para poder emplearlo solo debe indicar el número límite hasta el cual realizar la generación de números primos. Sub numeroprimo() Application.ScreenUpdating = False 'Cells(1, 1) = 1 Cells(2, 1) = 2 celda = 3 numero = InputBox("ingrese un número entre 3 y 10000") If numero >= 3 And numero < 10000 Then For x = 3 To numero Step 2 cantidad = 0 For y = 2 To (x - 1) Z = x Mod y If Z = 0 Then cantidad = cantidad + 1 Exit For E...
Leer más

Ejemplo3

Ordenador por número de hijos con For Next Ordenando, esn este caso permite ordenar una base de datos según el número de hijos, la aplicación, empieza con dos for next en los que se invierte el orden de los valores asignados a "x" e "y". La aplicación emplea el "If" para comparar el número de hijos, almacenando los datos en una variable temporal que dejará de funcionar al acabar la aplicación. En este caso, la aplicación funciona para 12 filas y 6 columnas, pero sería facil cambiar los códigos para abarcar una mayor cantidad de datos y para trabajar con condiciones distintas. Esta función puede tener uso en el campo de la investigación de mercados y el análisis de base de datos en general. Sub pregunta4d() Range("F1").Select ActiveCell.FormulaR1C1 = "=COUNTA(C[1])" Range("F1").Select For x = 2 To Cells(1, 6) – 1 For y = x + 1 To Cells(1, 6) If Cells(x, 11) > Cells(y, 11) Then For columna = 7 To 12 tempor...
Leer más