Function OrdenarAleatoriamente(rango As Variant) As Variant
'Establecer el rango de celdas que se ordenarán aleatoriamente
'Crear una matriz para almacenar los valores originales del rango
Dim valores As Variant
valores = rango.Value
'Crear una matriz para almacenar los índices de las filas del rango
Dim indices() As Integer
ReDim indices(1 To rango.Rows.Count)
For i = 1 To rango.Rows.Count
indices(i) = i
Next i
'Ordenar aleatoriamente los índices de las filas
Randomize
For i = 1 To rango.Rows.Count - 1
j = Int((rango.Rows.Count - i + 1) * Rnd + i)
temp = indices(j)
indices(j) = indices(i)
indices(i) = temp
Next i
'Rearmar los valores del rango en una nueva matriz ordenada aleatoriamente
Dim valoresOrdenados() As Variant
ReDim valoresOrdenados(1 To rango.Rows.Count, 1 To rango.Columns.Count)
For i = 1 To rango.Rows.Count
For j = 1 To rango.Columns.Count
valoresOrdenados(i, j) = valores(indices(i), j)
Next j
Next i
'Colocar los valores ordenados aleatoriamente de vuelta en el rango de celdas original
rango.Value = valoresOrdenados
End Function
------------------------------------------------------------------------------------------------------------------------
***********************************************************************************
'Por medio del siguiente código pordemos llamar a OrdenarAleatorio adjuntandole un rango específico.
Sub DesordenarAleatorio()
OrdenarAleatoriamente (hj_lista.[range_B])
OrdenarAleatoriamente (hj_lista.[range_I])
OrdenarAleatoriamente (hj_lista.[range_N])
OrdenarAleatoriamente (hj_lista.[range_G])
OrdenarAleatoriamente (hj_lista.[range_O])
End Sub
***********************************************************************************
No olivides compartir y dalre like a mi video.
Para obtener los datos de un archivo digital PDF con Excel, podemos hacer lo siguiente.
Primero creamos dos hojas en blanco, en las cuales vamos a insertar o unificar las hojas que queremos.
Y de esa forma realizamos una unión de varias hojas de excel en una sola, espero te haya sido de utilidad este blog, te invito a suscribirte a mi canal y a mi blogger para más tips.
