Risultati da 1 a 7 di 7

Discussione: Creare una macro che consenta di inserire nell'intestazione o pie di pagina



  1. #1
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Napoli
    Etą
    42
    Messaggi
    5
    Versione Office
    excell 2010
    Likes ricevuti
    0
    Likes dati
    0

    Red face Creare una macro che consenta di inserire nell'intestazione o pie di pagina

    Creare una macro (FORMULA) che consenta di inserire nell'intestazione o pie di pagina IL CONTENUTO DI UNA CELLA O IL NOME DEL FILE.
    HO UN FILE EXCELL CON 100 FOGLI E DEVO Cambiare il nome a pie pagina nella stampa non posso farlo foglio per foglio visto che ho quasi 70 file

    grazie

  2. #2

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Verona Provincia
    Etą
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    Ciao carabb,

    ti invito, per prima cosa, a passare talla sezione Nuovo iscritto? Presentati al Forum!! per dirci qualcosa di te.

    Non ho capito cosa intendi con
    ".... macro (FORMULA) ...."
    .

    Comunque questo semplice codice inserisce in tutti i fogli del file il nome del foglio ed valore della cella A1 come intestazione ed il nome del file come pič di pagina.
    Codice: 
    Codice: 
    Sub IntePie()
      Dim ws As Worksheet
      
      For Each ws In ActiveWorkbook.Worksheets
        Application.PrintCommunication = False
        With ws.PageSetup
            '.LeftHeader = ""
            '.RightHeader =
            .CenterHeader = ws.Name & ": " & ws.Range("A1").Text
            '.LeftFooter = ""
            '.RightFooter = ""
            .CenterFooter = ws.Parent.Name
        End With
      Next
    End Sub
    Il codice mi sembra molto semplice, ti ho lasciato commentate alcune righe che potresti trovare utili.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  3. #3
    L'avatar di Gerardo Zuccalą
    Clicca e Apri
    Data Registrazione
    May 2015
    Localitą
    Milano, Italy
    Etą
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Citazione Originariamente Scritto da carabb Visualizza Messaggio
    Creare una macro (FORMULA) che consenta di inserire nell'intestazione o pie di pagina IL CONTENUTO DI UNA CELLA O IL NOME DEL FILE.
    HO UN FILE EXCELL CON 100 FOGLI E DEVO Cambiare il nome a pie pagina nella stampa non posso farlo foglio per foglio visto che ho quasi 70 file

    grazie

    Ciao Carabb benvenuto nel forum!!

    Perche non usi gli strumenti di default che ci mette a disposizione excel che sono molto comodi ed intuitivi, anziche usare le macro?
    ad esempio non so se lo sai ma con lo strumento imposta pagina lo puoi fare per tutti i fogli
    es č semplice
    vai su imposta pagina>>intestazione a pič di pagina>>> e poi personalizza pie di pagina

    fammi sapere!



  4. #4
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Napoli
    Etą
    42
    Messaggi
    5
    Versione Office
    excell 2010
    Likes ricevuti
    0
    Likes dati
    0
    scusa mi sono presentato, volevo sapere se esiste una formula o una macro che in automatico potesse scrivermi nel pie di pagina a sinistra un nome preso da una determinata cella o anche dal nome del file stesso
    grazie

  5. #5
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Napoli
    Etą
    42
    Messaggi
    5
    Versione Office
    excell 2010
    Likes ricevuti
    0
    Likes dati
    0
    adesso cosi modifico perņ lo devo fare foglio per foglio pensa che sono 100 fogli di calcolo e li devo rinominare tutti con i dati del cliente nome e cognome, ogni cliente ha un file pensa che lavoraccio

  6. #6
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Napoli
    Etą
    42
    Messaggi
    5
    Versione Office
    excell 2010
    Likes ricevuti
    0
    Likes dati
    0
    Comunque questo semplice codice inserisce in tutti i fogli del file il nome del foglio ed valore della cella A1 come intestazione ed il nome del file come pič di pagina.

    Codice: 
    Codice: 
    Sub IntePie()
      Dim ws As Worksheet
      
      For Each ws In ActiveWorkbook.Worksheets
        Application.PrintCommunication = False
        With ws.PageSetup
            '.LeftHeader = ""
            '.RightHeader =
            .CenterHeader = ws.Name & ": " & ws.Range("A1").Text
            '.LeftFooter = ""
            '.RightFooter = ""
            .CenterFooter = ws.Parent.Name
        End With
      Next
    End Sub
    grazie ho provato, a pie di pagina mi da il nome file, come intestazione mi da il nome del foglio a me servirebbe come Pie di pagina a sinistra mi inserisse il contenuto di una cella

  7. #7
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitą
    Napoli
    Etą
    42
    Messaggi
    5
    Versione Office
    excell 2010
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao carabb,

    ti invito, per prima cosa, a passare talla sezione Nuovo iscritto? Presentati al Forum!! per dirci qualcosa di te.

    Non ho capito cosa intendi con .

    Comunque questo semplice codice inserisce in tutti i fogli del file il nome del foglio ed valore della cella A1 come intestazione ed il nome del file come pič di pagina.
    Codice: 
    Codice: 
    Sub IntePie()
      Dim ws As Worksheet
      
      For Each ws In ActiveWorkbook.Worksheets
        Application.PrintCommunication = False
        With ws.PageSetup
            '.LeftHeader = ""
            '.RightHeader =
            .CenterHeader = ws.Name & ": " & ws.Range("A1").Text
            '.LeftFooter = ""
            '.RightFooter = ""
            .CenterFooter = ws.Parent.Name
        End With
      Next
    End Sub
    Il codice mi sembra molto semplice, ti ho lasciato commentate alcune righe che potresti trovare utili.
    grazie al tuo esempio ho modificato e funziona

    Sub IntePie()
    ActiveSheet.PageSetup.LeftFooter = _
    Format(Worksheets("Documenti ricevuti").Range("B2").Value)
    End Sub

    ho inserito un tasto di scelta rapida e lo inserisco nel foglio che devo modificare

    :296: :296::296::296::296:

Discussioni Simili

  1. Sistemare testo per non sovrapporsi all'immagine di intestazione / pič di pagina
    Di Cristina1 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 13/12/16, 16:50
  2. sommatoria parziale in Intestazione e pič di pagina
    Di frador nel forum Domande su Excel in generale
    Risposte: 17
    Ultimo Messaggio: 21/09/16, 13:29
  3. Inserire tramite intestazione pie' di pagina immagine su tutti i fogli
    Di marco72 nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 21/08/16, 17:51
  4. Creare un collegamento o Link a una pagina
    Di Irclen nel forum Problemi, suggerimenti e Novitą del forum
    Risposte: 2
    Ultimo Messaggio: 08/08/16, 10:51
  5. Intestazione pagina
    Di baz83 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 07/10/15, 09:01

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •