Macro, VBA y fecha que da error
Publicado por Alberto (1 intervención) el 18/02/2018 19:25:29
Buenas tardes,
tengo una macro donde mi idea que en una tabla dinámica, pueda filtar por un rango de fechas concretas. En vez de ir cambiando el filtro, quiero que coja esas fechas de una celda que introduzco a mano.
Tengo esto, pero me da error.... sabeis que puedo hacer para corregirlo? Muchas gracias.
tengo una macro donde mi idea que en una tabla dinámica, pueda filtar por un rango de fechas concretas. En vez de ir cambiando el filtro, quiero que coja esas fechas de una celda que introduzco a mano.
Tengo esto, pero me da error.... sabeis que puedo hacer para corregirlo? Muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub filtrofecha()
'
' filtrofecha Macro
'
Dim vbfecha1, vbfecha2 As Date
vbfecha1 = Range("D1")
vbfecha2 = Range("D2")
'
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Fecha"). _
ClearLabelFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Fecha").PivotFilters. _
Add2 Type:=xlDateBetween, Value1:=vbfecha1, Value2:=vbfecha2
End Sub
Valora esta pregunta


0