Excel - Macro, VBA y fecha que da error

   
Vista:

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.


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad