EXCEL-Interruzione di pagine dopo totale

Question

Dividi da questo thread.

Sempre più difficile... :-)

Grazie all'efficientissimo Mauro, ho imparato a  fare bellissime formattazioni condizionali, ma non ho trovato il modo di aggiungere un "interruzione di pagina" dopo la riga che contiene in una determinata cella la stringa "totale", in modo da ottenere in stampa pagine diverse.

è possibile?

Grazie,

Alessandro

Answer 1

Ciao Alessandro,

Dividi da questo thread.

Sempre più difficile... :-)

Grazie all'efficientissimo Mauro, ho imparato a  fare bellissime formattazioni condizionali, ma non ho trovato il modo di aggiungere un "interruzione di pagina" dopo la riga che contiene in una determinata cella la stringa "totale", in modo da ottenere in stampa pagine diverse.

è possibile?

Prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rng As Range

    Const miaCella As String = "B18"                           '<<=== Modifica

    Const miaParola As String = "Totale"

    With Me

        Set Rng = Intersect(.Range(miaCella), Target)

        If Not Rng Is Nothing Then

            If UCase(Rng.Value) = UCase(miaParola) Then

                Me.HPageBreaks.Add Before:=Rng.EntireRow.Cells(1).Offset(1)

            Else

                .ResetAllPageBreaks

            End If

        End If

    End With

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Se non hai familiarità con le macro, ti consiglio l'ottimo articolo di Mauro:

http://answers.microsoft.com/it-it/office/wiki/office\_2013\_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Ora un'interruzione di pagina sarà inserita o cancellata sulla riga successiva in risposta all'inserimento o la cancellazione del termine designato t otale. 

===

Regards,

Norman