-
lones.
User deleted
lotto69 fai queste ulteriori modifiche
For p1 = 1 To 4
p2 = p1+1 '<<<<<<<<<<<<<CODICEFor p1 = 1 To 4
For p2 = p1+1 To 5'<<<<<<<<<<<<<<
' inserisci alla fine del listato un altro
next'<<<<<<<<<<<<<<<<<<<<<<<<<<<<
al posto di questa stringa
If ok1= 80 And ok1=ok2 Then
metti questaCODICEIf ok1= 80 And ok1=ok2 And (Distanza(p1,p2)=1 Or Distanza(p3,p4)=1 )Then
e rimetti
For r2 =r1+ 1 To 12 'con nz
non so il motivo ma senza questo ti da la doppia giocata.