Dates pull before 6 months & after todays date

[Abhijeet]

Hi

I have change date format if date in cell but i need if any date before 6 months & after todays date any dates then cut paste that row in different workbook please tell me how to do this

Sub US_Date_Format()
    Application.ScreenUpdating = False
    With ActiveSheet
        y_max = .UsedRange.Rows.Count
        x_max = .UsedRange.Columns.Count
        For y = 1 To y_max
            For x = 1 To x_max
                If IsDate(.Cells(y, x)) Then .Cells(y, x).NumberFormat = "[$-409]dd/mmm/yy;@"
                If IsDate(.Cells(y, x)) Then .Cells(y, x).HorizontalAlignment = xlCenter
            Next x
        Next y
    End With
    Application.ScreenUpdating = True
End Sub

 

[Hui]

Can you please post a sample worksheet with the data?

 

[Abhijeet]

Hi,Hui

Please find attach file current macro look each cell date but i need from Column M to U i any date hen change format then find below 6 month & above current date if any find then cut paste that row in different work book