Macro Aleatorio en rango variable
Hola expertos.
Necesito una macro que genere números aleatorios, entre 1 y 100, en las columnas de la B a la P (ambas inclusive) desde la fila 2 hasta la fila según valor introducido en AH19. Es decir, si el valor de AH19 es 500, la macro debería generar números aleatorios en el rango B2:P500.
Muchas gracias por vuestro tiempo.
1 respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con esta macro:
Sub ejemplo()
'por luismondelo
tope = Range("ah19").Value
if tope = "" then
msgbox "no han nada anotado en la celda AH19"
exit sub
end if
For Each celda In Range("b2:p" & tope)
celda.Value = Application.WorksheetFunction.RandBetween(1, 100)
Next
End Sub
