Nitesh Kumar
New Member
Hi all,
i want to filter data and paste in another sheet, sheet is created date criteria wise.
please see attachment for example and also see coding where is incorrect.
i want to filter data and paste in another sheet, sheet is created date criteria wise.
please see attachment for example and also see coding where is incorrect.
Code:
Dim a As String
Dim wkb As Worksheet
a = Range("H3")
Range("E1").AutoFilter , Field:=5, Criteria1:=Format(a, "dd/mm/yyyy"), visibledropdown:=True
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).name = Format(a, "dd/mm/yyyy")
Range("A1:E1" & Sheet1.Cells(Rows.Count, "E").End(xlUp).Row).Copy Sheets(Sheets.Count).Range("A1:E1")
Worksheets("sheet1").AutoFilterMode = False