Eliminar registro del listbox2 con mensaje msgbox
Para Dante Amor
Amigo continuando con mi aplicación como elimino el registro del Listbox2.
Que me advierta con msgbox y que aparezca el nombre del cliente a eliminar
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro para borrar registros del listbox2:
Private Sub CommandButton3_Click()
'Por.Dante Amor
If ListBox2.ListIndex = -1 Then
MsgBox "Selecciona clientes del listbox2"
Exit Sub
End If
'
For i = ListBox2.ListCount - 1 To 0 Step -1
If ListBox2.Selected(i) Then
res = MsgBox("Desea borrar al cliente: " & ListBox2.List(i, 1), vbQuestion & vbYesNo, "BORRAR REGISTRO")
If res = vbYes Then
ListBox2.RemoveItem i
End If
End If
Next
End Subs a l u d o s
