Jump to content

georgegch

Members
  • Content Count

    24
  • Joined

  • Last visited

About georgegch

  • Rank
    Member
  • Birthday 10/21/1990

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Muchas Gracias @nachobm ese era lo que me faltaba, entre tanto código algo faltaba. Tema solucionado
  2. Hola a toda la comunidad, aún no encuentro solución a mi problema :(, espero me puedan hechar una mano, gracias de antemano. pd. si se necesita alguna información adicional me dicen, en el segundo comentario deje el archivo adjunto
  3. Muchas gracias nuevamente @Gerson Pineda, no me había percatado de ese error de abrir desde el link ahora ya se puede. Espero me puedas echar una mano con una corrección con mi código en un checkbox, en este otro tema: https://ayudaexcel.com/foro/tema/32870-desmarcar-o-limpiar-checkbox-vbokcancel/
  4. Si es de esa manera, funciona correctamente, entonces conforme tenga la imagen y le ponga el nombre del codigo, ya cuando la cargue no me será necesario escribirle el código. Muchas Gracias. @Gerson Pineda me servirá de mucho.
  5. Gracisa @LeandroA funciono como esperaba en un comienzo, ya lo de guardarlos por carpetas como quería para que se vea mas ordenado lo dejare para después, por mientras guardare todas las imágenes en una sola carpeta para que se visualicen en el formulario. Gracias @Gerson Pineda tu código también me funcionó pero nada mas ocasiona un problema, cuando lleno los textbox codigo y precio y paso a añadir mi imagen con el boton correspondiente, la carga y se ve en el formulario pero esta hace que cambie lo que escribí en el textbox codigo por el nombre de la imagen que cargue por lo que tengo que volver a modificarlo, espero tenga solución, solo eso. Saludos a ambos!
  6. Espero alguien pueda entender mi problema con esto del codigo de las imagenes, si se necesita alguna explicación extra por favor indicarmela, Gracias
  7. Hola a toda la comunidad, espero no molestar con este tema y me puedan brindarme una solución al Sgte. Caso que estado viendo como resolver. En un formulario que doy alta a los productos, cargo las imágenes por medio de un botón, y las puedo visualizar a través de un picturebox. Estas imágenes guarda su ubicación como hypervinculo en una columna de la hoja1, con el nombre de la dirección de la imagen. El problema es que si este archivo lo llevo a otra máquina con todo y la carpeta de imágenes que le pertenecen a este proyecto, en otra máquina ya no las puedo visualizar, no se si habría la forma de poder obtener una carpeta predeterminada como ruta de las imágenes que cargue, donde se pueda abrir el archivo desde cualquier computadora que tenga la carpeta del proyecto con las imagenes cargadas. Vale hacer notar que las imágenes las tengo ordenadas por carpeta, por ejemplo: F:\DICIEMBRE 2015\FOTOS JOYAS\SORTIJAS*** otras imágenes las tengo en ..\DICIEMBRE 2015\FOTOS JOYAS\COLLARES, otras imágenes de acuerdo a la categoría las tengo en: F:\DICIEMBRE 2015\FOTOS JOYAS\ARETES, siempre varia la ultima carpeta de acuerdo a la categoría que este. Otra cosa que me gustaría que se pueda corregir de mi codigo es que guarde las imagenes ya no con la dirección de la ubicación de la imagen, sino con el mismo código de producto y asi aparezca en la celda correspondiente de la tabla. Ahi tambien tengo un formulario modificar donde segun el codigo que escoja debe aparecer junto a su imagen, y para eso ya debe estar programado la ubicación de la carpeta de las imagenes donde yo solo tendria que escoger el codigo y de acuerdo a este me aparezca en el picturebox la imagen correspondiente, para si yo quiero abrir otra imagen y guardar la nueva imagen desde el formulario Modificar. Agradeceria su ayuda de antemano. Gracias Adjunto archivo Libro1.xlsm
  8. Hola Macro Antonio, a lo me referia es hacer algo parecido a eso pero en los CheckBox, para aclarar mas el asunto adjunto el excel. Al activar el CheckBox1 que dice ActualIZAR Ficha me aparece el mensaje si quiero aceptar o cancelar para activar la macro ModificarFicha, hasta ahi todo bien, el problema que tengo que al procesar la información completada en mis textbox y pasarla al listbox inferior con el boton ANOTAR LINEA, este supuestamente me limpia todos los checkbox, pero tambien de nuevo me aplica el cuadro de dialogo si quiero volver a MODIFICAR FICHA y sale aceptar o cancelar y eso es lo que yo no quiero que me aparezca de nuevo, solamente cuando presiono el CheckBox que le corresponde. Espero tu ayuda. Gracias de antemano. checkbox duda.rar
  9. Hola a toda la comunidad, espero me puedan ayudar a un problema al parecer simple, pero no he podido darle solución a esto: Tengo un checkBox1 con esté código que al activarlo y me salga el mensaje de Ok y Cancel, al presionar el botón OK, se ejecuta la macro "ModificarFicha" (Hasta ahí todo bien).... Private Sub CheckBox1_Click() Dim respuesta As Variant respuesta = MsgBox("¿Desea registrar ahora la ficha?" + Chr(13) + "¿Desea proceder?", vbOKCancel) If CheckBox1.Value = 1 And _ respuesta = vbOK Then ModificarFicha End If End Sub El problema resulta cuando ya tengo el checkbox1 activado y ya se ejecuto la macro "ModificarFicha" porque presioné Ok. en mi formulario ya llene todos los textbox y campos obligatorios, a la hora de querer procesar la información a mi listbox de mi formulario por medio del boton "AnotarLinea", cuando ya presiono este boton y al final de todo lo que ejecuta me deje limpios los Checkbox (vease el código del boton en la parte inferior), me VUELVE A SALIR EL MENSAJE si quiero aplicar la macro "MODIFICARFICHA" que presione OK o Cancel de mi CheckBox1. y lo que quiero evitar es esto. Lo que quiero es que no me aparezca ya este mensaje al momento de presionar el boton "AnotarLinea" y al final me desactive o limpie el CheckBox1 El código que aplico para el Botón "AnotarLinea" es este: Private Sub AnotarLínea_Click() ListBox1.ColumnHeads = True X = LC.Range("A" & Rows.Count).End(xlUp).Row + 1 For Y = 1 To 17: LC.Cells(X, Y) = Controls(Controles(Y)).Value: Next ListBox1.RowSource = "'" & LC.Name & "'!A2:Q" & X cb_dpto = "" txt_cantidad = "" txt_peso = "" txt_pesototal = "" txt_precioU = "" txt_importe = "" txt_igv = "" txt_ganancia = "" txt_preciovtatotal = "" txt_preciovtagramo = "" CheckBox1.Value = 0 fotografia.Picture = LoadPicture("") sumarImportes End Sub Espero me puedan ayudar he intentado algunas formas pero se puede con los CheckBox simples de marcar o desmarcar, sin ningun cuadro de dialogo de por medio.
  10. Pd. ya lo solucione ese percance el problema fue que declare como variable publica subtotal As Double, elimine eso y ahora si suma todo correcto. Gracias.
  11. Genial, Muchas gracias @Macro Antonio ahora si esta solucionado, solo una ultima consulta del mismo archivo, al momento de sumar los importes de los productos en el listbox cuando agrego mas de 2 productos, me los suma dos veces, y su resultado se escribe en el txt_subtotal, podrías echarme una ultima mano con este código para que me pueda sumar los importes del listbox de manera correcta. Gracias de antemano. Public Sub sumarImportes() 'suma de los totales For i = 0 To Me.ListBox1.ListCount - 1 Subtotal = Subtotal + CDbl(ListBox1.List(i, 12)) 'subtotal de todos los productos agregados Total = Total + CDbl(ListBox1.List(i, 10)) 'total de cantidades de productos Next i txt_subtotal.Text = CDbl(Subtotal) txt_pesototalcompra.Text = CDbl(Total) End Sub Pd. estuve queriendo ver la solución que diste en otro tema de este link: Pero no me permite descargar el archivo.
  12. Hola a toda la comunidad, tengo dos dudas que espero me puedan ayudar por favor, a partir un formulario de Compras, en el que me ayudo mucho el compañero de foro @Macro Antonio resolviendo mis antiguas dudas, y por lo que surgió un problema de códigos para terminar de desarrollar este formulario de Compras. (Adjunto el Archivo en la parte Inferior) El primer problema es cuando agrego los productos al ListBox de mi formulario Compras, y requiero eliminar un producto, lo selecciono y realizo doble click, hasta ese momento todo va bien, pero en caso yo en excel tenga activa otra hoja por ejemplo Productos y no la Hoja Imagen Rowsource del ListBox1 que tiene las filas de productos que he agregado (Hoja: Líneas de Compra), al hacer yo doble click en el producto seleccionado, esta acción tiende a borrar el primer producto de la hoja activa en este caso Productos, y así pasaría lo mismo si estuviera yo con otra hoja activa. Por lo que necesitaría si el código se puede arreglar. O sería posible crear un label "Eliminar", donde me permita borrar el producto Seleccionado de los que yo he agregado del ListBox1, sin que comprometa otra hojas de excel, así las tenga activas, o de manera todas las hojas Ocultas. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Rows(ListBox1.ListIndex + 2).Delete sumarImportes End Sub El segundo caso que me pasa en mi formulario de Compras, es cuando ya teniendo todos los productos agregados con toda la información completa, paso a presionar el botón "Procesar" donde me envía toda la información a la hoja Entradas, Pero lo único faltante o que me causa error mi código es cuando necesito que si he agregado una cantidad de productos al ListBox (cada producto del ListBox1 tiene un código que lo identifica), cada Cantidad de Producto agregado por producto realice una suma de la CANTIDAD AGREGADA RECIENTE + EXISTENCIAS (de la Hoja "Productos" Columna: 31), vale decir que cada cantidad y suma realizada va ser diferente de acuerdo al Código de los Productos. Yo use esté código pero me causa errores, y no se como solucionar, me podrían ayudar por favor: Fila = 2 Do While Hoja18.Cells(Fila, 1) <> "" Fila = Fila + 1 Loop Final2 = Fila - 1 For Fila = 2 To Final2 If Hoja18.Cells(Fila, 1) = Hoja20.Cells(Final, 2) Then Existencia = Hoja18.Cells(Fila, 31) Cantidad = ListBox1.List(i, 8) TotalExistencia = Cantidad + Existencia Hoja5.Cells(Fila, 18) = TotalExistencia Exit For End If Next Disculpen si algo haría mal, no soy un desarrollador, pero me gusta aprender cosas nuevas y aplicar lo poco que aprenda en mi día a día, como en este proyecto que estoy realizando. textbox a listbox.xlsm
  13. Hola a toda la comunidad, ando en una terrible confusión de esta división y agradecería mucho me ayuden. Adjunto el archivo. El problema esta en cuando intento registrar una joya y pongo su peso y su precio por gramo, este ultimo me automatiza los cálculos para los demás textbox, pero lo que no logro que me de un resultado esperado en el textbox "Precio de vta. x gramo" (este textbox resulta de la división del precio total / el peso). Por ejemplo pongo 10 en el PESO y en PRECIO GR. pongo 100, los demas textbox escriben el resultado automaticamente y supuestamente me deberia mostrar en el precio de vta. total 1180 (resultado de la multiplicacion PESO * PRECIO GR. * IGV% * GANANCIA%) , PERO hay un error que creo es por las comas en los dos últimos textbox PRECIO DE VTA. TOTAL (el resultado de este textbox se multiplica el Precio Unit. * IGV% * Ganancia%) de igual manera, el mismo error en el textbox de PRECIO DE VTA. x Gr. (Resultado de dividir el textbox Precio de Vta. Total / Peso Unit. ). Dejo el archivo adjunto espero me puedan ayudar ya que mi codigo ya lo he probado con numeros de dos cifras o pequeñas cantidades y da todo bien, pero este error de calculo me da apartir desde cuando pongo el Precio Gr. en 85 para arriba. Gracias de antemano. Link de descarga: (El archivo pesa 221 Kb.) por eso lo subi a google drive y no lo pude adjuntar desde el mismo foro. INVENTARIO COMO PROGRAMA.rar
  14. Bueno quizás les parezca sencillo realizarlo pero no logro del todo hacerlo bien. lo que quiero es: Si el textbox Inv./peso es: “SI”, entonces Se permita realizar la división de Costo Unitario / Peso, y de el resultado de este en el textbox Precio del Gramo. Y también: Si el textbox Inv./peso es: “NO”, entonces NO EJECUTE la división de Costo Unitario / Peso, y en el textbox Precio del Gramo se ponga en “0" automaticamente. Como adicional nose si es tambien posible hacerlo en una misma formula que al final la cantidad que ingrese se multiplique con el costo unitario tambien ingresado y de su resultado en Costo total de Cantidad Ingresada. PD. Aclaro que el textbox Precio del Gramo esta bloqueado ya que no va ser necesario escribir nada y ese textbox tiene que estar condicionado a los otros textbox. INVENTARIO.rar
  15. Genial ya se pudo, gracias de verdad. Solo necesitaría resolver una duda más, en el caso una celda que coja un dato de numero NEGATIVO - , y quiero que visualice en el listbox que muestra los datos como POSITIVO +. Hice esto, pero no logro hacer que se visualice en positivo. .txt_costototal = Mid(Format(Me.ListBox1.List(Me.ListBox1.ListIndex, 17), "#,##0.00"), 2, 5)[/CODE]
×
×
  • Create New...

Important Information

Privacy Policy