tag:blogger.com,1999:blog-4623278671508370136.post4075085106947237561..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: Asociar a un TextBox el valor seleccionado de un ListBox.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger66125tag:blogger.com,1999:blog-4623278671508370136.post-14307188128028241372019-07-05T08:45:01.258+02:002019-07-05T08:45:01.258+02:00Hola,
para eliminar un elemento del ListBox usa .R...Hola,<br />para eliminar un elemento del ListBox usa .RemoveItem<br />echa un vistazo aquí<br /><a href="https://excelforo.blogspot.com/2018/01/vba-borrar-elementos-listbox-RemoveItem.html" rel="nofollow">https://excelforo.blogspot.com/2018/01/vba-borrar-elementos-listbox-RemoveItem.html</a><br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-60266230313530966222019-07-04T23:30:08.209+02:002019-07-04T23:30:08.209+02:00Hola buenas tardes
muy bueno el ejemplo y bien ex...Hola buenas tardes<br /><br />muy bueno el ejemplo y bien explicado, solo una duda si quiero que al seleccionar un elemento del listbox y pasarlo al textbox me lo elimine del listbox, como seríaAnonymoushttps://www.blogger.com/profile/16312935108280943011noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19332817488308676732019-06-29T10:43:39.820+02:002019-06-29T10:43:39.820+02:00Hola,
si ya tienes la parte de llevar el dato sele...Hola,<br />si ya tienes la parte de llevar el dato seleccionado en el ListBox al textBox, solo te queda condicionar para realizar la operación.<br /><br />IF TextBox1.Value="Amarillo" THEN <br /> TextBox2.Value=range("A1").Value * 2<br />ELSEIF TextBox1.Value="Amarillo" THEN <br /> TextBox2.Value=range("A1").Value * 4<br />...<br />END IF<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-26178811255858017532019-06-29T00:30:56.359+02:002019-06-29T00:30:56.359+02:00Hola buenas tardes,
Asocié un textbox con una lis...Hola buenas tardes, <br />Asocié un textbox con una listbox hasta ahí bien; pero entonces quiero saber como hago para que cuando de la lista se elijan ciertas palabras, entonces se calcule en otra celda una operacion pero con otro textbox. <br /><br />por ejemplo en la lista dice:<br />Amarillo<br />Azul<br />Rojo<br /><br />entonces cuando sea amarillo tome una celda donde se diligencia un valor y lo multiplique por 2<br /><br />cuando sea azul tome una celda donde se diligencia un valor y lo multiplique por 4<br /><br />cuando sea rojo tome una celda donde se diligencia un valor y lo multiplique por 6.<br /><br />Saludos. estaré atenta a respuesta. muchas gracias.<br /><br />YULYXDhttps://www.blogger.com/profile/07996970695968447005noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19379189366224619822019-05-30T08:59:11.900+02:002019-05-30T08:59:11.900+02:00Hola!
yo me aseguraría de qué devuelve exactamente...Hola!<br />yo me aseguraría de qué devuelve exactamente <br />Lista.RowSource<br /><br />quizá te devuelva vacío o algún error, si no hubieras cargado el listbox empleando esa propiedad, y lo hubieras cargado con .additem<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-26134872288024392962019-05-30T02:26:23.999+02:002019-05-30T02:26:23.999+02:00Hola, ¿como están?. Es lo que necesito desde hace ...Hola, ¿como están?. Es lo que necesito desde hace tiempo. Pero quise adaptarlo a lo que quiero y no pude, me explico. Poseo un TextBox que me filtra el ListBox.<br />Ahora bien, cuando le doy doble clip en el item seleccionado y previamente filtrado por el TextBox en el ListBox para que me aparezca en los demas TextBox me da error especificamente en esta linea<br />"With Hoja1.Range(LISTA.RowSource)".<br /><br />este es el codigo completo:<br /><br />Private Sub LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)<br /><br /><br />fila = LISTA.ListIndex + 2<br /><br /> <br /><br /> With Hoja1.Range(LISTA.RowSource)<br /><br /> TextBox1.Text = .Offset(LISTA.ListIndex, 0).Resize(1, 1).Value<br /><br /> <br /><br /> End With<br /><br />End Sub<br /><br />Private Sub TextBox_Change()<br />Application.ScreenUpdating = False<br />Sheets("Hoja1").Select<br />Range("B2").Select<br />LISTA.Clear<br />While ActiveCell.Value <> ""<br />M = InStr(1, UCase(ActiveCell.Value), UCase(TextBox.Text))<br />If M > 0 Then<br />LISTA.ColumnCount = 5<br />LISTA.AddItem<br />ActiveCell.Offset(0, -1).Select<br />LISTA.List(LISTA.ListCount - 1, 0) = ActiveCell.Value<br />ActiveCell.Offset(0, 1).Select<br />LISTA.List(LISTA.ListCount - 1, 1) = ActiveCell.Value<br />ActiveCell.Offset(0, 1).Select<br />LISTA.List(LISTA.ListCount - 1, 2) = ActiveCell.Value<br />ActiveCell.Offset(0, 1).Select<br />LISTA.List(LISTA.ListCount - 1, 3) = ActiveCell.Value<br />ActiveCell.Offset(0, 1).Select<br />LISTA.List(LISTA.ListCount - 1, 4) = ActiveCell.Value<br /><br />ActiveCell.Offset(0, 1).Select<br />LISTA.List(LISTA.ListCount - 1, 5) = ActiveCell.Value<br /><br />ActiveCell.Offset(0, -5).Select<br />End If<br />ActiveCell.Offset(1, 0).Select<br /><br />Wend<br /><br />End SubAnonymoushttps://www.blogger.com/profile/16287012814035584945noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-29562180780013774502019-05-10T17:50:31.259+02:002019-05-10T17:50:31.259+02:00Hola,
gestiona el registro con un commandbutton qu...Hola,<br />gestiona el registro con un commandbutton que una vez trasladados los dato libere los textbox y permita seguir metiendo datos<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-43294314746060194342019-05-10T02:57:07.274+02:002019-05-10T02:57:07.274+02:00Cómo hago estoCómo hago estoVíctor hebert García Calderónhttps://www.blogger.com/profile/14447008335951302899noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-41014741780193524772019-05-10T02:54:25.252+02:002019-05-10T02:54:25.252+02:00Hola, yo agrego los datos a cuatro cuadros de text...Hola, yo agrego los datos a cuatro cuadros de texto, hasta ahí bien pero si quiero seguir metiendo datos a los campos de abajo como comoVíctor hebert García Calderónhttps://www.blogger.com/profile/14447008335951302899noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23690614065411361342019-04-14T19:40:02.087+02:002019-04-14T19:40:02.087+02:00graciasgraciasjimmyhttps://www.blogger.com/profile/16676040691080014267noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-1427637914352839332019-04-14T09:58:09.602+02:002019-04-14T09:58:09.602+02:00Hola Jimmmy,
este ejemplo solo tiene un sentido: L...Hola Jimmmy,<br />este ejemplo solo tiene un sentido: ListBox -> TextBox<br />Busca en la categoría del blog de Macros y encontrarás algún ejemplo inverso<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-75625691482648115122019-04-13T23:41:45.360+02:002019-04-13T23:41:45.360+02:00Hola, y el botón de guardar para cuando modifique?...Hola, y el botón de guardar para cuando modifique?jimmyhttps://www.blogger.com/profile/16676040691080014267noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-88835973541248401882019-02-11T09:13:40.549+01:002019-02-11T09:13:40.549+01:00Hola,
puedes referirte a otras hojas, por ejemplo
...Hola,<br />puedes referirte a otras hojas, por ejemplo<br />userform1.TextBox1.Value=hoja2.Range("B2").Value<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-21096503708816317362019-02-10T23:06:24.310+01:002019-02-10T23:06:24.310+01:00tengo una consulta mas, quiero reflejar datos de o...tengo una consulta mas, quiero reflejar datos de otra hoja en los textbox, que la tabla no esta asociado a listboxzetaimagenhttps://www.blogger.com/profile/03034023655449171492noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-59250503029436902292019-02-10T23:01:11.832+01:002019-02-10T23:01:11.832+01:00le agradezco bastante
le agradezco bastante<br />zetaimagenhttps://www.blogger.com/profile/03034023655449171492noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-87812072851704387512019-02-04T09:34:54.613+01:002019-02-04T09:34:54.613+01:00Hola
lo primero sería trabajar en modal en los Use...Hola<br />lo primero sería trabajar en modal en los UserForm... y luego emplear en primer lugar el nombre del formulario, por ejemplo:<br />UserForm2.TextBox1.Value=UserForm1.TextBox2.Value<br />que rellenaría el textbox del segundo formulario con el valor del textbox3 del primero<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-68235534892390768652019-02-02T17:02:31.217+01:002019-02-02T17:02:31.217+01:00Hola excelente es lo que buscaba!! Te hago una con...Hola excelente es lo que buscaba!! Te hago una consulta si quiero hacer lo mismo pero los texbox a rellenar están en otro formulario, como seriaAnonymoushttps://www.blogger.com/profile/00593404752300293018noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-63093143254424400132019-01-31T19:28:53.357+01:002019-01-31T19:28:53.357+01:00Hola,
lo expuesto en el comentario anterior...
Sa...Hola,<br />lo expuesto en el comentario anterior...<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28362239494680375032019-01-31T19:28:14.541+01:002019-01-31T19:28:14.541+01:00Hola!
¿por textbox de busqueda inteligente te refi...Hola!<br />¿por textbox de busqueda inteligente te refieres a que lo has asociado a un evento change??<br />Entiendo has cargado el listbox como tabla y no item a item.... lo cual sería recomendable para aplicar filtros o búsquedas sobre ese listbox desde el textbox 'inteligente'<br /><br />Te diría que cargues el listbox elemento a elemento... el encabezado de éste lo sitúes con labels, así no tendrás problemas.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-51726867385376422942019-01-31T16:34:00.576+01:002019-01-31T16:34:00.576+01:00me funciona bien, sin embargo, no funciona cuando ...me funciona bien, sin embargo, no funciona cuando el listbox1 esta sujeto a un buscador, es decir, tengo un textbox sobre el listbox que al escribir, filtra los resultados que se muestran en el listbox. Hasta ahi todo bien, pero al seleccionar una fila, me tira errorpsicodhttps://www.blogger.com/profile/01936704491557597796noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-76300742051554812402019-01-31T12:50:53.708+01:002019-01-31T12:50:53.708+01:00Hola, Gracias por su código ha sido de gran ayuda,...Hola, Gracias por su código ha sido de gran ayuda, tengo un problema, he agregado un textbox de busqueda inteligente y cada vez que empiezo con la búsqueda se desaparece las cabeceras en listbox,zetaimagenhttps://www.blogger.com/profile/03034023655449171492noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-62913139546335658722018-07-05T19:34:52.319+02:002018-07-05T19:34:52.319+02:00Hola Alexander
es complicado darte una respuesta c...Hola Alexander<br />es complicado darte una respuesta clara, pero con las porciones de código que aportas, esto tiene mala pinta:<br /><b>.Range(LISTA1.RowSource)</b><br /><br />quizá no lo esté entendiendo como rango ???<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-26110952195176969182018-07-05T12:19:39.551+02:002018-07-05T12:19:39.551+02:00hola que tal...excelente tu ejemplo me sirvió de m...hola que tal...excelente tu ejemplo me sirvió de mucho y funciona muy bien cuando elijo ítem por ítem del ListBox, sin embargo tengo dos TextBox asociados a búsqueda...a ver si me explico mi ListBox tiene 3 columnas: código, descripción, unidades. tengo dos TextBox previos (uno para BUSCAR POR CÓDIGO y otro para BUSCAR POR DESCRIPCIÓN) como te dije al principio tu ejemplo me funciona muy bien cuando escojo item por item del ListBox pero cuando aplico las opciones de búsqueda, osea cuando ingreso un código en el TextBox asociado a cualquiera de los buscadores y la lista del ListBox se hace mas específica y quiero elegir uno de ellos me sale:"...error 1004...se ha producido un error definido por la aplicación o el objeto" y se marca de amarillo el siguiente párrafo : "With Sheets("Hoja1").Range(LISTA1.RowSource)" (mi listbox se llama LISTA1 y le puse sheets("Hoja1") porque sólo así carga)....me podrías ayudar?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-89008446725296332502018-07-05T12:16:53.772+02:002018-07-05T12:16:53.772+02:00Este comentario ha sido eliminado por el autor.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-88594242480253241562018-05-08T11:15:48.482+02:002018-05-08T11:15:48.482+02:00Hola,
podrías asociarlo a un botón para que con un...Hola,<br />podrías asociarlo a un botón para que con un método .Find por ejemplo, localice el dato de la hoja y realice el cambio...<br />Ese cambio refrescará el ListBox<br /><br />Date cuenta que el ListBox es un reflejo de lo que hay en la hoja de cálculo... asi pues, cualquier cambio que desees ver en el listbox (en este caso), se debe realizar sobre la hoja.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.com