Saltar al contenido

Enigma25

Moderadores
  • Contador de contenido

    2394
  • Unido

  • Última visita

  • Days Won

    48

Sobre Enigma25

  • Rango
    Miembro

Información de perfil

  • Sexo Hombre

Visitantes recientes del perfil

2357 visitas de perfil
  1. Enigma25

    Descontar stock según pedido

    Perfecto Podemos dar como tema solucionado? Saludos cordiales.
  2. 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
  3. Enigma25

    Descontar stock según pedido

    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
  4. Enigma25

    pasar datos a hoja 2 segun encabezado

    Hola. Puedes adjuntar tu archivo con un ejemplo del resultado que describes?
  5. Enigma25

    Fecha Label UserForm

    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.
  6. Enigma25

    Agregar datos de ComboBox a ListBox

    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.
  7. Enigma25

    Orden de compra

    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
  8. Enigma25

    Accses Excel

    Hola. Puedes adjuntar tus archivos para ver como tienes diseñada la conexión? Saludos.
  9. Enigma25

    Selecionar celda para borrar

    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
  10. Enigma25

    Macro volcar datos de Excel a Access

    Hola @pepegoteraspepe Seria Excelente ver el diseño de tu hoja Excel y el archivo Access para darte una posible solución. Mis respetos.
  11. Enigma25

    Agregar datos de ComboBox a ListBox

    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.
  12. Enigma25

    MACROS EN FACTURA

    Hola @ENRIQU3SC37 Puedes comprimir tu archivo y/o enviarlo desde Drive de Google. Saludos.
  13. Enigma25

    ayudaaaaaaaaaaaaa

    Hola @Zayed07 Favor leer las normas de uso Saludos cordiales.
  14. Enigma25

    In Memóriam

    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...
  15. Enigma25

    Copiar datos de una hoja a otra

    Hola Por favor adjunta tu archivo para ayudarte. Saludos.
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.