salve a tutti
i voglio scrivere un semplice "thread" per chè il mio cliente vuole una applicazione che avvii una procedura ed un pulsante di STOP
stavo mettendomi a studiare un modo ed ho scritto la seguente procedura:
sembra strano ma la variabile Ferma è di tipo booleanocodice:Dim Ferma As Boolean Sub EseguiCiclo() ' Macro1 Macro Dim i As Integer For i = 0 To 1000 If Ferma = True Then Ferma = False Exit Sub End If Application.Sheets("UCG 5").Select Range("j" & i & ":j" & i).Select Range(Selection, Selection.End(xlDown)).Select Range("J" & i).Select ActiveCell.FormulaR1C1 = i DoEvents Next ' End Sub Sub Stopp() Ferma = True End Sub
e dentro il ciclo non cambi amai valore anzi, è sempre : vuoto!!!
come posso fare?