Advice for simple code please

[ipbr21054]

Morning,

I have a worksheet called POSTAGE
First row with data is row 8 then down the page.
Column G are dates BUT there are a few Text entries.

These text enteries are what i am interested in & are as follows.
RETURNED, LOST, UNKNOWN, COLLECTION, RECEIVED, NO DATE

I will make a userform where i can click a command button which will then specifically search for the text entry names mentioned in column G
These Text entries will then be shown in a list box on the userform.

Clicking on a Text Entry will then go to the cell in question at column G

If it helps all entries other then thos mentioned will be dates or N/A

 

[ipbr21054]

I click the command button to open the form & i see the message.

Also when i click F5 in code editor i see it

 

[mikerickson]

Is your ComboBox named ComboBox1, that's the only thing that I can see that would give that error.

If you put a break point at the Userform Show line and step through the code, that will show which line is causing the error.

 

[ipbr21054]

I see the spelling was shortened.
Now have it working so looking at both

 

[ipbr21054]

Code like this might do what you want

Private Sub CommandButton1_Click()
    With ListBox1
        If .ListIndex <> -1 Then
            Application.Goto Range(ListBox1.List(ListBox1.ListIndex, 1))
        End If
    End With
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim oneCell As Range
    ListBox1.ColumnCount = 2
    With ActiveSheet.Range("G:G")
        For Each oneCell In Range(.Cells(8, 1), .Cells(Rows.Count, 1).End(xlUp))
            If IsNumeric(Application.Match(oneCell.Value, Array("RETURNED", "LOST", "UNKNOWN", "COLLECTION", "RECEIVED", "NO DATE"), 0)) Then
                ListBox1.AddItem oneCell.Value
                ListBox1.List(ListBox1.ListCount - 1, 1) = oneCell.Address
            End If
        Next oneCell
    End With
End Sub

This is the item i have gone with.
Can you advise please how i edit that once i click the command button as opposed to going to the cell in column G it selects the row itself or the cell A of that row.
Reason being when it selects the G cell my work sheet all moves left & off the page.

 

[mikerickson]

If you want the entire row

Application.Goto Range(ListBox1.List(ListBox1.ListIndex, 1)).EntireRow

If you want the A column cell of that row

Application.Goto Range(ListBox1.List(ListBox1.ListIndex, 1)).EntireRow.Range("A1")