hiddenmafia

Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(ComboBox10.ListCount - 1, 5) = BD.Range("G" & x_Busco) .List(ComboBox10.ListCount - 1, 6) = BD.Range("I" & x_Busco) .ColumnWidths = "85;60;60;50;80;60" .ColumnHeads = True End With Agradezco quien pueda ayudarme. Saludos, Jairo Arango

@JSDJSD Amigo jesus muchas gracias, Quedo perfecto, solo le cambie la condicion del if de: If Len(ComboBox4) > 15 Then por: If Len(ComboBox4) <> "" Then ya que si el nombre no tiene mas de 15 caracteres, tampoco iba a seleccionarlo. Quedo perfecto. muchas gracias !

Amigo @JSDJSD Sigo pendiente de tu valiosa ayuda. Que pena volverte a escribir, pero es un poco urgente y no he encontrado soluciones por más que lo intento de mil maneras. Gracias! muchas gracias ! Saludo, Jairo Arango

@JSDJSDVale bro, muchas gracias ! un saludo Jairo Arango

@JSDJSDColega Jesus, Primero que todo gracias, por la disposición de ayudar, lo valoro mucho. Ahora, tengo un problema. y es que cuando lo intento seleccionar, no lo toma en carga en el mismo combobox4. Sin eso no puedo actualizar el registro.

Listo, tema cerrado. La corrección tenia 2 particularidades cuando lo replicaba a mi desarrollo. Consideración 1 Mi comboBox tenia un valor en la propiedad RowSource, al momento de copiar y pegar el codigo de mi colega @JSDJSD el pone un ComboBox1.Clear. Al hacerlo saltaba error, por la propiedad RowSource, asi que lo elimine. Consideración 2 Al eliminar ese "ComboBox1.Clear", la funcionalidad perdia su objetivo y cargaba todos los valores del rango. Solución Dejar la propiedad RowSource en blanco del combobox e incluir la instrucción "ComboBox.clear" Saludos, Jairo Arango

@JSDJSDBuenos días mi hermano, El codigo que tengo en el combobox es el siguiente: Dim uf2, cont As Long Dim nombre As String uf2 = CRUCES.Range("AH" & Rows.Count).End(xlUp).Row If Len(ComboBox4) = 0 Then ComboBox4 = "" For cont = 2 To uf2 nombre = CRUCES.Cells(cont, 34).Value If UCase(nombre) Like "*" & Trim(UCase(ComboBox4.Value)) & "*" Then ComboBox4.AddItem CRUCES.Cells(cont, 34) End If Next cont CRUCES, lo declare como Sheets("cruces") Worksheet Los nombres estan en la columna AH de esta pestaña. Espero puedas ayudarme bro Gracias Jairo Arango

el formulario se llama "form_mov"

Hola Jesus, Me funciono el archivo que me enviaste, pero cuando lo quise replicar al formulario en donde lo necesito implementar no funciono jaja no se que estoy haciendo mal Te envió un vídeo del formulario, realizando las pruebas. Link del archivo: https://1drv.ms/x/s!At8jb26afmL0jHIIme20S8mQ_-HO?e=QVrAAW Sin título 1.mp4

Amigo Jesus, Excelente!!!! Era lo que necesitaba, otro conocimiento adquirido en este grandioso foro, el mejor de todos. De verdad muchas gracias @JSDJSD Saludos, Jairo Arango

Hola Jesus buenas tardes, Primero que todo muchas gracias por ayudarme. Lo agradezco mucho! Esta excelente! muchas gracias realmente me es muy útil, Ahora, bien habrá forma de traer esa búsqueda al drop del combobox, y no a un listbox?

Buenos días programadores y colegas, El día de hoy requiero un aporte en cuanto a lo siguiente, Dentro del archivo adjunto hay 1 combobox el cual en su propiedad RowSource tiene un rango que agrega items al combobox. Lo que requiero es que a medida que yo ingresé valores, el combobox busque esos valores que están siendo diligenciados en todas las celdas, sin importar si el valor esta empezando o al final (por nombre o por apellido, sin importar el orden en el que este escrito). No se si me hice entender, un ejemplo practico seria el siguiente, DATOS: 1. Felipe Sanchez 2. Sanchez Eduardo 3. Eduardo Perez TEXTO DILIGENCIADO EN EL COMBOBOX: "Sanc" En este momento el combobox deberia traer los datos 1 y 2 datos. "Edu" En este momento el comboBox Deberia traer los datos 2 y 3. Agradezco a la persona que me quiera ayudar. Saludos, Jairo Arango Busqueda inteligente.xlsx

Buen día compañero, prueba con lo siguiente Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then With Range("A:C") .Sort key1:=.Cells(1, 1), Header:=xlYes End With End IfEnd Sub

querido @Jose BN funciono perfecto. Que sencillo era. Muchas gracias por compartir tu conocimiento.

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez el usuario hace clic arroja un tiempo en formato "hh:mm:ss", este tiempo sale después de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo si es < de 00:02:00 ponga el forecolor en verde Agradezco de sobre manera a quien pueda ayudarme. JAAA