Aumenta altezza riga in base valore cella

[trittico69]

se posso allegare il file dimmi come faccio

[trittico69]

Un'altra cosa il bordo che compare sulla riga è troppo spesso

[Anthony47]

[vorrei che] se C6 non è vuoto stampa solo il primo foglio,se C51 non è vuoto stampa i primi 2 fogli, se C96 non è vuoto stampa i primi tre fogli,se C141 non è vuoto stampa i primi 4 fogli, se C186 non è vuoto stampa i primi 5 fogli, se C231 non è vuoto stampa i primi 6 fogli, se C276 non è vuoto stampa i primi 7 fogli, se C321 non è vuoto stampa i primi 8 fogli, se C366 non è vuoto stampa i primi 9 fogli, tutte le celle menzionate contengono formule

Potrebbe fuzionare questa, eventualmente da associare a un pulsante inserito sul foglio da stampare:

Codice: Seleziona tutto

Sub TriPrint()
Dim cPg As Long, myC As Range
'
For Each myC In Range("C6,C51,C96,C141,C186,C231,C276,C321,C366")
'Conta pagine:
    If Len(myC.Value) = 0 Then
        Exit For
    Else
        cPg = cPg + 1
    End If
Next myC
'
If cPg > 0 Then
    'scegli printer
    SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
    If SelPrint = False Then
        MsgBox "Stampa Cancellata"
        Exit Sub
    End If
    '
    ActiveSheet.PrintOut From:=1, To:=cPg, Copies:=1, IgnorePrintAreas:=False
End If
End Sub


ho provato ad eliminare una riga e siccome le celle eliminate sono collegate con formula in altro foglio, c'è modo di far si che o aggiungo o elimino righe in automatico le coordinate celle formule si aggiornano?

Se le formule puntano ad “altro foglio dello stesso file” allora le formule si aggiornano man mano che togli e aggiungi righe. Se puntano “al altro foglio di altro file” allora le formule si aggiornano se l’altro file e’ aperto mentre aggiungi e togli righe; se invece l’altro foglio e’ chiuso i collegamenti vengono alterati, e’ abbastanza problematico ricostruirli

e se si puo tornare indietro, una volta partita la macro, anche solo di qualche passo

Parli della macro che aggiunge le righe?
Se Sì, allora questa macro tutte le volte che la lanci elimina la prima "riga aggiunta" che viene trovata prima della riga attiva (quindi, ragionevolmente, l'ultima riga aggiunta in ordine di tempo):

Codice: Seleziona tutto

Sub KillLast()
Dim lAdd As Long
'
lAdd = Evaluate("Max(If(A1:A" & ActiveCell.Row & " = "" . "",row(A1:A" & ActiveCell.Row & "),""""))")
If lAdd > 0 Then
    Application.EnableEvents = False
    Cells(lAdd, 1).EntireRow.Delete Shift:=xlUp
    Application.EnableEvents = True
End If
End Sub


Anche questa la puoi associare a un pulsante per eseguirla piu’ rapidamente, o a una combinzione di tasti, o ad altra automazione compatibile con la versione di Office che usi (vedi viewtopic.php?f=26&t=103893&p=647678#p647678)

Un'altra cosa il bordo che compare sulla riga è troppo spesso

Invece che xlThick puoi usare (nel codice della macro) xlMedium oppure xlThin

Speriamo di non aggiungere altro a questa discussione...

[trittico69]

la macro stampa non parte, ho messo pulsante e assegnato la macro ad esso ma non da segni di vita
per la macro torna indietro, è per quella che inserisce il bordo

[Anthony47]

la macro stampa non parte

Probabilmente ho interpretato male la tua descrizione alquanto “stringata”; riproviamo con questa:

Codice: Seleziona tutto

Sub TriPrint2()
Dim cPg As Long, rArr, I As Long
'
'Calcola quante pagine
rArr = Array(6, 51, 96, 141, 186, 231, 276, 321, 366)   'Quali righe testare
For I = 0 To UBound(rArr)
    If Len(Cells(rArr(I), "C").Value) > 0 Then cPg = I + 1
Next I
'
Debug.Print "cPg=" & cPg
If cPg > 0 Then
    'scegli printer
    SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
    If SelPrint = False Then
        MsgBox "Stampa Cancellata"
        Exit Sub
    End If
    '
    ActiveSheet.PrintOut From:=1, to:=cPg, Copies:=1, IgnorePrintAreas:=False
End If
End Sub


la macro torna indietro, è per quella che inserisce il bordo

Per tornare indietro di un passo sull’ampliamento di riga + bordo superiore prova a usare questa macro:

Codice: Seleziona tutto

Sub BackOne()
Dim I As Long
'
defH = 22               '<<< L'Altezza in pixel se cella vuota
'
For I = ActiveCell.Row To 1 Step -1
    If Cells(I, 1).Borders(xlEdgeTop).LineStyle = 1 Then
        Cells(I, 1).EntireRow.Borders(xlEdgeTop).LineStyle = xlNone
        Cells(I, 1).EntireRow.RowHeight = defH
        Exit For
    End If
Next I
End Sub


[trittico69]

le macro delle stampe vanno bene tutte e due , sono io un ca***ne la colonna era la B, l'ho modificato io adesso, però stampa anche i foglio successivo.
se ci fosse la possibilità di vedere prima l'anteprima

[Anthony47]

le macro delle stampe vanno bene tutte e [. . . ] però stampa anche i foglio successivo

Se dopo una stampa apri la “finestra Immediata” del vba dovresti vedere la scritta “cPg=x”, dove X indica il numero di pagine che la macro ha comandato di stampare.
Questo “X” e’ coerente con il contenuto delle celle di colonna B (non C, giusto) delle righe 6, 51, 96, 141, 186, 231, 276, 321, 366? E’ coerente con il numero di pagine stampate?

Comunque io lavorerei impostando l’area di stampa, non il numero di pagine: che relazione c’e’ tra le celle che andiamo a controllare e il range dell’area da stampare? E’ possibile che pag. 1 finisca su riga 50 e pag. 2 cominci su riga 52, o c’e’ un’altra relazione che possiamo usare? E in quanto a colonne, quali sono quelle da stampare?

La print preview credo che non risolva nulla, perche’ fa vedere la stampa di tutto il documento (salvo che non sia impostata un’area di stampa, ma allora siamo gia’ con la soluzione fatta, vedi proposta precedente)

[trittico69]

dalla riga 1 alla 42 compresa, poi ci sono tre celle vuote e va dalla 46 all'87.
e se può servire ogni pagina è contornata da un bordo spesso

[Anthony47]

Per impostare l’area di stampa servirebbero anche le colonne da stampare; e almeno l’area di pag 3 per avere conferma di un’idea che mi son fatto sulla base dell’area delle prime due pagine

Ma la verifica sulla “finestra Immediata” che esito ha dato?

[trittico69]

dalla colonna B alla K

[Anthony47]

[...] e almeno l’area di pag 3 per avere conferma di un’idea che mi son fatto sulla base dell’area delle prime due pagine

Ma la verifica sulla “finestra Immediata” che esito ha dato?

Tutte le risposte aiutano...

[trittico69]

Tutte le pagine di stampa sono uguali stesso numero di righe stesso numero di colonne e lo stesso spazio tra una e l'altra. Per il fatto della finestra immediata non ho capito bene come fare

[Anthony47]

Sulla base delle mie migliori stime:

Codice: Seleziona tutto

Sub TriPrint33()
Dim cPg As Long, myC As Range
'
For Each myC In Range("B6,B51,B96,B141,B186,B231,B276,B321,B366")
'Conta pagine:
    If Len(myC.Value) = 0 Then
        Exit For
    Else
        cPg = myC.Row + 42 - 5
    End If
Next myC
Debug.Print "cPg=" & cPg
'
If cPg > 6 Then
    'scegli printer
    SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
    If SelPrint = False Then
        MsgBox "Stampa Cancellata"
        Exit Sub
    End If
    '
    Debug.Print "Print area is: " & "$B$1:$K$" & cPg
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "$B$1:$K$" & cPg
    Application.PrintCommunication = False
    ActiveSheet.PageSetup.FitToPagesWide = 1
    Application.Wait (Now + TimeValue("0:00:02"))
    Application.PrintCommunication = True
    ActiveSheet.PrintOut IgnorePrintAreas:=False
End If
End Sub


[trittico69]

ti allego il file che deve stampare il foglio sanitario
https://www.swisstransfer.com/d/dd60482 ... 618adc3c63
il tuo codice non riesco a farlo funzionare

[Anthony47]

Nel foglio SANITARIO le celle controllate (B6,B51,B96,B141 etc etc) non sono mai vuote (infatti hai dovuto impostare “Nascondi gli Zero”), quindi il controllo fatto con If Len(myC.Value) =0 Then fallisce
Se quelle celle, quando compilate su foglio MATRICOLA, hanno sempre almeno 2 caratteri allora si potrà usare

Codice: Seleziona tutto

If Len(myC.Value) < 2 Then


Inoltre il foglio aveva impostato un’area di stampa (probabilmente residuo di prove con la Sub TriPrint33) ma anche l’opzione “Riduci la stampa su 1 sola pagina”

Risolvendo queste situazioni, il codice della Sub TriPrint33 diventa:

Codice: Seleziona tutto

Sub TriPrint33()
Dim cPg As Long, myC As Range
'
For Each myC In Range("B6,B51,B96,B141,B186,B231,B276,B321,B366")
'Conta pagine:
    If Len(myC.Value) < 2 Then                          'MM
        Exit For
    Else
        cPg = myC.Row + 42 - 5
    End If
Next myC
Debug.Print "cPg=" & cPg
'
If cPg > 6 Then
    'scegli printer
    SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
    If SelPrint = False Then
        MsgBox "Stampa Cancellata"
        Exit Sub
    End If
    '
    Debug.Print "Print area is: " & "$B$1:$K$" & cPg
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "$B$1:$K$" & cPg
    Application.PrintCommunication = False
    ActiveSheet.PageSetup.FitToPagesWide = 1
    ActiveSheet.PageSetup.FitToPagesTall = 0                '++
    Application.Wait (Now + TimeValue("0:00:02"))
    Application.PrintCommunication = True
    ActiveSheet.PrintOut IgnorePrintAreas:=False
End If
End Sub


La riga marcata MM e’ modificata rispetto al codice iniziale, quella marcata ++ e’ stata aggiunta
Per assicurare che ogni blocco venga stampato su una pagina allora e’ meglio che:
-rimuovi tutte le interruzioni riga presenti al momento
-inserisci una interruzione linea sulla riga dove comincia ogni blocco da stampare (ovviamente da fare solo una volta prima di cominciare a usare il “modello”)

Prova...

[trittico69]

fatto tutto, la macro print33 non da segni di vita

[trittico69]

e il foglio matricola non si adatta alla pagina di stampa.
per i nomi possono essere anche di due lettere(nomi cinesi) quindi dovremmo mettere superiori o uguali a 2

[trittico69]

rettifico , la stampa va benissimo, mentre il foglio matricola continua a non adattarsi.
per il fatto delle due lettere dimmi se è corretto così

Codice: Seleziona tutto

If Len(myC.Value) <= 2 Then

[Anthony47]

il foglio matricola continua a non adattarsi

Quale e' il contenuto di foglio MATRICOLA (hai condiviso un file con fogli vuoti)?

per il fatto delle due lettere dimmi se è corretto così

Codice: Seleziona tutto

If Len(myC.Value) <= 2 Then

No, deve rimanere If Len(myC.Value) < 2 Then

[trittico69]

Quindi se le lettere sono due la macro non le considera?
Per quanto riguarda il foglio matricola anche vuoto così come te l'ho allegato a me non adatta, mentre il foglio sanitario si.