Actualización automática de filtros

La que te muestra en el video es la que yo modifiqué, pero es indiferente prueba lo que te indica Antoni en la que el te mando o en la modificada la cuestión es seguir el paso a paso para ver donde esta el error para que no te funcione tanto una como la otra.

La macro del video es la de JSDJSD, que igualmente funciona sin problemas. La mía la puedes descargar de mi primera respuesta.

Me puse a observar la macro del video y no es igual a la macro que usted me envió sera que me puede enviar nuevamente por favor.    Esta fue la que usted me envio: Sub ResumenMensual() Dim Hoja As String, Acumulado(5, 6) As Double Application.ScreenUpdating = False With Sheets("RESUMEN MENSUAL")    For x = 12 To .Range("D" & Rows.Count).End(xlUp).Row Step 6       '--       'Borramos Acumuladomulados semanales       For f = 1 To 5          For c = 1 To 6             Acumulado(f, c) = 0          Next       Next       '--       'Por cada hoja de la semana       For y = .Range("F" & x) To .Range("H" & x)          Hoja = Replace(y, "/", "-")          '--          'Acumuladomulamos cada día de la semana si existe          If ExisteHoja(Hoja) Then             f = 0: c = 0             For fila = 14 To 18                f = f + 1                c = 0                For columna = 4 To 14 Step 2                   c = c + 1                   Acumulado(f, c) = Acumulado(f, c) + Sheets(Hoja).Cells(fila, columna)                Next             Next             '--             'Actualizamos RESUMEN             For f = 1 To 5                For c = 1 To 6                   .Cells(x + f - 1, c + 11) = Acumulado(f, c)                Next             Next             '--          End If       Next    Next End With End Sub Private Function ExisteHoja(Hoja As String) As Boolean 'Función para comprobar si existe la hoja a Acumuladomular With Sheets("RESUMEN MENSUAL")    For Each h In Sheets       If h.Name = Hoja Then          ExisteHoja = True          Exit Function       End If    Next End With End Function    

¿No estarás intentando ejecutar la macro desde la hoja SERVICIOS?, porqué el botón RESUMEN MENSUAL no tiene ninguna macro asignada. En cualquier caso puedes seguir la maco paso a paso,  

Mil gracias por tu gran ayuda, Dios te siga bendiciendo con mas conocimiento