Macros to search for date, copy full row and paste in different spreadsheet

[shefer13]

Hi guys,

I need your help. I'm trying to find a macro that will search for a particular date within the spreadsheet. once found copy all rows that contain this date in column A and paste in another spreadsheet.

The spreadsheet contains in column a date , column b to column x different data text, numbers etc.

Please help.

 

[Fossil1981]

Hi guys,

I need your help. I'm trying to modify this macro to search for Date Range in a specific column, and to search Date Range in several columns in one Worksheet also, and after that to paste the rows in sheets or Workbook.

Sub CopyDateRows()
Dim myDate As String

myDate = InputBox("Enter Date")
If IsDate(myDate) Then
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet.UsedRange.Columns(2)
.AutoFilter Field:=1, Criteria1:= _
"<>" & CLng(DateValue(myDate))
.Offset(2).EntireRow.Delete
.AutoFilter
End With
Application.ScreenUpdating = True
Else
MsgBox "No valid date entered"
End If
End Sub

Please help.