Principiante in difficoltà

di Anonimizzato8411 il
2 risposte
/
Anonimizzato8411
Utente anonimizzato
Ciao ragazzi,

sono un principiante autodidatta che cerca di sopravvivere
con VBA.

Ho fatto la seguente macro in VBA Excel


Sub ModificaDate()
'
' ModificaDateMacro
'
'
Sheets("P&L").Select
Dim DataInizio As Date
Dim DataFine As Date
DataInizio = Range("B5")
DataFine = Range("B7")
Sheets("Azioni Movimenti").Select
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Valuta").ClearLabelFilters
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Valuta").PivotFilters.Add _
Type:=xlDateBetween, Value1:=DataInizio, Value2:=DataFine

End Sub

Succede che la macro funzionava fino a settimana scorsa. Oggi quando ho aperto
il file per aggiornarlo mi da errore

Errore di Run Time 1004

E' stato immesso un formato data non valido. Riprovare.

Non so proprio cosa fare.

Aiuto!!

2 Risposte

  • /
    Anonimizzato6708
    Utente anonimizzato
    Ciao.
    Puoi allegare il file .xls...? Sarebbe più semplice... (così avremo anche le celle con contenuto e formato...).
    Saluti.
    Luciano.
  • /
    Anonimizzato14896
    Utente anonimizzato
    Buongiorno a tutti

    Mi collego a questa vecchia discussione in quanto ho lo stesso problema

    Codice funzionante 
        ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("cons.").ClearAllFilters
    ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("cons.").PivotFilters. _
        Add Type:=xlDateBetween, Value1:="25/06/2014", Value2:="27/06/2014"
    Codice non funzionante 
        ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("cons.").ClearAllFilters
    ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("cons.").PivotFilters. _
        Add Type:=xlDateBetween, Value1:=["& Data1"], Value2:="27/06/2014"
    Data1 = Range("B6").Value
    Ed è una data

    Cosa sbaglio?
Devi accedere o registrarti per scrivere nel forum
2 risposte