Seems I got it, so far I have this running code working:
Filters MAC and date, will post once I got the correct for the different workbook.
Sub run()
Dim i As Long, ws As Worksheet, mc, dt, sysdt
Set ws = Sheets("INPUT")
sysdt = WorksheetFunction.Text(ws.Range("K1").Value, "d") & WorksheetFunction.Text(ws.Range("K1").Value, "mm") & WorksheetFunction.Text(ws.Range("K1").Value, "yy")
Sheets("OUTPUT").Select
With Sheets("OUTPUT")
For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
mc = ws.Cells(i, 1).Value
dt = ws.Cells(i, 3).Value
Select Case True
Case mc Like "*MAC*" And dt Like sysdt 'take these only
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9).Value = ws.Cells(i, 1).Resize(, 9).Value
Case Else
'do nothing
End Select
Next
End With
Set ws = Nothing
End Sub
Bookmarks