Select ListBox entry & go to that entry in worksheet

[ipbr21054]

Evening,

I have a userform with a listbox.
I would like to select an entry in the listbox & be taken to that person on the worksheet.
I have on the userform another code which uses the entry i select so i can just select & be taken there, Hence why i need to select the entry then have the code on a command button

Some Info for you.
ListBox is called ListBoxSearch
Worksheet called DATABASE
Column A is where it needs to be selected.


I have the code below which i thought would work but i get a run time error,as shown in screenshot

Private Sub GoToCustomerButton_Click()
 Dim answer As Integer
 
  Range("A" & ListBoxSearch.List(ListBoxSearch.ListIndex, 1)).Select
  answer = MsgBox("GO TO CUSTOMER IN DATABASE ?", vbYesNo + vbInformation, "OPEN DATABASE MESSAGE")
   If answer = vbYes Then
   Unload FindAndReplaceDatabase
   Database.LoadData Sheets("DATABASE"), Selection.Row

Else
    Unload FindAndReplaceDatabase
End If
End Sub

 

[Momentman]

You did not indicate what line gives rise to the error though

 

[NoSparks]

ListBoxSearch.List(ListBoxSearch.ListIndex, 1) is likely not a number.

In a recent question you were trying to load the row number into the 4th column of your list box.
List box columns are zero based (0, 1, 2, 3) so to refer to the 4th column it would be
ListBoxSearch.List(ListBoxSearch.ListIndex, 3)

 

[ipbr21054]

Hi
Does my code look correct other than the error ?
I’m not at pc now so will look tomorrow.
I can populate the listbox no problem.
I see an entry so I click on it & now wish to go to that entry on the worksheet.
The search I had carried out in this case was a number search. The listbox is populated with that number in question. Row. Customers name. Date. Now I just need to go to the row where this data was collected from.

I got / get lost with some codes like the one I have shown above.
I mean what does the A & 1 represent ???

 

[ipbr21054]

Morning,
Ive changed the 1 to 2 & now the code below does what i require.

Many thanks

Private Sub GoToCustomerButton_Click()
  Dim answer As Integer
  With ListBoxSearch
  Range("A" & ListBoxSearch.List(ListBoxSearch.ListIndex, 2)).Select
  Unload FindAndReplaceDatabase
End With
End Sub