Para DAM, en un tabla dinámica con varias opciones como o donde poner la fecha para que la cambie en todas las opciones
Tengo na tabla dinámica que necesito tener un combo para poner una fecha y que me ponga en todas las opciones de es tabla la fecha del combo y me re calcule los datos en cada una de la opciones y además los datos me los lleve a otra hoja y los ponga en unas celdas concretas
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro. Escribe la fecha en la celda G2 y en automático se cambia en todas las tablas dinámicas
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
Dim fec As Date
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, [G2]) Is Nothing Then
fec = Format(Day(Target), "00") & "/" & Format(Month(Target), "00") & "/" & Year(Target)
For Each t In ActiveSheet.PivotTables
t.PivotFields("fecha ").CurrentPage = fec '"03/03/2015"
Next
End If
End Sub
para DAM , sabes algo de la segunda parte
que me lleve los datos de los colores a cada una de las celdas del color de la otra hoja y los ponga en unas celdas concretas
Puedes crear una nueva pregunta.
