Jump to content

Cargar Listbox


Go to solution Solved by federtuc,

Recommended Posts

Buenas amigos, haber quien me puede ayudar. El formulario actúa así, primero cargo la cantidad en el textbox, se carga automaticamente el Listbox1 donde puedo seleccionar uno o mas elementos porque es multiselect, al seleccionar ya puedo presionar los botones y cargar en el listbox2.

Los botones están configurados para que el ROJO, VERDE Y AZUL no se repitan y ademas para que cada elemento del Listbox1 solamente pueda tener uno de ellos, es decir, supongamos que selecciono el numero 1 en el Listbox1, solamente entonces al cargar el Listbox2, quedara en 1 Rojo, en 1 Azul o en 1 Verde.

Hasta ahÍ todo perfecto, ahora quiero cargar el boton BLANCO Y EL COLOR NEGRO, lo que quiero lograr es que tampoco se puedan repetir, pero que salgan como aparte en el Listbox2, es decir supongamos que selecciono 1 y 2 en el Listbox1, ahora los cargo con el Boton ROJO, y ahora aprieto el Boton BLANCO, el Listbox2 tiene que quedar así:

1----------- ROJO
2----------- ROJO
1----------- BLANCO
2----------- BLANCO

y si aprieto ahora el Boton NEGRO debería quedar así:

1----------- ROJO
2----------- ROJO
1----------- NEGRO
2----------- NEGRO

He intentado pero no puedo lograrlo, alguien que pueda ayudarme?

Subo el Archivo

MACROO1.xlsm

Link to post
Share on other sites

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

    • la macro propuesta "no funciona" por los "detalles" que, si NO los expones en la consulta inicial, tampoco se tienen por que "adivinar" y  porque la adaptación que hiciste es incorrecta: 1) comparar un ".Address" (en vba) es sensible a las (may/min)usculas (a menos que cambies el modo de comparación), cambia a: If Target.Address <> "$U$17" Then Exit Sub Else On Error Resume Next 2) otros "detalles" de tu modelo son: - un exagerado (AB)uso de celdas "combinadas" (sigo sin entender esa nece[si]dad) - NO es "la única" celda con ese requerimiento (y ya estaba "advertido") 3) haz pruebas y... (no te guardes "detalles en el tintero" ?) OJO: sigues SIN comentar que sucede con los rangos entre 11 y 31 (?????)
    • Muchas gracias Silvia Me funciona a la perfeccion. Gracias por los consejos. No me había percatado de los espacios al final de los códigos. Con relación al WH/IN y WH/N/A asi lo prefiero que no se sumen, el WH/N/A originalmente se llamaba WH/INT, pero reemplace esas palabras para por N/A para que no se incluyeran en la suma. Tema resuelto! Muchas gracias!
    • mejor esperamos el archivo (con instrucciones y un caso desarrollado ?) porque tu (RE)planteamiento es lo mismo que el original (palabras mas o menos), y lo que sigue quedando "en el limbo" es esto: que pasa entre 11 y 31 ?
    • lo vuelvo a plantear: Buenas tardes una consulta como puedo hacer una macro que al momento de ingresar estos datos (del 1 al 100) en la celda me convirtiera al dar enter automáticamente, entre los rangos de 1 a 5: En la hoja A1 coloco 50 pero automáticamente debiera aparecer 3. como esta en la descripción de abajo. ( Puntos x 0.05 = XX puntos es una fórmula de multiplicación.) De 1 punto a 11 puntos * 0,05 = 1 punto De 31 puntos a 49 puntos * 0,05 = 2 puntos DE 50 a 69 puntos *0,05 puntos = 3 puntos DE 70 puntos a 89 puntos *0,05 = 4 puntos DE 90 puntos a 100 *0,05 = 5 puntos La fórmula la tengo en una celda pero no hay espacio en mi hoja de impresión por eso deseo que haga esa conversión automáticamente al momento de ingresar esos datos. >>> O existe una formula condicional eso sería más mejor. Gracias.   enseguida te mandare el archivo reducido  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy