ciclo for

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...

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...

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. 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 solic...

Estructura For La estructura repetitiva  “ For ”   es uno de los bucles más usados en la programación. Su planteamiento es sencillo, y es ideal para usar en aquellas situaciones en la que conocemos la cantidad de veces que queremos que se repita nuestro bloque de instrucciones. Con el ciclo For,  repetimos una instrucción un número determinado de veces, hasta un punto que hemos estableció. Su planteamiento es el siguiente: Dim i As Integer = 0 For  i = 0 To 10 Step 1 MsgBox("Variable Contadora = " & i) Sentencia Next Como podemos ver en la estructura  “ For ” , utilizamos una variable contadora  ” i “ , que sera  nuestra variable de control para nuestro Bucle; esta variable se encarga de ir aumentando su valor hasta llegar al valor final  ” 10 ”  y ahí finalizar nuestro Bucle, el valor a finalizar se  establece mediante la sentencia  “ To ”  . Siguiente a esto,  (opcional)...