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ā
    43
    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ā
    58
    Messaggi
    1212
    Versione Office
    .
    Likes ricevuti
    456
    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ā
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342
    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!


    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  4. #4
    L'avatar di carabb
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Localitā
    Napoli
    Etā
    43
    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ā
    43
    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ā
    43
    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ā
    43
    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, 15: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, 12: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, 16: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, 09:51
  5. Intestazione pagina
    Di baz83 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 07/10/15, 08: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
  •