ListBox selection selects wrong customer on worksheet

[ipbr21054]

Hi,
I am using the code as shown.

I populate the Listbox & i then make a selection.
I should then be on the worksheet looking at the customer that i selected from the Listbox but this isnt the case.

Example of whats happening.
The listbox shows 4 customers of which are ABCD
I select A but i am taken C
I then run the code again to populate the Listbox.
I then select A again but taken to D

As you would expect whatever you select you should then be taken to that customer.
Also when the customer is selected on the worksheet it selects the cell in column I but i wish to have it select column A
Do you see what is causing this please

Private Sub ListBox1_Click()
With ThisWorkbook.Worksheets("DATABASE")
Dim data As Variant

    data = .Range("I6:I" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With
  
   Cells.Find(What:=ListBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
        
   Unload ProgrammerForm
   
   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 ProgrammerForm
 End If
 
End Sub

 

[ipbr21054]

Now working thanks.

To be honest i thought you had put that piece of code in the wriong place.

Many thanks

 

[dmt32]

Now working thanks.

To be honest i thought you had put that piece of code in the wriong place.

Many thanks

The instruction given was very clear

Note the variable at the top of the codes – this variable MUST be placed at very TOP of your userforms code page OUTSIDE any procedure.

If you are unsure about any direction given you should come back and ask for further explanation - making unilateral changes & then reporting code is not working, can be tad frustrating for those trying to assist.

Glad issue now resolved but having seen your project, I note that other userforms (of which there are many) use the very solution I have just assisted you with - As friendly advice, when you copy code that you know works to re-use in another project, ensure that you copy it all - you can save yourself a lot of time and anguish.

Appreciate your feedback

Dave

 

[ipbr21054]

I understand & take your point onboard