- Codice: Seleziona tutto
Application.ScreenUpdating = False
Application.EnableEvents = False
alla fine ovviamente diventano True, ma continuo a vedere l'esecuzione della macro, riuscite a trovare l'errore?
Allego le due macro in questione
- Codice: Seleziona tutto
Sub seleziona_dati()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim D1, D2 As Date
Dim tempoimpiegato As String
D1 = Time
Sheets("Foglio1").Unprotect Password:="password"
Sheets("Foglio2").Unprotect Password:="password"
Sheets("Foglio1").Select
For riga = 2 To 91
Sheets("Foglio1").Select
Range("a" & riga).Copy
Range("U1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Call filtro
Range("DJ1").Copy
Sheets("Foglio2").Select
Columns("C").Select
Colonna = ActiveCell.Column
Cells(65535, Colonna).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Foglio1").Range("Dl1").Copy
Sheets("Foglio2").Select
Columns("D").Select
Colonna = ActiveCell.Column
Cells(65535, Colonna).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Sheets("Foglio1").Protect Password:="password"
Sheets("Foglio2").Protect Password:="password"
D2 = Time
tempoimpiegato = Format(D2 - D1, "hh:mm:ss")
MsgBox "Tempo impiegato: " & tempoimpiegato
End Sub
- Codice: Seleziona tutto
Sub filtro()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Foglio1").Unprotect Password:="password"
Range("H1").AutoFilter Field:=8, Criteria1:="x"
Range("B65536").End(xlUp).Offset(0, 0).Select
Selection.Copy
Range("DM1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1").AutoFilter
Sheets("Foglio1").Protect Password:="password"
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Buonanotte a tutti.