Macro para crear números aleatorios

Con este código lo que haces es crear números aleatorios, en las columnas, filas o rangos seleccionados, dándole un numero mínimo y un numero máximo.

Código de la macro

Sub nAleatorios()

Dim Rango As Range
Dim Celda As Range
Dim Titulo As String
Dim Aleatorio As Long
Dim NumUno As Long
Dim NumDos As Long

On Error GoTo Errores

Titulo = «Excel y Finanzas»

NumUno = InputBox(«Ingrese el Valor minimo», Titulo)
NumDos = InputBox(«Ingrese el Valor Máximo», Titulo)

Set Rango = Application.InputBox(«Seleccione el rango:», Titulo, Type:=8)

For Each Celda In Rango

Aleatorio = Application.WorksheetFunction.RandBetween(NumUno, NumDos)

Celda.Value = Aleatorio

Next Celda

Exit Sub

Errores:

If Err.Number = 13 Then
MsgBox «El valor dado no es un dato valido», vbCritical + vbOKOnly, Titulo
Else

End If

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada