Pagina einde

[ronaldvm1964]

Ik heb een macro nodig die een pagina einde zet na een subtotaal. Ik heb er wel één voor een subtotaal maar ik kom er even uit wat ik moet veranderen om te zorgen dat de pagina einde onder het subtotaal komt te staan.

Sub Break()
With Sheets("maand").Cells
On Error Resume Next
Set c = (.Find(What:="totaal", After:=[A3], LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext))
If Not c Is Nothing Then
firstaddress = c.Address
Do
ActiveSheet.HPageBreaks.Add Before:=c
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub

 

[snb]

Dit lijkt me voldoende:

Sub tst()
  Sheets("maand").HPageBreaks.Add Sheets("maand").usedrange.Find("totaal", [A3],xlvalues,xlWhole).Offset(1)
End Sub

 

[ronaldvm1964]

Krijg een foutmelding, heb een voorbeeld bestand bijgevoegd, misschien dat het dan duidelijker wordt

Dit lijkt me voldoende:

Sub tst()
  Sheets("maand").HPageBreaks.Add Sheets("maand").usedrange.Find("totaal", [A3],xlvalues,xlWhole).Offset(1)
End Sub

 

[snb]

Sub tst()
  Sheets("maand").HPageBreaks.Add Sheets("maand").usedrange.Find("totaal", [A3],xlvalues).Offset(1)
End Sub

 

[ronaldvm1964]

Dit werk perffekt, dank je wel, alleen gedt dit voor 1 totaal
Nu alleen een pagina einde na elke totaal in hetzelfde werkblad.

Sub tst()
  Sheets("maand").HPageBreaks.Add Sheets("maand").usedrange.Find("totaal", [A3],xlvalues).Offset(1)
End Sub

 

[snb]

2 alternatieven:

Sub tst()
  jj = 1
  With Sheets(1)
    For j = 1 To WorksheetFunction.CountIf(.Columns(1), "totaal")
      With .Columns(1).Find("totaal*", .Cells(jj, 1), xlValue)
        .HPageBreaks.Add .Offset(1)
        jj = .Offset(1).Row
      End With
    Next
  End With
End Sub

Sub tst2()
  With Sheets(1).UsedRange.Columns(1)
    .AutoFilter 1, "totaal"
    For Each cl In .SpecialCells(xlCellTypeVisible)
      Sheets(1).HPageBreaks.Add cl.Offset(1)
    Next
    .AutoFilter
  End With
End Sub

 

[ronaldvm1964]

Ik ga dit morgen gelijk testen als ik op mijn werk ben, laat nog weten of het werkt.
Iedergeval heel erg bedankt alvast voor het meedenken

Ik heb de 2 versie's getest en versie 2 (tst2) werkt perfekt
Heel erg bedankt voor de oplossing.