laffs_efc
asked on
Modifying VBA Search Code
I have the following code in use on a userform within my workbook.
Basically it searches by a particular column for a numeric value and then pouplates the userform with the contents of that row.
I now want to create a new search function whereby it searches another column (E) but for a non-numeric value this time. Naively I assumed I could copy the above code, tailor it for column E and remove the following piece of code
Unfortunately it keeps returning a 'SIR not Found' result.
can anyone help please?
Basically it searches by a particular column for a numeric value and then pouplates the userform with the contents of that row.
Private Sub cmdSearch_Click()
Dim rw As Long 'row the search value was found on
Dim myVal As Long 'converted search value
On Error Resume Next
'validate user input
If txtSearch.Value = "" Or _
Not IsNumeric(CLng(txtSearch.Value)) Then
MsgBox "Enter valid SIR number!"
txtSearch.SetFocus
Exit Sub
End If
'convert the TexBox value to data type long and get row number
myVal = CLng(txtSearch.Value)
On Error Resume Next
With Sheets("SIRs").Range("C:C")
Set cell = .Find(myVal, LookIn:=xlValues)
rw = cell.Row
End With
On Error GoTo 0
On Error GoTo 0
If rw = 0 Then
MsgBox "SIR Not Found"
Else
Call PopulateTextBoxes(rw)
End If
End Sub
I now want to create a new search function whereby it searches another column (E) but for a non-numeric value this time. Naively I assumed I could copy the above code, tailor it for column E and remove the following piece of code
Or _
Not IsNumeric(CLng(txtSearch.Value))
Unfortunately it keeps returning a 'SIR not Found' result.
can anyone help please?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER