Excel Macro x Ciclo

[Flash30005]

Ciao Flash3005
...
ma ho un problema per le righe nel foglio Dati,
nella colonna A ho dei record.
...

sostituisci la riga

Codice: Seleziona tutto

Rows("3:3").Insert Shift:=xlDown

con

Codice: Seleziona tutto

Selection.Insert Shift:=xlDown

Ciao

[Statix]

Ok provato tutte le modifiche,i tempi più o meno sono rimasti tra 266 e 280 combinazioni al minuto.
per me è già tanto,ringrazio tutti per l'aiuto e suggerimenti
ciao Anthony,Flash3005 e Richy53 buonanotte,vado e tardi.

[ricky53]

Ciao,
è già un risultato rilevante.
Ci sono sempre dei limiti fisici oltre il quale non si può proprio andare.
Alla prossima

Ciao da Ricky53

[Statix]

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

[Statix]

Volevo precisare che la macro dovrebbe incominciare da

Codice: Seleziona tutto

K1 = 1 e da L1=2
esempio
 K1- L1
1-2
1-3
1-4
1-5
etc fino a
 1-90
poi
2-3
2-4
2-5
etc
2-90
poi
3-4

e cosi fino a
89-90

[Statix]

Ciao a tutti,
ho risolto con la macro postato da Anthony47 tempo fa e adattata allo scopo.

Codice: Seleziona tutto

Sub Combinazioni()
Dim I As Integer: Dim J As Integer: Dim K As Integer
For I = 1 To 90
For J = 1 + I To 90
If J = I Or K = I Then GoTo skip:           
Sheets("Top Secret").Range("M1").Value = J
  Sheets("Top Secret").Range("L1").Value = I
skip:
Next J
Next I
End Sub