adesso tutto ok,
ho dovuto fare alcune modifiche alla macro,
1) non mi estraeva + di 2 estrazioni, =2 lo sostituito con una variabile V
- Codice: Seleziona tutto
If [R2] = 2 Then VOff = 2 Else VOff = 1
- Codice: Seleziona tutto
If [R2] = V Then VOff = V Else VOff = 1
2) la cella J5 dove venivamo messo i dati,messo variabile per mettere la riga centrale sempre allo stesso posto ,in virtù
di gestire meglio i dati anche in presenza di più estrazioni sotto/sopra, da 1 a 10
- Codice: Seleziona tutto
Range("J5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
- Codice: Seleziona tutto
Range("J" & T).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
3)ho messo una macro che mi evidenzia o l'estratto o l'ambo nei dati che salvo,così sono più visibili.
4) ho messo un'altra macro che mi conta il ritardo di uscita per ogni combinazione(ciclo)e numerati.
grazie,
per Flash30005
ho usato anche alcune parti della tua macro ,
ringrazio anche per il tempo dedicatomi.
PS. Volevo dirvi ad entrambi i moderatori,perche non commentate di più le macro,così cerchiamo di capire meglio il lavoro che fanno,possiamo imparare di più ed essere un pochino più autonomi.