Dear Experts
On worksheet, Find button Display many of records instead given criteria in A1
Please reveiw attachment and help
Dear Experts
On worksheet, Find button Display many of records instead given criteria in A1
Please reveiw attachment and help
Here is the changed snippet
' With shData.Columns("A:H").Rows("2:9999") With shData.Columns("A:A").Rows("2:9999") 'Changed By Shasur Set mycell = .Find(stringToLookFor, LookIn:=xlValues) If Not mycell Is Nothing Then firstAddress = mycell.Address Do 'if mycell = stringtolookfor then myFoundRow = mycell.Row shData.Range("a" & myFoundRow & ":H" & myFoundRow).Copy _ Destination:=sh.Cells(myrow, 1) myrow = myrow + 1 'Set mycell = shData.Columns("A:H").FindNext(mycell) Set mycell = shData.Columns("A:H").FindNext(mycell) 'Changed By Shasur Loop While Not mycell Is Nothing _ And mycell.Address <> firstAddress Else MsgBox ("Nothing Found") End If End With