es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Ejecutando una macro de Excel VBA

23 May, 2023 Programación

Me gustaría ejecutar una macro que actualice los extractos al seleccionar today()-1 en los segmentos con Macro. Pero no puedo hacer que funcione.

He intentado obtener la fecha del valor de la celda, y también he intentado con las funciones Date y Now. Ninguno de ellos ha funcionado. ¿Alguien tiene alguna idea?

Obtengo:
– Error de tiempo de ejecución ‘1004’ La cadena no se puede convertir en tipo fecha.
o
– Error de tiempo de ejecución ‘1004’ El elemento no se pudo encontrar en OLAP Cube.

“`
Sub ActualizaFecha()
‘
‘ Macro para actualizar fecha
‘
Dim MiFecha As Range
Set MiFecha = ThisWorkbook.Worksheets(“Slicers”).Range(“D2”)
‘
ActiveWorkbook.SlicerCaches(“SlicerShipDate”).VisibleSlicerItemsList = Array _
( _
“[Órdenes de venta].[Fecha de envío].MiFecha”)
ActiveWorkbook.SlicerCaches(“SlicerShipDate1”).VisibleSlicerItemsList = Array _
( _
“[Órdenes de venta].[Fecha de envío].MiFecha”)
End Sub

Tags:  ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Parece que estás intentando ejecutar una macro para actualizar los extractos seleccionando today()-1 en los cortadores. ¿Has intentado el siguiente código?

    Sub Update_date()
    'Update_date Macro
    Dim MyDate As Range
    Set MyDate = ThisWorkbook.Worksheets("Slicers").Range("D2")
    MyDate.Value = DateAdd("d", -1, Date)
    ActiveWorkbook.SlicerCaches("Slicer_Ship_Date").VisibleSlicerItemsList = Array _
        ("[Sales Orders].[Ship Date].MyDate")
    ActiveWorkbook.SlicerCaches("Slicer_Ship_Date1").VisibleSlicerItemsList = Array _
        ("[Sales Orders].[Ship Date].MyDate")
End Sub

    Este código debería establecer el valor de MyDate en la fecha de hoy menos un día y, a continuación, actualizar los cortadores en consecuencia. ¡Házmelo saber si funciona para ti!

Comments are closed.