Puche

@JSDJSD Muchísimas gracias por todo Va todo perfecto! Un saludo!!!

@JSDJSD Si correcto! He grabado una macro para ver el proceso que debería de seguir después de tu código para imprimir, pero es mucho código de mas... Estoy seguro de que se puede simplificar mucho.

Hola @JSDJSD Hasta ahí esta perfecto pero me da la sensación de que solo crea el reporte no? Necesito que me imprima en horizontal también. Un saludo,

@JSDJSD Si, correcto. Quiero que se imprima lo que sale el el listbox, solo eso. No creo que tenga que imprimir nunca mas filas que las que caben (visualmente) en el listbox.

Hola @JSDJSD, Adjunto imagen El que quiero poder imprimir es el contenido del Listbox1. Saludos,

Hola buenas noches, He estado revisando antiguos post en la pagina sobre este tema pero ninguno se adapta a lo que necesito exactamente. Necesito poder imprimir el contenido de mi Listbox en horizontal y con los encabezados. He conseguido hacerlo pero en vertical y sin encabezados. Espero me puedan ayudar. Un saludo, Diseño2.xlsm

Hola @JSDJSD Me funciona perfecto Muchas gracias una vez mas! Algún día sabré tanto como tu

Hola buenas, E mi formulario me salta un error '91' en tiempo de ejecución y no se a que se debe. En mi Multi ListBox. en el Page5, tanto las entradas como el eliminar me funciona bien, el problema lo tengo al querer modificar que me salta ese error. Hay que hacer doble clic para seleccionar la entrada y luego cambiar los datos deseados y darle al botón de modificar. Adjunto archivo. Gracias de antemano. Diseño2.xlsm

Ya lo tengo solucionado Adjunto código por si le sirve a alguien Private Sub UserForm_Initialize() Dim fila, final, i As Long Dim lista As String Sheets("BD").Activate fila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1 final = fila - 1 For i = 2 To final lista = Hoja1.Cells(i, 4) txt_proveedor.AddItem (lista) lista = Hoja1.Cells(i, 3) txt_transportista.AddItem (lista) lista = Hoja1.Cells(i, 6) txt_contacto.AddItem (lista) lista = Hoja1.Cells(i, 7) txt_departamento.AddItem (lista) lista = Hoja1.Cells(i, 8) txt_observaciones.AddItem (lista) lista = Hoja1.Cells(i, 10) txt_personaentrega.AddItem (lista) lista = Hoja1.Cells(i, 7) txt_busdepartamento.AddItem (lista) lista = Hoja1.Cells(i, 6) txt_bus_contacto.AddItem (lista) Next i Gracias un saludo!

Hola @JSDJSD, Por lo que veo, el problema lo tengo al querer ejecutar esta macro Private Sub Cargar(ComboBox As Control, Hoja As Worksheet, Columna As String) With Hoja .Columns(Columna).Copy .Columns(Columns.Count) .Cells(1, Columns.Count).Delete .Columns(Columns.Count).Sort Key1:=.Columns(Columns.Count) .Columns(Columns.Count).RemoveDuplicates Columns:=1 ComboBox.ShowDropButtonWhen = fmShowDropButtonWhenNever ComboBox.List = .Range(.Cells(1, Columns.Count), .Cells(Rows.Count, Columns.Count).End(xlUp)).Value .Columns(Columns.Count).Clear End With End Sub Esta macro lo que me hace es el autor relleno de los comboBox al escribir, y la verdad que necesito tenerlo activo... Que solución puedo aplicar? Un saludo,

Hola buenas tardes, Tengo un problema que no me deja iniciar el UserForm y no se a que se debe.... Me salta el siguiente error La verdad que no se porque me pasa esto ya que estaba trabajando con el formulario y de repente no me deja iniciarlo. Dejo el archivo adjunto Un saludo, VBA3.xlsm

Muchísimas gracias, parece que ya funciona todo a la perfección!!! Un saludo!

Ya esta ya lo he conseguido Muchas gracias a todos!!!

Hola @DiegoPC Me parece muy interesante tu propuesta. Eso como debería de hacerlo? Puedes compartir un archivo por Wetransfer o similar por favor? O dime donde puedo encontrar información de como hacer esto. Gracias un saludo,

@JSDJSD Me Salta un error '91', adjunto imagen Y como te comentaba, la función de eliminar, que me ayudaste tu también, no funciona ahora....y no he tocado nada. Saludos,