+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Intestazione di pagina, per stampa foglio singolo, basata su contenuto cella "indice"

  1. #1
    RiccardoA non  in linea Scolaretto
    Ciao,
    non so se si capisce dal titolo.
    Ho creato una serie di foglio parametrici,che basano tutte le loro formule sul nome del foglio.
    Funzionano molto bene.
    L'unico problema, vorrei che nella intestazione, oltre al nome foglio, apparisse una descrizione, che venisse presa da una cella del foglio stesso.
    E' possibile aggiungere questo automatismo ai fogli?

  2. #2
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    Ciao
    per quanto ne so credo tu debba ricorrere al vba.

    Questo che segue un esempio che inserisce nella intestazione (al centro) il nome del foglio ed il valore della cella A1:
    ...
    With ActiveSheet.PageSetup
    .CenterHeader = "&[Scheda]" & Chr(10) & Range("A1").Value
    End With
    
    saluti

  3. #3
    RiccardoA non  in linea Scolaretto
    ciao,

    il codice funziona sotto macro.
    ora cerco di fare le modifiche che seguono:
    1) mettere di lato
    2) mettere il carattere che piace a me
    3) rendere il tutto automatico per ogni foglio

  4. #4
    RiccardoA non  in linea Scolaretto
    Ciao ragazzi

    sono riuscito a fare la 1 e la 3, sistemando la macro.

    il problema settare il carattere (grandezza font).

    mi ritrovo una situazione di questo tipo:

    '"Some&B&""Courier New""&10 Bold Courier New Size 10&B&""Arial"" Text"

    trovato su internet.

    in realt sul primo foglio della macro, il font lo prende della grdandezza corretta.
    dalle altre parti.. ESPLODE!
    da 10 passa a grandezza 409... senza alcun motivo.

    pu essere il mio excel ad essere pazzo?!
    .LeftHeader = Range("A1").Value & " " & Range("G1").Value

    e vorrei mettere come in questo esempio,

  5. #5
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    Ciao
    assegna ad una variabile i valori di A1 e G1, es:
    ...
    Dim MyStr As String
    MyStr = Range("A1").Value & " " & Range("G1").Value
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Grassetto""&10" & MyStr
        End With
    ...
    
    saluti

  6. #6
    RiccardoA non  in linea Scolaretto
    Funziona solo sul primo foglio.

    sugli altri impazzisce e spagina.
    Sub modifica_intestazione()
    Dim sh As Worksheet
    Dim MyStr As String
    For Each sh In Sheets
    sh.Activate
    If sh.Visible = False Then
    Else
    MyStr = Range("A1").Value & " " & Range("G1").Value
    With ActiveSheet.PageSetup
    .LeftHeader = "&""Arial,Grassetto""&10" & MyStr
    .RightHeader = ""
    End With
    End If
    Next
    End Sub

  7. #7
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    Prova ad anteporre uno spazio in MyStr:

    MyStr = " " & Range("A1").Value & " " & Range("G1").Value

    altro non saprei suggerirti

    saluti
    Ultima modifica di dodo47; 21-08-2013 18:29 

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. "Intestazione =[Data]" scritta su IntestazioneGruppo0
    Da OsvaldoLaviosa nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 31-01-2019, 14:35
  2. Inserire data statica in cella B se in cella A presente valore "Si"
    Da brunosardisco nel forum Microsoft Excel
    Risposte: 16
    Ultimo Post: 14-05-2016, 01:00
  3. Risposte: 3
    Ultimo Post: 07-05-2015, 23:21
  4. Errore "Indice oltre i limiti della matrice"
    Da e.manfredi nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 12-04-2014, 14:05
  5. [Excel] Macro aggiungi testo "xxx" in cella "A1"
    Da dighitosz nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 26-02-2013, 08:40