Repopulate Listbox after Update

[uk747]

After transferring Data to a Sheet from a listbox it fills it back with a named range
Me.listbox1.list = Range("lboxRange").Value

When it fills the listbox with updated Values I want it to select the Value that was updated to show the change

Instead it goes to a selection which is top of that range

i.e.
Listbox has 4 columns Category, ID, Name and Grade

If I update Fred to an Asst Manager When the listbox updates it highlights Barbara's Row which is the top of B Category. I thought it might have gone right to the top, not sure why it highlights the top Row of a Category

Likewise if I update Zeb (Category C) when updated it highlights Amy's Row

Ideally I want it to highlight the Row that was updated

Category	ID	Name	Grade
A	1​	Alan	Manager
A	2​	Mary	Manager
A	3​	Kevin	Clerk
B	4​	Barbara	Clerk
B	5​	Stewart	clerk
B	6​	Fred	clerk
C	7​	Amy	Asst Manager
C	8​	Zach	Asst Manager
C	9​	Zeb	Supervisor
D	10​	Bob	Supervisor
D	11​	Henry	Manager
D	12​	Jack	Manager

 

[DanteAmor]

After transferring Data to a Sheet from a listbox it fills it back with a named range

I guess you have some textboxes and with a button you read the data from the textbox and pass that data to the sheet.
You could put the code you use to transfer the data to the sheet.

 

[uk747]

Private Sub listbox1_click()
Textbox1.value = listbox1.column(2)
End sub

Private Sub CommandButton1_click()
Range("C10").value = textbox1.value
Me.listbox1.list = Range("lboxRange").Value
End sub

 

[DanteAmor]

With the code you provided in the previous post, if I select a record and press the button, the sheet is updated and the item highlighted in the listbox, it remains the same updated record.
You have more codes in the form, put here all the code of your form.

 

[uk747]

Private Sub UserForm_Initialize()
ListBox1.List = Range("lboxRange").Value

End Sub

Private Sub listbox1_click()
TextBox1.Value = ListBox1.Column(2)
End Sub

Private Sub CommandButton1_click()
Range("C10").Value = TextBox1.Value
ListBox1.List = Range("lboxRange").Value

' When I Click the Command Button to refill the Listbox it selects the Top Category
' i.e. If I select B 6 Fred clerk and then Run it will Select B 4 Barbara Clerk
' Which is the top one in B Category
End Sub

 

[DanteAmor]

By default the value of the BoundColumn property of the listbox is 1.
The BoundColumn property specifies which item from the row is stored as the value.

So when you select the record with the letter "B" (Fred), the value of the listbox is "B"; When you reload the listbox, what the listbox index does is select the first value it finds with the letter "B" in column 1.

To keep the record selected, change the BoundColumn property to 0.

 

[uk747]

Thanks

I tried to set in Listbox Click or initialisation and it crashed and closed for both

Listbox1.BoundColumn = 0

Run-time Error '-2147417848(80010108)':
Automation error
The object invoked has disconnected from its clients

It did work when Manually setting in properties

 

[DanteAmor]

I tried to set in Listbox Click or initialisation and it crashed and closed for both

I don't have that problem.

Private Sub UserForm_Initialize()
  ListBox1.BoundColumn = 0
  ListBox1.List = Range("lboxRange").Value
End Sub

It did work when Manually setting in properties

Work with that option.

 

[uk747]

I don't have that problem.

Private Sub UserForm_Initialize()
  ListBox1.BoundColumn = 0
  ListBox1.List = Range("lboxRange").Value
End Sub

Work with that option.

will do Thanks again

 

[DanteAmor]

You are welcome.
Glad I was able to help!