how to updates multiple rows in muliselect listbox

[jaym6939]

Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code lstDatabase.List(0, 4). i am looking to add loop count or list index to update multiple rows by command button.
can you pl help with to update below code?

Private Sub cmdaction_Click()
Dim i As Long, n As Long, f As Range


Dim t, t1 As String
If cmbaction.Value = "RP" Then
t = Chr(Asc(Mid(lstDatabase.List(0, 4), 2, 1)) + 1)
'Me.lstDatabase.Row (0), Column(4) = "ABA"
t1 = Mid(lstDatabase.List(0, 4), 1, 1) & t & Mid(lstDatabase.List(0, 4), 3, 1)
Me.lstDatabase.List(0, 4) = t1

End If

End Sub

thanks

 

[DanteAmor]

sorry to modified your code

No problem if you modify it, that's the way we all learn.
But I suggest having what you asked for at the beginning stable and then making changes.

if you dont mind, can you pl guide me how can i increase number of column display under listbox?

That corresponds to other code, I suggest you create a new thread.

 

[jaym6939]

Thanks for your help.