Ejecutando una macro de Excel VBA
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
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?
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!