Selecting a row based on entry in combobox

[kuroriposte]

Hi i am looking to select a row in the sheet based on the text value appearing in a combobox from user forms.
Currently i have this code but it selects the entire sheet instead.
Private Sub cmdupdate_Click()
Dim rng As Range
Set rng = Range("A1", Range("A65536").End(xlUp))
For Each cell In rng
If cell.Value = items.Text Then
Rows.Select
End If
Next cell
End Sub

 

[Tom Urtis]

Your situation is not clearly expressed.
Are you looking to select only one row ("Hi i am looking to select a row"), or do you want to select all rows that meet your "If cell.Value = items.Text Then" line.

Also, what exactly does items.Text mean. There is no declaration for "items". Maybe it is a String type variable defined as "Hello" so all cells in column A that contain only the word Hello are concomitantly selected, if that is what you want.

 

[kuroriposte]

Hi, it should technically be a row only, as i do not have any duplicates.
items.text is just the data im pulling from my combobox, its named as items.

 

[Tom Urtis]

Assuming your worksheet of interest is active when the UserForm is called:

Private Sub cmdupdate_Click()
Dim FindWhat$, varFind
FindWhat = items.Value
If FindWhat = "" Then Exit Sub
Set varFind = Colunms(1).Find(What:=FindWhat, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not varFind Is Nothing Then
Rows(varfind.Row).Select
Else
MsgBox FindWhat & " was not found.", 48, "No such animal."
End If
Set varFind = Nothing
End Sub