Jump to content

Pintar filas utilizando un buscador(Modificar Estado)


Recommended Posts

Buenas noche amigos de Excel Ayuda quisiera que me ayuden completando mi amplicación con la ayuda de ustedes e creado una aplicación que ingresa datos para analizar en varios perìodos, los datos estan en un hoja BBDD, mi objetivo es que al analizar los productos cada periodo y culminarlos quiero pintarlos de acuerdo a dos criteros "suspendido" o "culminado" utilizando el buscador yo digito el "Lote" y doy clik en la lupa y busca el producto pero quiero que al ubicar el "Producto1, Produco2 etc" al selecionar uno de los dos botones de opción "verde o rojo" se pinten automaticamente en la base de datos BBDD todas las filas que buscó.

Les agradezco por darme un tiempo en terminar mi proyecto.

ModificarPintandoFila.xlsb

Link to post
Share on other sites

No se si lo he acabado de entender.

Verás que he añadido una columna de 13 textbox donde nos guardo el color del estado y la fila a la que corresponde.

Al pulsar modificar estado, se les modificará el estado en función de está seleccionado y de que opción esta pulsada.

Ya comentarás.

 

 

ModificarPintandoFila.xlsb

Link to post
Share on other sites

Buenas noches Antoni primeramente déjame agradecerte por el tiempo que te has tomando en ayudarme con mi proyecto; el dódigo hace lo que esperaba, pero quiciera que al buscar un determinado lote poder teclear el lote primero y al aplastar en el botón donde está la lupa ahí recien se cargue el lote buscado en el formulario; ahorita lo que hace es si tecleo el número 1 del lote "14-0162" y si quiero teclear otro lote  que comience con el 1 me sale el mismo no me deja escribir un nuevo lote y se salta a casillero del código.

Al aumentar muchos lotes unos 5000 por ejemplo es demoroso estar buscando en el combobox en el desplegable  el lote que necesito seria mejor que quede como antes que tecleaba el lote en el textbox de "Lote" y al dar click en botón de la lupa(Buscar item) recien aparezca o se carge en los casillero. Por favor es el único inconveniente que se me presentó por lo demás está muy bien.

Gracias nuevamente por tu tiempo y espero contar con tu ayuda.

Copia de ModificarPintandoFila-1.xlsb

Link to post
Share on other sites
  • 4 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • ¡¡¡¡ El archivo Libro1-1.xlsm
    • Prueba la macro, la solución en BD Solucion2de2, sin pasar por BD Solucion1de2. Sub FillRate() Application.ScreenUpdating = False With Sheets("BD Solución2de2") Sheets("BD").Cells.Copy .Cells .Select For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If x Mod 500 = 0 Then Application.StatusBar = "Tratando fila " & x If Not .Range("A" & x) = "" Then If .Range("C" & x) > 0 Then Base = "C" & x .Range("I" & x).Formula = "=D" & x & "/" & Base If .Range("I" & x) > 1 Or .Range("I" & x) < 0 Then .Rows(x).Delete x = x - 1 End If End If Next End With Application.StatusBar = False End Sub En la línea de estado de Excel se muestra un pequeño avance del proceso.
    • Un saludo a ambos, aquí te dejo otra opción
    • Private Sub TextBox1_Change() ActiveSheet.Range("C6").Value = TextBox1.Text TextBox3 = Range("C8").Text End Sub Private Sub TextBox2_Change() ActiveSheet.Range("C7").Value = TextBox2.Text TextBox3 = Range("C8").Text End Sub Private Sub CommandButton1_Click() TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub  
    • este es el archivo con userform   Libro1.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy