Experimente incluir no final da rotina RESET --> Application.Calculate
Sub Reset_Filtros()
Dim Intervalo1 As Range
Dim Intervalo2 As Range
Dim Intervalo3 As Range
Dim Intervalo4 As Range
Dim Intervalo1b As Range
Dim Intervalo2b As Range
Dim Intervalo3b As Range
Dim Intervalo4b As Range
Set Intervalo1 = [BT7].Resize(1000, 3)
Set Intervalo2 = [BW7].Resize(1000, 3)
Set Intervalo3 = [CT7].Resize(1000, 3)
Set Intervalo4 = [CW7].Resize(1000, 3)
Set Intervalo1b = [BQ7].Resize(1000, 3)
Set Intervalo2b = [BZ7].Resize(1000, 3)
Set Intervalo3b = [CQ7].Resize(1000, 3)
Set Intervalo4b = [CZ7].Resize(1000, 3)
Application.EnableEvents = False
Intervalo1.ClearContents
Intervalo2.ClearContents
Intervalo3.ClearContents
Intervalo4.ClearContents
Intervalo1b.Interior.Color = vbWhite
Intervalo2b.Interior.Color = vbWhite
Intervalo3b.Interior.Color = vbWhite
Intervalo4b.Interior.Color = vbWhite
Application.Calculate
Application.EnableEvents = True
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/05/2013 12:57 pm