Code opens wrongly selected customer from listbox

[ipbr21054]

Hi,
Code in use is shown below.
In a userform i search for a customer.
My listbox is populated with the results.

I can select any customer in the listbox & that customers info is then shown on the screen no problem.
Having said that i have an issue where cell A5 is TOM JONES & TOM PETTY
If my search is for TOM i select TOM JONES from the listbox BUT TOM PETTY is shown on the screen.

I added 2 new rows so ANDY 1 is row A6 & ANDY 2 is row A5
I search for ANDY & select ANDY 1 inT ANDY 2 is loaded.

Do you see anything in the code that has an issue with the cell A5 value loading wrongly

Private Sub ListBox1_Click()
     Dim rw As Long
     Dim ws As Worksheet
     Dim answer As Integer
     Set ws = ThisWorkbook.Sheets("Database")
    If ListBox1.ListIndex = -1 Then Exit Sub
     rw = ListBox1.List(ListBox1.ListIndex, 3)
     ws.Range("A" & rw).Select
     Unload Me
     
     
   answer = MsgBox("OPEN CUSTOMERS FILE IN MAIN DATABASE ?", vbYesNo + vbInformation, "OPEN DATABASE MESSAGE")
   If answer = vbYes Then
   
   Database.LoadData Sheets("DATABASE"), Selection.Row

    Else
    Unload DatabaseSearchForm
    End If
  End Sub

 

[davesexcel]

the list is an array, arrays start with zero, you probably need to add 1 to rw

 

[ipbr21054]

As simple as that is where do i apply that please

 

[davesexcel]

rw + 1

 

[ipbr21054]

Hmmm
In cell A5 i see TOM A so i search for TOM & the results are shown in the listbox.
I select TOM A in the listbox but i then see the value in cell A6 then selected,it also opens the record for customer in cell A6

 

[davesexcel]

What would the list index be compared to the actual row number, you can adjust the rw to match the actual row on the sheet.

If listIndex is 7 but the actual row number is 9 then add 2 to the rw.

 

[ipbr21054]

I think i would be getting further away from fixing it then.
The original post with the code shown works fine for every customer thats selected in the lictbox apart from the customer in A5
Making changes would then put all the others that currently work stop working ?

 

[RoryA]

As Dave said, the listindex starts at 0 so you need to add 1. You should be getting an error for the first item in the listbox as you cannot select A0.

 

[davesexcel]

I guess I don't understand the question then.

 

[RoryA]

Oops, misread the code. The row number is stored in the listbox in column 4. It appears the wrong row is stored for that item but as that's not done by this code, it's hard to comment.