Jump to content

federtuc

Members
  • Content Count

    23
  • Joined

  • Last visited

  • Country

    Argentina

About federtuc

  • Rank
    Member

Converted

  • Campos
    ;
  1. Buenas Tardes, Necesito extraer de una tabla que tengo en Access el valor máximo del campo "PEDIDO" y que lo deposite en la celda B2 de la Hoja1 de Excel al dar click en un CommandButton de un formulario de Excel.
  2. Era exactamente eso Antoni, excelente felicitaciones y Gracias desde Argentina!
  3. BUENOS DIAS, TRATO DE HACER UNA CONSULTA PARA EXTRAER LOS DATOS DE ACCES CON UNAS CONDICIONES Y ME APARECE ERROR Dim Sql Sql = "SELECT Id, NOMBRE, PRECIO, IMAGEN FROM PRODUCTOS WHERE EMPLEADO =" & Label1.Caption & " AND SUSPENDIDO = 0 ORDER BY NOMBRE" Call Conecta 'Crea la conexion Set Rs = New ADODB.Recordset Rs.Open Sql, miConexion, adOpenKeyset, adLockOptimistic -------Aqui es donde me sale el error No coinciden los tipos de datos en la expresion de criterios
  4. Ese Código lo pegas en cada Combobox en el evento Change
  5. Dim Variable1 If ComboBox1.Value= "montar cabezal" and ComboBox2.Value= "0,75" and ComboBox3.Value= 48 Then Variable1= ComboBox2.Value * ComboBox3.Value * 0,25 Listbox1.AddItem Variable1 End If End Sub
  6. CORRIJO UN ERROR, AHORA SI MACROO2A.xlsm
  7. ME FALTABA UNA CORRECCION,AQUI LES DEJO MACROO2A.xlsm
  8. Ya encontré la solución MACROO2.xlsm
  9. 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----------- ROJO2----------- ROJO1----------- BLANCO2----------- BLANCOy si aprieto ahora el Boton NEGRO debería quedar así:1----------- ROJO2----------- ROJO1----------- NEGRO2----------- NEGROHe intentado pero no puedo lograrlo, alguien que pueda ayudarme?Subo el Archivo MACROO1.xlsm
  10. Tema solucionado Hice lo siguiente: Private Sub CommandButton2_Click() ListBox2.Clear filList = ListBox1.ListCount For s = 0 To ListBox1.ListCount - 1 fi = ListBox1.List(s) For xx = 0 To filList - 1 If ListBox1.List(xx) = fi Then texto = Split(ListBox1.List(xx, 1), ", ") For i = 0 To UBound(texto) texto1 = Split(ListBox1.List(xx, 2), ", ") ListBox2.AddItem ListBox1.List(xx) ListBox2.List(ListBox2.ListCount - 1, 1) = (texto(i)) ListBox2.List(ListBox2.ListCount - 1, 2) = (texto1(i)) Next End If Next xx Next s End Sub
  11. Lo que hago es pasar mediante un boton datos del textbox1 multiline al Listbox1, luego con otro boton paso los datos del listbox1 al listbox2, hasta ahi todo perfecto, lo que necesito y no puedo lograr es pasar a la columna 3 del listbox2 los datos de la columna 3 del listbox1. subo el archivo Ejemplo Split.xlsm
  12. Buenas, estoy teniendo problemas con la funcion split, cuando intento pasar datos de listbox1 a un listbox2 Intento con estas lineas Lineas = Split(ListBox1.List(x, 1), ", ") Lineas1 = Split(ListBox1.List(x, 2), ", ") For i = 0 To UBound(Lineas) For x = 0 To UBound(Lineas1) ListBox2.AddItem ListBox1.List(x) ListBox2.List(ListBox2.List(x,1) = Lineas(i) ListBox2.List(ListBox2.List(x,2) = Lineas1(x) Next i Next x
  13. Excelente 10 lo felicito!! Lo que necesita. infinitas gracias nuevamente Antoni...
  14. Tengo 3 textbox, lo que necesito es que la suma entre ellos no sea mayor al valor de un label. Supongamos que el valor del label es igual a 5. Si escribo el numero 5 en el primer textbox no me de error, si es mayor que 5 salte el msgbox con el error. Ahora si escribo el numero 3 en el textbox1 y escribo el numero 2 en el textbox2 la suma da igual a 5 por ende cuando vaya a escribir en el textbox3 salte el error. Y asi lograr ponerle las restricciones para que los textbox dependan del valor de ese label. Alguien podria ayudarme?
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png