No puedo seleccionar Listbox, a veces si a veces no
publicado
Tengo una macro que me crea una lista con unos nombres que quiero que al darle doble click me copie ese nombre seleccionado en una de las celdas. El problema es que a veces cuando quiero seleccionar de la lista no me deja. Si que funciona si haga: programador-->modo diseño-->quitar modo diseño
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub ListBox1_Change()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell = ListBox1
ActiveCell.Offset(1, 0).Select
ListBox1.ListIndex = -1
End Sub
Private Sub ListBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
End Sub
Private Sub ListBox1_GotFocus()
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo una macro que me crea una lista con unos nombres que quiero que al darle doble click me copie ese nombre seleccionado en una de las celdas. El problema es que a veces cuando quiero seleccionar de la lista no me deja. Si que funciona si haga: programador-->modo diseño-->quitar modo diseño
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub ListBox1_Change()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell = ListBox1
ActiveCell.Offset(1, 0).Select
ListBox1.ListIndex = -1
End Sub
Private Sub ListBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
End Sub
Private Sub ListBox1_GotFocus()
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub