Jump to content

Marias123

Members
  • Content Count

    19
  • Joined

  • Last visited

About Marias123

  • Rank
    Member

Converted

  • Campos Array

Recent Profile Visitors

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

  1. Muchas gracias! Estoy tratando de insertar un control imagen (Check) en el lugar correspondiente según la carta que aparezca. Utilicé If imgCartas.Picture = LoadPicture("C:\Users\magza\OneDrive\Escritorio\Memoria Blanca-Azul\Loteria\02 El Diablito.jpg") Then imgJ2C02.Visible = True End If Inserté el control imagen con el name imgJ2C02 y le cambié la propiedad Visible=False Pero no responde. :(
  2. Buenas tardes Estoy realizando una actividad (Lotería). Necesito ayuda al dar clic sobre el botón barajar que las cartas se revuelvan y se muestren de una en una en un control imagen cada vez que presiono en un botón (Siguiente). Loteria.xlsm
  3. Buen día Estoy trabajando en una tarea donde tengo que construir rostros y en una hoja de Excel pegar la imagen construida (controles imagen) con los datos insertados en el formulario. Me podrían ayudar? Gracias. Adjunto la imagen del formulario. Lo que me falta es capturar el rostro que ya formé y pegarlo en una hoja de Excel.
  4. Necesito cargar imágenes png para formar rostros al encimar las imágenes en controles de tipo imagen en un formulario. Alguien me podría ayudar.
  5. Buenas tardes Estoy manejando controles de imagen Al presionar un botón de comando me carga una galería de imágenes. Ahora quiero que cuando le de Clic sobre la imagen ya cargada en el control imagen (img1) me cargue en otro control imagen (imgCeja). Estoy utilizando un if porque en el mismo control imagen (img1) puedo cargar otra imagen y quiero verificar con un if la imagen cargada. Private Sub img1_Click() If img1.Picture = LoadPicture("Cejas\Cejas01.jpg") Then imgCeja.Picture = LoadPicture("Cejas\Cejas01.jpg") End If End Sub
  6. Lo estoy tratando. ¿Qué otra plataforma me recomiendas Cacho R?
  7. Buenas tardes Tengo una actividad que realizar sobre identificación de presunto sospechoso por medio de imágenes (https://drive.google.com/open?id=1lmpSxhmS9koFNsrmxdXzXJyxPqBtcKoZ). El rostro se conforma por partes; Cabello, ojos, cejas, nariz, orejas, bigote. Lo que quiero es cargar las imágenes en control de imagen y cuando seleccione una de las imágenes cargadas se forme el rostro. Actividad 2018-2019.xlsm
  8. Hola @Haplox Me van pidiendo cosas nuevas. Ahora me pidieron que me imprima el reporte de ventas del día con el total de ventas. Tengo el siguiente código que me permite filtrar pero no me elimina la ultima fila donde hice la sumatoria. Private Sub cmdReporte_Click() 'Filtrar las ventas del día Dim UltLinea As Long Dim FilaEliminar As Long Sheets("Ventas").Select 'Seleccionar la hoja Ventas ActiveSheet.ListObjects("TablaVentas").Range.AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic 'Aplicar el filtro UltLinea = Range("M5").End(xlDown).Row + 1 'busco la última fila con datos que y le sumo 1 para colocar el sumatorio, define correctamente la columna y la primera celda que tiene datos Range("M" & UltLinea).FormulaR1C1 = "=SUM(R[-" & UltLinea - 1 & "]C:R[-1]C)" 'escribo la formula en la celda, fijate que le resto uno aquí a UltLinea para que no provoque una redundáncia On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Imprimir el filtro (Reporte de ventas) FilaEliminar = ActiveSheet.Cells(Aplication.Rows.Count, 1).End(xlUp).Row ActiveSheet.Cells(FilaEliminar, 1).EntireRow.Delete shift:=xlUp ActiveSheet.ListObjects("TablaVentas").Range.AutoFilter Field:=2 'Quitar filtro End Sub En la solución que me enviaste respecto a la disponibilidad, me suma las cantidades restando uno al total de cantidades. Ejemplo me quedan 2 y yo capturo 4 me aparece el mensaje pero me agrega 3. Si no hay disponibles me sigue agregando.
  9. Muchas Gracias @Haplox por último me gustaría validar: Cuando la disponibilidad de los productos estén en 0 que mande un mensaje y no se pueda vender. Ejemplo: Si el producto CAM002 quedan 2 y quieren comprar 3 que le indique al usuario la disponibilidad y si no hay pues también que le mande un mensaje indicando que no hay disponibles.
  10. No pude subir el archivo, marca error al subirlo.
  11. Hola @Antoni y @Haplox he trabajado en el libro, me surgió otro problema. Al agregar los productos a la lista me gustaría sumar las cantidades de los productos que se repiten (Código). Ejemplo. Si ya agregué el producto con clave CAM002 cantidad 4 y lo vuelvo a agregar CAM002 cantidad 2, mostrar solo una linea: CÓDIGO PRODUCTO DESCRIPCIÓN TALLA PRECIO CANTIDAD SUBTOTAL CAM002 CAMISA UNIFORME DE DIARIO 2 330 6 1980 Espero me puedan ayudar.
  12. Muchas Gracias @Haplox La solución fue perfecta, Quité el SpinButtom. Exactamente aumenta el número de folio dando continuidad al último folio en la lista de ventas. También disminuye la cantidad de productos vendidos. Muchas gracias por la ayuda. Aún sigo trabajando en el libro, cualquier duda les informo.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5