Jump to content

Enigma25

Members
  • Content Count

    2,394
  • Joined

  • Last visited

  • Days Won

    48

About Enigma25

  • Rank
    Advanced Member

Profile information

  • Gender Array

Recent Profile Visitors

3,104 profile views
  1. HOAL ENIGMA, ESTUVE MIRANDO TU APORTE DEL STOCK 2.0 ME PARECIÓ EXCELENTE, PERO QUISIERA SABER SI TU ME PUEDES AYUDAR E INDICARME COMO PODRÍA A CARGAR ESTE ARCHIVO CON RECETAS PARA RESTAURANTE Y QUE CADA PRODUCTO TENGA "CARGADOS" LOS INGREDIENTES, PARA QUE EN EL MOMENTO DE LA VENTA SE PUEDAN DESCONTAR, 

     

    MUCHAS GRACIAS!!!

  2. Perfecto Podemos dar como tema solucionado? Saludos cordiales.
  3. Hola a todos Siguiendo el mismo hilo y esta vez en un rango variable a partir de la ultima fila vacía de la Hoja2, lo ejecutaría de la siguiente forma: Dim Uf As Long Dim Ul As Long Uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row Ul = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja1.Range("A2:B" & Uf).Copy: Hoja2.Range("A" & Ul).PasteSpecial xlValues Application.CutCopyMode = False Un gran saludo a @Gerson Pineda
  4. Hola @Iphant Prueba con el siguiente archivo. Le coloqué un botón con una macro a ver si es lo que deseas. Comenta tus impresiones. Mis respetos. Prueba_V03.xlsm
  5. Hola. Puedes adjuntar tu archivo con un ejemplo del resultado que describes?
  6. Que bueno que lo solucionaras. Como agregado; para mostrar el formato de fecha en las etiquetas(Label), puedes hacer esto : Label1.Caption=Format(Hoja2.Range("C12"),"DD/MM/YYYY") Saludos cordiales.
  7. Hola @Leyser Calero Me alegra saber que funcione. Para una nueva solicitud, le sugiero crear un nuevo tema dado que este corresponde a la carga de datos de un ComboBox a un ListBox. Favor dar como tema solucionado. Saludos cordiales.
  8. Hola Prueba tambien con estas lineas: Dim Lin As Long Dim I As Single Dim Uf As Long With Hoja1 Lin = 6 Do While .Cells(Lin, 1) <> "" Uf = Hoja2.Range("B" & Rows.Count).End(xlUp).Row + 1 For I = 1 To .Cells(Lin, 9) Hoja2.Range("B" & Uf) = .Cells(Lin, 1) Hoja2.Range("C" & Uf) = .Cells(Lin, 2) Hoja2.Range("D" & Uf) = .Cells(Lin, 3) Hoja2.Range("E" & Uf) = .Cells(Lin, 4) Hoja2.Range("F" & Uf) = .Cells(Lin, 5) Hoja2.Range("G" & Uf) = .Cells(Lin, 6) Hoja2.Range("H" & Uf) = .Cells(Lin, 7) Uf = Uf + 1 Next I Lin = Lin + 1 Loop End With Mis respetos. Lista de empaque.xlsm
  9. Hola. Puedes adjuntar tus archivos para ver como tienes diseñada la conexión? Saludos.
  10. Hola Prueba con lo siguiente : Sub Borrar() Dim I As Single With Hoja1 For I = 1 To 5 If .Cells(2, I) = "NO" Then .Cells(2, I).ClearContents Next I End With
  11. Hola @pepegoteraspepe Seria Excelente ver el diseño de tu hoja Excel y el archivo Access para darte una posible solución. Mis respetos.
  12. Hola @Leyser Calero Crea un nuevo botón de comando y prueba con la siguiente instrucción : Dim A As Single With Me.ListBoxPROD A = .ListCount .AddItem .List(A, 0) = Me.ComboBox5 'Codigo .List(A, 1) = Me.ComboBox4 'Producto .List(A, 2) = Me.ComboBox6 'Unidad .List(A, 3) = TextBox3 'Cantidad .List(A, 4) = TextBox4 'Precio .List(A, 5) = Format(CDbl(TextBox3) * CDbl(TextBox4), "#,##0.00") 'Importe End With Comenta cualquier cosa. Saludos.
  13. Hola @ENRIQU3SC37 Puedes comprimir tu archivo y/o enviarlo desde Drive de Google. Saludos.
  14. Hola @Zayed07 Favor leer las normas de uso Saludos cordiales.
  15. Cuanto lamento la partida de una gran persona. Aunque sigamos adelante, siempre tendremos ese vacío por la tristeza de ese "adiós". Mis mas sinceras palabras de agradecimiento y pesar por su partida. MI MAYOR RESPETO...
×
×
  • Create New...

Important Information

Privacy Policy

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