Da molto tempo che non riesco a modificare questa macro , sembrerebbe facile ma..
Cosa fa la macro? come dice il titolo propone 2 numeri in continuazione nelle celle A1 e B1 in continuazione ed esce,al verificarsi di una condizione,
il problema sorge quando qualche volta questa macro l'adatto in diverse altri file dove le celle A1 e B1 sono occupate ,quindi la richiesta è : come spostare a piacimento le celle ad esempio in D1 ed E1 o che so in M4 ed N4 mantenentdo inalterato quello che fa la macro? Il Massimo sarebbe che la macro proporrebbe (nelle celle suddette) tutti gli ambi possibili con 90 numeri (4005) adesso invece li propone in modo random e quindi impiega parecchio tempo prima che trovi l'ambo giusto per cui , soddisfatta la condizione esce..... comunque na cosa alla volta grazie per chi vorrà aiutarmi.
Public Sub Proponi2()
'Application.ScreenUpdating = False
Dim numeri(5) As Long
Dim A As Long
Dim b As Long
Do
For A = 1 To 2 ' riempie la matrice con numeri casuali
rifai:
numeri(A) = Int(Rnd * 90 + 1)
For b = 1 To 2 'controlla se c'è un numero doppio
If A = b Then GoTo salta
If numeri(A) = numeri(b) Then GoTo rifai
salta:
Next b
Next A
For A = 1 To 2 'riempie le celle
Cells(1, A) = numeri(A)
Next A
DoEvents
If Cells(1, 13) < Cells(1, 14) Then Exit Do 'Questa è la condizione
Loop
'Application.ScreenUpdating = True
End Sub