Clic en un cuadro de dialogo y traspaso hasta X Celda
Soy nuevo en el foro y tenia una duda para ver si hay manera o no de hacerlo.
Quiero dar click en una cuenta de un catalogo de cuentas que esta en una hoja de excel, este no pertenece a una celda como tal sino a un cuadro de texto o algo asi, al hacerle click encima o doble click quisiera que pasara automaticamente a una celda, así,
1 Respuesta
H o l a:
Te paso la macro
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
u = Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 10 Then u = 10
Cells(u, 1).Value = ListBox1.List(ListBox1.ListIndex, 0)
Cells(u, 2).Value = ListBox1.List(ListBox1.ListIndex, 1)
End Subte anexo el archivo
https://www.dropbox.com/s/5q34pniu76kjy98/Vaciar%20datos%20listbox.xlsm?dl=0
Valora la respuesta si es útil Excelente o bueno para finalizar!
Lo siento amigo, no realiza ninguna acción mas bien sale un cuadro que dice "No se puede ejecutar la macro "Cuadrodelista_alcambiar". Puede que la macro no este disponible en este libro o que se hayan deshabilitado todas las macros"
Te explico lo que hice, seleccione el cuadro de lista y le oprimí asignar macro, luego oprimí nuevo y pegue la macro en un modulo nuevo guarde y le asigne esa macro al cuadro de lista y me queda saliendo eso, alguna solución?
'Hola
Usa listbox del control activex que va facilitar el trabajo
Haces doble clic sobre el objeto y pega el código
Te dejo link de orientación de uso de listbox activex
http://www.excel-easy.com/vba/examples/list-box.html
No olvides de valorar la respuesta saludos!
Hola amigo, disculpa la ignorancia pero no logro que salga el texto en el listbox
H o l a:
No olvides de valorar para finalizar saludos!
Me esta siendo de mucha ayuda.. algo para quitar el error y finalizo?
H o l a
Cells(u, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) Cells(u, 2).Value = ListBox1. List(ListBox1. ListIndex, 1)
le explico la primera línea de código es para pasar los datos de la columna1 del listbox a la columna A de la Hoja, y la siguiente línea es para pasar la columna2 del listbox a la columna B.
Según tu imagen mostrada en el listbox estas usando solo una columna y por eso el Error
Si vas a usar 1 columna entonces borra la segunda línea de código, de caso contrario sigue los pasos anteriores que te di.
Descarga el ejemplo.
El ejemplo lo descargas de aquí:
https://www.dropbox.com/s/5q34pniu76kjy98/Vaciar%20datos%20listbox.xlsm?dl=0
¿Pudieras finalizar la pregunta valorando?
