Avrei Bisogno solo di 2 modifiche per questo listato
ID Mensile A scelta
e Colpi a scelta
vi ringrazio.
Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10220
r1 = 1 '...