Macro para combinar números
buenos días Expertos,
quisiera que me colaboren con una macro para hacer combinaciones de 3 números utilizando los números del 1 al 8 y que no se repitan, me explico por ejemplo 1.2.3;4.5.6;7.8.1 y asi sucesivamente pero que no se repitan las combinaciones.
gracias
1 respuesta
Respuesta de Luis Mondelo
1
Esta sería mi solución. Esta macro te creará las combinaciones que desees pintándolas desde A2 hacia abajo.
Sub combinacion()
tope = InputBox("cuantas combinaciones quieres???")
If tope = Then Exit Sub
For x = 1 To tope
Do
uno = Application.WorksheetFunction.RandBetween(1, 8)
dos = Application.WorksheetFunction.RandBetween(1, 8)
tres = Application.WorksheetFunction.RandBetween(1, 8)
junto = uno & dos & tres
Set busca = ActiveSheet.Range("a1:a10000").Find(junto, LookIn:=xlValues, lookat:=xlWhole)
Loop While Not busca Is Nothing
Range("a65000").End(xlUp).Offset(1, 0).Value = uno & dos & tres
Next
Range("a2").Select
Do While ActiveCell.Value <>""
tope2 = Len(ActiveCell)
For p = 1 To tope2
extrae = Mid(ActiveCell, p, 1)
lista = lista & "." & extrae
Next
lista = Mid(lista, 2, Len(lista) - 1)
ActiveCell.Value = lista
lista = ""
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar y puntuar
