Multiple condition page break

[derekjae]

I have a Worksheet that I import a CSV file into and then use vba to format. the first column has a date and time format which can consist of multiple days (ie. 3/11/2025 13:21 and 3/12/2025 17:56) I need to have each day have its own page and each page can only have 25 rows. a page can have less rows but no more than 25. I can write up a code to page break at 25 but not sure how i can page break by date and 25 rows per page. any help would be greatly appreciated.

[Aussiebear]

Does this work for you?

Sub InsertPageBreaksByDateAndRowCount()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim rowCount As Long
    Dim currentDate As Date
    ' Set the worksheet you are working with
    Set ws = ThisWorkbook.Sheets("YourSheetName") ' Change "YourSheetName" to the actual sheet name
    ' Find the last row in Column A with data
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    ' Initialize variables  rowCount = 0
    currentDate = ws.Cells(1, "A").Value 
    ' Assume the first date is in A1
    ' Loop through the rows
    For i = 1 To lastRow
        ' Check for date change
        If ws.Cells(i, "A").Value <> currentDate Then
            ' Insert a page break before the current row if it's not the first row
            If i > 1 Then
                ws.Rows(i).PageBreak = xlPageBreakManual
            End If
            currentDate = ws.Cells(i, "A").Value
            rowCount = 1 
            ' Reset row count for the new date
        Else
            rowCount = rowCount + 1
        End If
        ' Check if the row count for the current page exceeds 25
        If rowCount > 25 Then
            ' Insert a page break before the current row
            ws.Rows(i).PageBreak = xlPageBreakManual
            rowCount = 1 
            ' Reset row count for the new page
        End If
    Next i
    MsgBox "Page breaks inserted based on date changes and a maximum of 25 rows per page.", vbInformation
End Sub

[Paul_Hossler]

In your screen shot the Amount column appears to have a Daily Total.

Is that in the CSV?

[derekjae]

This worked Perfect, Thank you Very much

[Aussiebear]

Thank you for asking in this forum.

[henaleona]

You mentioned you can break at 25 rows, but do you reset the count when a new date starts?

[Aussiebear]

Welcome to VBAX henaleona. If your post was directed to me then look at line 24 in the module.