Excel Richiamare un valore di cella in Intestazione/Piè pagina

[riccardonard]

Salve, vorrei sapere se esiste un modo per inserire nell'Intestazione/PièPagina il valore di una o più celle.
In pratica io vorrei scrivere in un titolo di un foglio Excel una cosa come questa:
"Tabella dei valori da X a Y"
Dove X e Y sono i valori contenuti rispettivamente nelle celle A4 e B12 (o altre celle qualsiasi).
Grazie
Riccardo

[Alexsandra]

con una macro si. tipo questa

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For Each fg In ThisWorkbook.Sheets
fg.PageSetup.RightFooter = "Tabella dei valori da " & Sheets("Foglio1").Range("A4").Value & " a " & Sheets("Foglio1").Range("B12").Value
    Next fg
End Sub

la devi mettere in Thisworkbook, oppure se la vuoi solo in 1 foglio

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Foglio1").PageSetup.RightFooter = "Tabella dei valori da " & [A4] & " a " & [B12]
End Sub

PS: devi lanciare la stampa per vederla

[riccardonard]

Ti ringrazio molto Alexsandra
Io speravo in una soluzione molto più elementare e immediata, nel senso che si potesse inserire il riferimento nell'Intestazione/PièPagina.
Tuttavia, se non si può fare, pazienza, mi adeguerò a fare la macro.
Grazie ancora
Ciao
Riccardo

[riccardonard]

In realtà, ho provato e non funziona, neppure stampando fisicamente il foglio.
Mi da errore run time '9': "Indice non incluso nell'intervallo" ???????????

[riccardonard]

Inviato da riccardonard

In realtà, ho provato e non funziona, neppure stampando fisicamente il foglio.
Mi da errore run time '9': "Indice non incluso nell'intervallo" ???????????

NO, NO, mi ero semplicemente sbagliato a scrivere: avevo scritto Foglio11 anziché Foglio1, allora non trovava l'indice 11 nell'intervallo dei fogli da 1 a 3.
OK, funziona, scrivendo la frase completa coi numeri X e Y corretti; se però voglio modificare la posizione da RigthFooter a CenterHeader (ad esempio), devo cancellare manualmente il testo nella vecchia posizione altrimenti mantiene la vecchia intestazione oltre alla nuova. Insomma bisogna modificare manualmente eventuali aggiornamenti.

Grazie per l'aiuto
Riccardo

[Alexsandra]

si purtroppo devi editare manualmente
oltre ai campi disponibili presenti nella maschera di inserimento del piè di pagina non si può fare altro se non usando vba

[riccardonard]

Grande, Alexsandra!
Visto che sei stata così gentile, mi potresti indicare anche come assegnare gli attributi grassetto e corpo 14 a quel titolo assegnato da macro?
Grazie infinite.
Riccardo

[Alexsandra]

puoi fare così

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Arial,Bold"" &14Tabella dei valori da " & [A4] & " a " & [B12]
End Sub

poi se vuoi cambiare la posizione del testo devi cambiare RightFooert con .LeftFooter o con .CenterFooter

[riccardonard]

Ho provato e funziona perfettamente.
Sei una "bomba" Alexsandra.
Grazie tante ancora, davvero!
Riccardo

[pamelapa90]

Ciao,
mi intrometto in questa discussione sperando che qualcuno possa ancora rispondermi.

Ho lo stesso problema dell'utente che aveva iniziato questa discussione. Grazie ai suggerimenti che gli erano stati dati sono riuscita a creare il collegamento nel piè pagina ma non riesco a fare in modo che i valori riportati nel piè pagina vengano formattati.

Seguendo le indicazioni ho provato a scrivere la macro in questo modo, ma mi segnala errore.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

For Each fg In ThisWorkbook.Sheets

    fg.PageSetup.RightFooter = Sheets("Preventivo").Range("F1").Value & " - " & Sheets("Preventivo").Range("E2").Value
    ActiveSheet.PageSetup.RightFooter = "&""Century Gothic,Normale"" &6 & [F1] & " - " & [E2]"

Next fg
End Sub

Spero qualcuno possa aiutarmi
Grazie in anticipo

[Alexsandra]

C'è qualche imprecisione nel tuo codice, se vuoi inserire l'intestazione solo nel foglio attivo puoi usare un codice del genere

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Preventivi").PageSetup.RightFooter = "&""Century Gothic,Normale"" &14" & [M6] & " - " & [P14]
End Sub

questo imposta il carattere Century con corpo 14
Il ciclo For Each usato qualche post sopra era stato usato per inserire le intestazioni in tutti i fogli della cartella

[pamelapa90]

Io vorrei applicarlo solo ad un foglio e vorrei che se creo una copia di questo foglio in un altra cartella di lavoro, continuasse a funzionare.

Ho provato con questo codice, ma non funziona, nemmeno all'interno della cartella di lavoro di origine del mio foglio. Eppure mi sembra di applicare la dicitura corretta.

Private Sub Worksheets_BeforePrint(Cancel As Boolean)

ThisWorksheet.PageSetup.RightFooter = "&7&""Century Gothic""" & [F1] & " - " & [E2]

End Sub

Grazie mille

[pamelapa90]

Aggiungo una precisazione. La macro la devo scrivere nel foglio in cui voglio che ciò avvenga, giusto? E non applicarla all'intera cartella di lavoro, altrimenti se poi creo una copia di questo foglio in un altra cartella, il codice non mi rimane, dico bene?
Giusto per capire dove sto sbagliando..

Grazie

[pamelapa90]

Anzi scusa, all'interno della cartella di lavoro originaria del foglio, la macro funziona e l'ho scritta nel modulo del foglio che mi interessa, applicata solo a quel foglio.
Ma se poi creo una copia di quel foglio, la macro rimane applicata al foglio ma non funziona.
Sai per caso dirmi per quale motivo?
Grazie in anticipo

[Alexsandra]

ti rispondo per punti

Io vorrei applicarlo solo ad un foglio e vorrei che se creo una copia di questo foglio in un altra cartella di lavoro, continuasse a funzionare.

Se fai la copia tramite la selezione delle celle e copi il contenuto cliccando sui tasti CTRL+C e CTRL+V nel foglio di destinazione ti porti dietro solo il contenuto delle celle.

Se invece apri la cartella di destinazione, la minimizzi, e fai la stessa cosa con la cartella di origine e poi selezioni il foglio cliccando sull'etichetta (in basso a Sx) dello stesso e tenendo premuto il tasto del mouse lo trascini nella cartella di destinazione allora porti anche il
codice della macro nella cartella di destinazione

In ultima per funzionare devi scrivere il codice che ti ho postato, il tuo contiene delle imprecisioni. Dato che ora usi il foglio attivo devi inserire il codice in questa forma

Private Sub Worksheets_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Century Gothic,Normale"" &14" & [F1] & " - " & [E2]
End Sub

Aggiungo una precisazione. La macro la devo scrivere nel foglio in cui voglio che ciò avvenga, giusto?

si

E non applicarla all'intera cartella di lavoro, altrimenti se poi creo una copia di questo foglio in un altra cartella, il codice non mi rimane, dico bene?

Se metti la macro in ThisWorkBook e poi copi il foglio non rimane il codice

Anzi scusa, all'interno della cartella di lavoro originaria del foglio, la macro funziona e l'ho scritta nel modulo del foglio che mi interessa, applicata solo a quel foglio.
Ma se poi creo una copia di quel foglio, la macro rimane applicata al foglio ma non funziona.
Sai per caso dirmi per quale motivo?

Perchè non usi la dicitura ActiveSheet