📌Como Pasar Datos de un Listbox a Otro Formulario🛑

[@papeajusco2574]

gracias amigo
me sirvio mucho, fue de gran ayuda.

[@franciscoborzi6354]

Muy bueno, muchas gracias. Saludos

[@franciscocartagena8716]

Hola espero estes muy bien!, quisiera saber si puedes subir este archivo con las macros para poder guiarme, y poder realizarlo a la par. Gracias de antemano

[@JohnnyXII]

Hola Miguel Echevarria he empezado a seguirte y ya me suscribí y quiero agradecerte por el tiempo que dedicas para aprender... quiero hacerte una consulta , con tus tutoriales hice un formulario de compras y me funciona perfecto al guardar lo hace en una hoja excel producto por producto, pero lo que quisiera saber es como llamo desde el mismo formulario todo ese archivo que se guardo???

[@somosgentedecaricuao9959]

Hola Miguel. He creado un formulario para ingresar a una hoja de excel con Usuario y Contraseña, pero quiero que inhabilite los commanbutton Guardar y Modificar de otro formulario si dichos usuarios no están autorizados. El formulario 1 es de ingreso con contraseñas y el formulario 2 es para ingresar datos con los botones (Guardar, Buscar, Modificar y Salir) De antemano, gracias.

[@Programando-maer]

Hola estimado, espero te encuentres bien, si por problemas personales no pude interactuar con los suscriptores pero ya estamos de vuelta, respecto a tu consulta si hay manera de inhabiliar botones dependiendo de alguna condicion, te dejo un ejemplo. No te olvides suscribirte al canal.
Sub Inhabilitar()
If Me.txtusuario.Text "Admin" Or Me.txtpass.Text "C123456" Then
UserForm2.CommandButton1.Enabled = False
UserForm2.CommandButton2.Enabled = False
End If
End Sub
Si deseas mayor apoyo no dudes de escribirnos al WhatsApp [phone].

[@MANTENIMIENTOJ]

Y si también tengo un listbox donde tengo actividades , como cargo los datos almacenados en el.

[@Gallito_Ponce]

Hola, pregunta , ¿ Es posible que al seleccionar un dato de combobox se abra otro formulario ?

[@diego_espana_]

¿Profe, en ese nuevo formulario se puede poner el botón de modificar?

[@TheLionIker]

hola una consulta
como se puede modificar los datos del text box y enviarlos al listbox ? el listbox de origen tiene 27 columnas... y los datos que quiero modificar en otro formulario solo son algunas columnas...

[@franciscoborzi6354]

Sería perfecto agregar un BUSCADOR. SALUDOS

[@fernandobravogarcia1463]

Y si se marcaran varios items a la vez como los pasaríamos.

[@fernandobravogarcia1463]

¿Como lo haríamos si pasamos de un listbox de un formulario a otro listbox de otro formulario distinto?.

[@Ciber.net17]

Como se aria si al dar doble click en un espacio en blanco, mostrara que no se selecciono un items valido

[@Programando-maer]

Hola estimado, espero te encuentres bien, para realizar lo que estas necesitando debes hacerlo con el manejador de errores, debes agregar lo siguiente al inicio y final.
Inicio:
On error goto Err:
Final
Err:
msgbox("No se selecciono un item valido")
No te olvides suscribirte al canal, es gratis.

[@alejandrapablo4251]

HOLA. TE CUENTO QUE ME PASA
CUANDO EN MI FORMULARIO 2 HABILITO EL CODIGO PARA MODIFICAR DATOS DEL LISBOX DEL FORMULARIO 2 ME DEJA DE FUNCIONAR ESTE CODIGO DEL DOBLE CLIK . EJECUTA PERO NO CARGA DATOS EN LOS TEXTBOX DEL FORMULARIO 2
PASO EL CODIGO QUE ME COMPLICA
Private Sub TextBox2_Change()
On Error Resume Next
Dim ID As Integer
ID = TextBox2.Value
Me.TextBUSCAR2 = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 2, 0)
Me.TEXTFECHASOLICITUD = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 3, 0)
Me.ComboLISTA = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 4, 0)
Me.TexTMOTIVO = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 5, 0)
Me.Tex_MANZANA = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 6, 0)
Me.Tex_LOTE = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 7, 0)
Me.Texttrabajorealizado = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 8, 0)
Me.TextBox1 = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 9, 0)
Me.TEXTACARGO = Application.WorksheetFunction.VLookup(ID, Sheets("COMUNICACION").Range("C:J"), 10, 0)