Se puede hacer una lotería con macros o/y fórmulas

.

Pues, casi todo es posible.

Hay que ver cómo adaptarlo a lo que quieres.

Veamos:

Si los números de tu primera columna fuesen consecutivos puedes tomar los límites inferior y superior y colocar una fórmula -en, digamos, D4- como la siguiente:

=ALEATORIO.ENTRE(<minimo>;<máximo>)

A cada recálculo de la hoja, ese numero cambia:

Entonces un botón asociado al siguiente procedimiento puede generar un número en ese rango y luego pegarlo en una columna -por ejemplo, la F- consecutivamente, previo control de que no haya salido antes, en cuyo caso generaría otro.

Si estas de acuerdo con la idea, inserta un módulo en el editor de BVA y pega este código:

Sub Loteria()
'---- Variables modificables:
'=== JHON, modifica estos datos de acuerdo a tu proyecto:
Celdato = "D4" 'donde genera el número
col = "F" 'Columna donde acumula los datos. Al principio tendrá sólo el título
'---- fin Variables
'
'---- inicio de rutina:
'  
UltFila = Range(col & Rows.Count).End(xlUp).Row
RangoBusq = Range(col & "1", Range(col & UltFila)).Address
Genera:
ActiveSheet.Calculate
Buscar = Range(Celdato).Value
On Error Resume Next
Encontrado = ActiveSheet.Range(RangoBusq).Find(What:=Buscar, after:=[F1], LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address
If Len(Encontrado) > 0 Then
    GoTo Genera
Else
    MsgBox Buscar, , "NUMERO:"
    Range(col & UltFila + 1).Value = Buscar
End If
Err.Clear
On Error GoTo 0
End Sub

Y quedaría así:

Espero que sea lo que buscabas.

Abrazo

Fer

.

.

Buenas, de nuevo

Un paso más allá.

En caso de que tu lista de números no fuese consecutivos, y que la misma estuviera ubicada en la columna A, sólo deberías reemplazar la fórmula que te dí en la respuesta anterior por la que te indico ahora:

=INDICE(A2:A30000;ALEATORIO.ENTRE(1;CONTAR(A2:A30000)))

Como no sé cuántos numero tienes en esa columna, la fórmula los cuenta, suponiendo que fueran menos de 30000.

Considera lo del separador de argumentos, como siempre. Modifica los rangos de acuerdo a tu planilla tanto en esta fórmula como en la rutina de VBA.

Esta no varía con respecto a la que ya te pasé antes.

La formula se encarga de tomar los valores al azar y el procedimiento de VBA controla si ya salió o no.

Creo que así cubro todas tus expectativas, ¿verdad?

Si no, me avisas...

Abrazo

Fer

.

.

¿

¿Útil?

No la he podido ejecutar muy bien que digamos

.

Es curioso porque la rutina y la fórmula hacen exactamente lo que pedías.

De todos modos, si así no fuese, vuelva a consultarme indicando por qué no has podido ejecutarla.

Saludos

Fernando

.

Si los datos están en el rango "F1;U40" como seria la macro