Pasar datos de un Listbox a un TextBox

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Pasar datos de un Listbox a un TextBox

Notapor DAngelGlz94 » 10 Ene 2018 19:05

Hola, quiero saber como copiar todos los items de un Listbox a un Textbox. He tratado de buscar en muchas páginas y nada me ha servido, espero su ayuda.
Saludos.
DAngelGlz94
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 30 Nov 2017 20:06

Re: Pasar datos de un Listbox a un TextBox

Notapor DAngelGlz94 » 10 Ene 2018 20:14

Por el momento el unico código que me funciona es el siguiente:
Código: Seleccionar todo
Dim a As String
DoEvents
a = TextBox49.Text & ListBox22.List(ListBox22.ListCount - 1) & vbCrLf
TextBox49.Text = a


pero lo que quiero es que guarde más de 1 solo texto en ese mismo textbox, ya que despues de ahí lo agrego a un marcador que va en una tabla en un documento de word, con el codigo siguiente:
Código: Seleccionar todo
.Bookmarks("SR1").Range.Text = TextBox49.Value
DAngelGlz94
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 30 Nov 2017 20:06

Re: Pasar datos de un Listbox a un TextBox

Notapor Héctor Miguel » 11 Ene 2018 00:44

DAngelGlz94 escribió:... como copiar todos los items de un Listbox a un Textbox...

una columna ?... una linea como la siguiente hace lo que solicitas (adapta a los nombres reales de tus controles
Código: Seleccionar todo
  TextBox1.Text = Replace(Join(Application.Transpose(ListBox1.List), ","), ",", vbLf)

varias ?... se requiere ciclar por el contenido del listbox
Código: Seleccionar todo
  Dim x As Byte, y As Byte, contenido As String
  With ListBox1
    For x = 0 To .ListCount - 1
      contenido = contenido & vbLf
      For y = 0 To .ColumnCount - 1
        contenido = contenido & .List(x, y) & vbTab
      Next
    Next
    TextBox1.Text = Mid(contenido, 2)
  End With

puedes cambiar del "vbTab" a otra combinacion de caracteres pero no olvides configurar la propiedad del textbox para multilinea

saludos,
hector.
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 4732
Registrado: 26 Mar 2005 18:31


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados