GiuseppeMN ha scritto:

- Considera che "Worksheet_Activate" viene attivato quando il Foglio di lavoro viene attivato; in questo caso servono almeno due Fogli di lavoro.

Ciao @giuseppemn.

Errore mio, ho dato per scontato che l'evento si verificasse anche all'apertura del workbook, ma non è così.

Si potrebbe usare, con qualche modifica al codice, Workbook_Open

Private Sub Workbook_Open()
    
    Dim Cella As Range
    
    With Sheets("Foglio1")
        For Each Cella In Range(.Range("D5"), .Cells(5, .Cells(5, Columns.Count).End(xlToLeft).Column))
            If IsDate(Cella) Then
                If CDate(Cella) = Date Then
                    .Shapes(1).Cut
                    .Paste Cella.Offset(1, 1)
                    Exit For
                End If
            End If
        Next Cella
    End With
        
End Sub

@ tempusfugit il codice funziona correttamente; hai inserito, come richiesto, la freccia nel foglio?

Si, è possibile, ma allora il problema non è la macro in sè ma il riferimento a una delle librerie di oggetti.

Ci sono due ipotesi:

1) sul primo pc è presente un programma che ha attivato, alla sua installazione, una sua libreria ad oggetti che risulterà mancante sul secondo pc.

2) (più probabile) la versione più aggiornata di Excel ha abilitato automaticamente la versione più recente di una delle librerie di Office; per esempio

Microsoft Office 16.0 Object Library

che fa parte delle librerie di Office 2019.

Questo renderà il programma VBA incompatibile con le versioni precedenti di Office che hanno la versione meno aggiornata di quella  libreria.

In entrambi i casi la soluzione consiste nell'eliminare il riferimento alla libreria non disponibile ma, se si tratta di una delle librerie indispensabili (come quella che ho citato) al funzionamento del VBA, non puoi semplicemente eliminare il riferimento,  devi sostituirlo con un riferimento alla analoga libreria della versione meno aggiornata di office.

Fai questo:

- apri il file con la versione meno aggiornata di Excel

- se il VBA è bloccato clicca sul pulsante "ripristina" (il quadratino blu sulla barra degli strumenti)

- in VBA vai nel menù Strumenti e clicca su Riferimenti; a destra di una o più voci vedrai la scritta [Manca]

- se si tratta di librerie non comprese in questo elenco:

    Visual Basic For Application

    Microsoft Excel xx.0 Object Library

    Microsoft Office xx.0 Object Library

    OLE Automation

puoi semplicemente togliere il segno di spunta, salvare e chiudere il file

- in caso contrario devi cercare nell'elenco le due librerie

    Microsoft Excel 14.0 Excel Library

    Microsoft Office 14.0 Object Library

e togliere la spunta a quelle mancanti.

Le librerie 14.0 sono quelle di Office 2010, ma le funzionalità offerte dovrebbero essere identiche.

Credo debba essere tu ad aggiornarlo manualmente modificando la data in Cella "E5".

Giuseppe

Buon pomeriggio, @tempusfugit.

@tempusfugit in #27308, scrive:

... ma scusa la giornata di sabato non è contemplata nel range delle date?

Forse non ho capito il problema ma se la Data del Sabato presente in "D5" è corretta, in "E5" puoi srivere: =$D$5+2

O mi sbaglio?

Giuseppe

Buon pomeriggio, @massimiliano.

@massimiliano in #27316, scrive:

... aprendo il foglio oggi che é sabato 22 agosto, la freccia rimane sul giorno 21!

È strano, a me non accade; non vorrei insistere ma allega il tuo File e posso/possiamo chiarire l'arcano.

Buon fine settimana.

Giuseppe

Ciao

Guardando meglio il tuo allegato credo che la macro vada inserita in "Questa cartella di Lavoro" e non nel modulo del Foglio1 (Viaggi). Comunque la correzione del nome del Foglio va fatta comunque.

Cia,

Mario