Utilizzare il valore in (A1) quale variabile in una formula nelle celle.

Question

Buongiorno, ho il seguente problema, utilizzo un foglio Excel quale cockpit riassuntivo di estrazione dati da un altro foglio Excel che funge da DB annuo.

Quindi, il nome di quest'ultimo è "GASP-2022.xlsm" ed il prossimo anno sarà "GASP-2023.xlsm".

Ora nel mio cockpit ho la seguente formula reiterata per circa 300 celle, =SOMMA.PIÙ.SE('[GASP-2022.xlsm]Dati_GASP'!$I:$I;'[GASP-2022.xlsm]Dati_GASP'!$C:$C;$P$1;'[GASP-2022.xlsm]Dati_GASP'!$F:$F;$B11;'[GASP-2022.xlsm]Dati_GASP'!$E:$E;G$5)

Nella Cella A1 riporto l'anno corrente, fra qualche mese dovrò aggiornare le 300 celle con (il foglio db) dell'ano nuovo, quindi la nuova formula sarà :

=SOMMA.PIÙ.SE('[GASP-2023.xlsm]Dati_GASP'!$I:$I;'[GASP-2023.xlsm]Dati_GASP'!$C:$C;$P$1;'[GASP-2023.xlsm]Dati_GASP'!$F:$F;$B11;'[GASP-2023.xlsm]Dati_GASP'!$E:$E;G$5)

Mi chiedevo se non fosse possibile via VBA o magari costruire una variabile che possa adattare le formule con l'anno corrente al fine di inserire l'appropriato valore nelle formule --> GASP-2023.xlsm / GASP-2024.xlsm / GASP-2025.xlsm / ecc ...

Vi ringrazio già sin d'ora.

Andrea A.

Answer 1

Ciao Andrea,

Anche se probabilmente non necessario, se vuoi eseguire il cambio d'anno con VBA, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Aggiorna_Anno()

Dim SH As Worksheet 

Dim iVecchio\_Anno As Long 

Dim iNuovo\_Anno As Long 

Dim sAnno As String 

Dim Rng As Range 

Const sFoglio As String = **"Foglio1"               '<<=== Modifica** 

iVecchio\_Anno = Application.InputBox(Prompt:="Immetti il vecchio anno", Default:=Year(Date), Title:="VECCHIO ANNO", Type:=1) 

If iVecchio\_Anno = 0 Then 

    sAnno = "vecchio" 

    GoTo XIT 

End If 

iNuovo\_Anno = Application.InputBox(Prompt:="Immetti il nuovo anno", Default:=Year(Date + 365), Title:="NUOVO ANNO", Type:=2) 

If iNuovo\_Anno = 0 Then 

    sAnno = "nuovo" 

    GoTo XIT 

End If 

Set SH = ThisWorkbook.Sheets(sFoglio) 

On Error Resume Next 

Set Rng = SH.Cells.SpecialCells(xlCellTypeFormulas) 

On Error GoTo 0 

If Not Rng Is Nothing Then 

    Rng.Replace iVecchio\_Anno, iNuovo\_Anno 

End If 

Exit Sub

XIT:

Call MsgBox(Prompt:="Non hai immesso l'anno " & sAnno & "!", \_ 

    Buttons:=vbCritical, \_ 

    Title:="PROBLEMA!") 

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao Andrea,

Buongiorno, ho il seguente problema, utilizzo un foglio Excel quale cockpit riassuntivo di estrazione dati da un altro foglio Excel che funge da DB annuo.

Quindi, il nome di quest'ultimo è "GASP-2022.xlsm" ed il prossimo anno sarà "GASP-2023.xlsm".

Ora nel mio cockpit ho la seguente formula reiterata per circa 300 celle, =SOMMA.PIÙ.SE('[GASP-2022.xlsm]Dati_GASP'!$I:$I;'[GASP-2022.xlsm]Dati_GASP'!$C:$C;$P$1;'[GASP-2022.xlsm]Dati_GASP'!$F:$F;$B11;'[GASP-2022.xlsm]Dati_GASP'!$E:$E;G$5)

Nella Cella A1 riporto l'anno corrente, fra qualche mese dovrò aggiornare le 300 celle con (il foglio db) dell'ano nuovo, quindi la nuova formula sarà :

=SOMMA.PIÙ.SE('[GASP-2023.xlsm]Dati_GASP'!$I:$I;'[GASP-2023.xlsm]Dati_GASP'!$C:$C;$P$1;'[GASP-2023.xlsm]Dati_GASP'!$F:$F;$B11;'[GASP-2023.xlsm]Dati_GASP'!$E:$E;G$5)

Mi chiedevo se non fosse possibile via VBA o magari costruire una variabile che possa adattare le formule con l'anno corrente al fine di inserire l'appropriato valore nelle formule --> GASP-2023.xlsm / GASP-2024.xlsm / GASP-2025.xlsm / ecc ...

• F5
• Speciale
• Seleziona Formule
• OK

  [![Immagine](https://learn-attachment.microsoft.com/api/attachments/9cee1b8a-9839-4e23-ad92-393fda74a757?platform=QnA"https://learn-attachment.microsoft.com/api/attachments/c44f1d0c-325a-46e9-8a77-725e42729852?platform=QnA" rel="ugc nofollow">

===

Regards,

Norman