Excel - Filas aleatorias en excel

Hola Gente, bueno la pregunta es la siguiente:

como hacer que en una lista de 5 columnas y 100 filas, seleccione una fila al azar y copie esta fila a otra hoja, se puede hacer un macro, pero no se como.

esto es para sacar una muestra aleatoria de materiales, osea tiene Codigo, Descricion, Ubicacion, stock, y lo que necesito hacer es sacar una muestra de 40 articulos, ojala puedan ayudarme.

Pues para hacer algo más sencillo agrega una columna al inicio de tus datos, y le das un correlativo del 1 al 100, luego en la otra hoja escribes en la primera columna =ALEATORIO.ENTRE(1,100) y a las demás columnas le das un buscarv en base a este numero y luego solo corres las formulas hasta llegar a la muestra que deseas.

Salu2

En realidad, la funcion ALEATORIO.ENTRE, no diferencia resultados entre celdas, es decir, si lo colocas en 10 celdas, asi como te pueden (con suerrte), salir 10 numeros distintos, asi mismo te pueden salir 10 igulaes, o 7 distintos 3 iguales, etc

Abraham

Muy buenas,

no necesitas hacer una macro, puedes hacer lo siguiente, que te evita repetidos:

- Inserta una primera columna en la primera hoja.

- Pon en las 100 celdas de la A1 a la A100 esta fórmula
=ALEATORIO()

- Si quieres puedes ocultar esa columna

- en la hoja2 pon en las 40 celdas de la A1 a la A40 esta fórmula
=BUSCARV(K.ESIMO.MAYOR(Hoja1!A1:A100;FILA());Hoja1!A1:F100;6;0)

Y ya tienes tus 40 aleatorios.

Cada vez que hagas un cambio o pulses F9, tendrás un nuevo resultado.

Ya me dirás si es lo que querías.

Un saludo.

Hey amigo que te parce este macro para hacer esa funcion??
solo necesitas cambiar el nombre de las hojas sheet1 y sheet2

Dim rVar(40) As Variant
Dim MyValue As Variant
Sub ALEATORIO()
Sheets("Sheet1").Select
For rep = 1 To 40
MyValue = Int((100 * Rnd) + 1)
For i = 1 To 40
If rVar(i) = MyValue Then
alet2
Else
End If
Next i
rVar(rep) = MyValue
Rows(MyValue & ":" & MyValue).Copy
Sheets("Sheet2").Select
Range("A" & WorksheetFunction.CountA([A:A]) + 1).PasteSpecial xlPasteAll
Sheets("Sheet1").Select
Next rep
End Sub
Function alet2()
For x = 1 To 40
If rVar(x) = MyValue Then
MyValue = Int((100 * Rnd) + 1)
alet2
End If
Next x
End Function

Slds desde mty
Miklo

Hola, buenas tardes, desearía saber si me puede ayudar ya que estoy tratando de obtener una muestra aleatoria de 1,400 líneas de excel y en total son 2,575 y hasta el momento no he podido. Agradecería mucho su ayuda. SALUDOS!