Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

listbox a texbox

Rageruso

New member
Registrado
30 Nov 2022
Mensajes
12
Buenas tardes tengo un problema y necesito su apoyo por favor, estoy tratando de hacer un formulario para registrar datos a una hoja de excel, el cual contiene combobox, y un listbox...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Solución
Código:
Private Sub ListBox1_Change()
Dim x As Integer
With ListBox1
   TextBox6 = ""
   For x = 0 To .ListCount - 1
      If .Selected(x) Then
        TextBox6 = TextBox6 & "," & .List(x)
      End If
   Next
   If TextBox6 <> "" Then TextBox6 = Mid(TextBox6, 2)
End With
End Sub
Volver
Arriba