break page for each range based on ending of month

[Alaa-A]

Hello,

I search for macro to create break page for each range based on ending of month into first sheet . so the range is from column A: H . the column A is date DD\MM\YYYY .

so when end the date for each month for each range like 28 or 30 or 31 , then should break page after number of ending for that month for each range separately from the beginning to end and move to next range and create break page based on number of ending for that month so on .
currently this macro doesn't do what I want it .

Please Login or Register  to view this content.

[JohnTopley]

The code works for me: but change orientation to Landscape.

[Alaa-A]

but change orientation to Landscape.

thank, but why now works when change as in your proposition and even if I return to orientation ?

[Marc L]

so when end the date for each month for each range like 28 or 30 or 31[…]

According to your attachment as this is not the appropriate way to go so try this starter Excel basics VBA demonstration :

Sub Demo1() 
           Dim Rf As Range 
    With ActiveSheet.UsedRange.Columns(1) 
           Set Rf = .Find("DATE", [A1], xlValues, 1) 
        If Not Rf Is Nothing Then 
            Do 
              .Parent.HPageBreaks.Add Rf 
                   Set Rf = .FindNext(Rf) 
            Loop Until Rf.Row = 1 
                   Set Rf = Nothing 
        End If 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[Alaa-A]

thanks Marc for the code works as I want it .