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
temporal = Cells(x, columna)
Cells(x, columna) = Cells(y, columna)
Cells(y, columna) = temporal
Next
End If
Next
Next
Cells(1, 6) = ""
End Sub