Ciao a tutti,
ho ripreso questo post in quanto vorrei fare una modifica alla macro,
la macro mi fa la permutazione delle 2 celle K1 e L1 per un totale di 8100 combinazioni,
volendo fare una permutazione semplice cioe solo 4005 combinazioni,come si potrebbe fare?
visto che al lotto la combinazione 1 -2 e la stessa cosa che 2-1.
risparmierei la meta del tempo di elaborazione e senza doppioni.
grazie
- Codice: Seleziona tutto
Sub Combinazioni()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
NumK = 0
NumL = 0
Sheets("Dati").Select
For N = 1 To 8100
NumK = (NumK + 1) Mod 90
If NumK = 0 Then NumK = 90
If NumK = 1 Then
NumL = (NumL + 1) Mod 90
If NumL = 0 Then NumL = 90
End If
Worksheets("Napoli").Range("K1").Value = NumK
Worksheets("Napoli").Range("L1").Value = NumL
Worksheets("Napoli").Calculate
Sheets("Napoli").Range("N3:W3").Copy
Sheets("Dati").Range("D3").PasteSpecial Paste:=xlPasteValues
Rows("3:3").Insert Shift:=xlDown
Next N
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub