Как выбрать данные из списка?

Question

У меня есть пользовательская форма для добавления информации в таблицу в Excel, и результаты отображаются в списке.

Проблема в том, что когда я хочу изменить информацию в списке, появляется сообщение «Нет строки selected ".

Это код в кнопке редактирования:

If Selected_List = 0 Then

    MsgBox "No row is selected.", vbOKOnly + vbInformation, "edit"
    Exit Sub
    
End If
   
Me.txtRowNumber2.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 0) + 1

'Assign the value

adminpanel.TextBox9.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 1)
    
adminpanel.TextBox10.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 2)

adminpanel.TextBox11.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 3)

adminpanel.TextBox12.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 4)

adminpanel.TextBox13.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 5)

adminpanel.TextBox14.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 6)

adminpanel.TextBox15.Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 7)
           

adminpanel.CommandButton28.Caption = "edit"

MsgBox "Please make the required changes and click on update to save."

Answer 1

Я нашел решение, которое должно заменить

If Selected_List = 0 Then

MsgBox "No row is selected.", vbOKOnly + vbInformation, "edit"
Exit Sub
End If  

на

   If ListBox2.ListIndex = -1 Then
    MsgBox "There are no items selected to delete"

    End If

Я рад поделиться с вами решением спасибо