want my code to find all data needed - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


want my code to find all data needed

suny100suny100 Posts: 1Member
i need my code to find all data i seach for , my code is working well but find just one target
[code]Private Sub CommandButton8_Click()
Dim valFIND As Range
Dim iRow As Long
Dim sB As String

For iRow = 2 To 500
If Cells(iRow, "E") = "1" Then
sB = Cells(iRow, "B").Value
On Error Resume Next
Set valFIND = Sheet4.Cells.Find(sB, LookIn:=xlValues, LookAt:=xlWhole)
If Not valFIND Is Nothing Then
Exit Sub
End If
End If
Next iRow

MsgBox "Value " & sB & " was not found"
End Sub[/code]
Sign In or Register to comment.