Match value from column A to column A on 2nd sheet and then co
Thank You,
That works great but rather than using an InputBox I would like to use the
value in sheet1columnA as my search value and if it is a duplicate ignore it.
Dan
"CurlyDave" wrote:
Try this
Sub FindItemOtherSheet()
Dim sh As Worksheet
Dim f As Range
Dim s As String
Application.ScreenUpdating = False
s = InputBox("Enter Item to find", "Hello", Default)
Set f = Worksheets("Sheet2").Columns("A:A").Find(s,
LookIn:=xlValues)
If Not f Is Nothing Then
f.Rows("1:1").EntireRow.Copy Destination:=Worksheets
("Sheet1").Range("A65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
|