20/04/2023 - By65Franco ha scritto:
20/04/2023 - rollis13 ha scritto:
Ma per questo non c'è già l'accoppiata Application.EnableEvents = False da mettere prima e Application.EnableEvents = True da mettere dopo le righe che generano variazioni nel foglio ?
Sarebbe come impostare una variabile booleana prima e dopo il processo da eseguire?
Application.EnableEvents non l'ho mai provata… la verifico
Grazie
[AGGIORNAMENTO]
Ma lo sai che invece tale metodo l'ho già usato in passato …. devo togliermi un bel pò di ruggine e riabituarmi a ricerca meglio gli argomenti sul supporto Microsoft
In 3 secondi ho risolto tutto …. ora verifico gli altri passaggi nel codice e sistemo tutto il resto
Grazie mille davvero tanto, gentilissimo !!!!
' retrieve value recordset
Application.EnableEvents = Not Application.EnableEvents
If Not rs.EOF Then
' return value
Cells(Target.Row, ColumnIndex:=2) = rs.Fields(2).Value
Cells(Target.Row, ColumnIndex:=3) = rs.Fields(3).Value
Cells(Target.Row, ColumnIndex:=4) = rs.Fields(4).Value
Cells(Target.Row, ColumnIndex:=5) = rs.Fields(5).Value
Cells(Target.Row, ColumnIndex:=6) = rs.Fields(6).Value
Else
' clean up the cells
myClearRowsMultiple Target
MsgBox "Elemento [" & Target & "] non trovato !", vbCritical, "Error"
Range(Target.Address).Select
Selection.ClearContents
End If
Application.EnableEvents = Not Application.EnableEvents
Ecco qua… applico il metodo in questo modo… che dici?
Solo in questo passaggio di codice evito la chiamata su Worksheet_Change(ByVal Target As Range) per almeno 7 volte che mi mandava in ricorsiva la chiamata a questa routine.
Grazie ancora !!!