Código para filtrar fecha en TD

Expertos tengo un código que en otro archivo me funciono bien para filtrar una fecha en una TD en base a un valor de una celda F1 pero al momento de incorporarlo a esta me da un error de tipo 1004 en tiempo de ejecución error definido por la aplicación o el objeto

anexo copia del archivo en drive https://drive.google.com/open?id=1TfoqOv1P1k3IiLGFz3c5fov8TKDyIOxl 

Ya que son varias hojas en donde se trabaja el archivo también dejo copia del código por si alguien puede analizarlo sin el archivo lo que esta en negrita es donde esta mal el código

Sub Remp()
'
' Remp Macro
' Este boton remplazara los sku y actualiza td de productos por fecha
'
mirango = Range("f1").Select
'
Sheets("Base").Select
Range("H1").Select
Columns("H:H").Select
Selection.Replace What:="11524", Replacement:="11523", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="19286", Replacement:="19285", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="19287", Replacement:="19285", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="10054", Replacement:="10053", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="10055", Replacement:="10053", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="10056", Replacement:="10053", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="10057", Replacement:="10053", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="12741", Replacement:="12740", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="12742", Replacement:="12740", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="12743", Replacement:="12740", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("TD").Select
ActiveSheet.PivotTables("TablaDinámica5").PivotCache.Refresh
ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _
"(All)"

' ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _ "(All)"
' ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha"). _
ClearAllFilters
ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _
Range("F1").Value
Sheets("Formato").Select
End Sub

Agradezco mucho todo lo que he aprendido en este foro

1 respuesta

Respuesta
1

Quedaría así:

Sub Remp()
'
' Remp Macro
' Este boton remplazara los sku
'
mirango = Range("f1").Select
'
    Sheets("Base").Select
    Range("H1").Select
    Columns("H:H").Select
    Selection.Replace What:="11524", Replacement:="11523", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="19286", Replacement:="19285", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="19287", Replacement:="19285", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="10054", Replacement:="10053", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="10055", Replacement:="10053", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="10056", Replacement:="10053", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="10057", Replacement:="10053", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="12741", Replacement:="12740", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="12742", Replacement:="12740", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="12743", Replacement:="12740", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("TD").Select
    ActiveSheet.PivotTables("TablaDinámica5").PivotCache.Refresh
    ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha"). _
        EnableMultiplePageItems = False
    ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _
        "(All)"
    ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _
        Format(Range("F1").Value, "dd/mm/yyyy")
End Sub

Pero si la fecha que tienes en la celda F1 no existe dentro de las fechas del campo Fecha, entonces te va a enviar error. Para que no te envíe el error, puedes poner :

    On Error Resume Next
    ActiveSheet.PivotTables("TablaDinámica5").PivotFields("Fecha").CurrentPage = _
        Format(Range("F1").Value, "dd/mm/yyyy")

sal u dos

Muchas gracias Dante Amor  me has ayudado mucho con esto y según veo el código solo faltaba que le pusiera el formato de fecha aunque no me explico por que en el otro archivo si me lo permitía bueno caprichos de la vida que tengas una excelente tarde

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
4 respuestas

How much does it cost to hire a professional app developer Dubai

Hello! If you have finally decided to have an app for your business, you need to look for a TOP MOBILE APP DEVELOPMENT AGENCY DUBAI. It doesn't matter if you are creating an app from scratch or re-launching the pre-existing one. You need to hire a...
11 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Extraer de campo fecha el mes

Necesito el código para extraer de un capo fecha el mes en letra para insertarlo en otro campo se que no sera difícil pero la verdad no lo se mientras gracias por su ayuda
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Poner registro ID de base de access en MsgBox

Estoy construyendo un userform para captura de datos, los cuales se almacenaran en una base de datos de access, el enviar la información del formulario de excel a la base de datos de access se genera un MsgBox que dice que la información de almaceno...
2 respuestas