Jump to content

federtuc

Members
  • Content Count

    25
  • Joined

  • Last visited

About federtuc

  • Rank
    Member

Converted

  • Campos
    ;
  1. Buenas tardes, en un formulario cargo una imagen de un producto a un control Image y capturo en un label la ruta de la imagen, el Label1 queda de esta manera: C:\Users\fede_\Documents\NUEVA CARPETA\IMAGENES\INSUMOS\TECLADO GENIUS.jpg Hasta ahí todo bien, ahora necesito capturar solamente el nombre de la imagen sin la ruta en el Label2. En este ejemplo el Label2 tiene que quedar asi: TECLADO GENIUS.jpg Como puedo lograrlo?
  2. Teniendo el largo de la celda B9 fijo, solamente lo que hago es autoajuste automatico del alto de la celda al cargar el dato, lo que me genera que quede mucho espacio en la celda dependiendo de los caracteres, como puedo hacer para que siempre el alto sea el justo, que no sobre ni un espacio? Dejo adjunto unas imagenes, donde pueden apreciar que la celda B9 se autoajusta pero innecesariamente le sobra mucho espacio en blanco.
  3. 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.
  4. Era exactamente eso Antoni, excelente felicitaciones y Gracias desde Argentina!
  5. 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
  6. Ese Código lo pegas en cada Combobox en el evento Change
  7. 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
  8. CORRIJO UN ERROR, AHORA SI MACROO2A.xlsm
  9. ME FALTABA UNA CORRECCION,AQUI LES DEJO MACROO2A.xlsm
  10. Ya encontré la solución MACROO2.xlsm
  11. 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Í t
  12. 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))
  13. 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
  14. 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
×
×
  • Create New...

Important Information

Privacy Policy