Saltar al contenido

Enigma25

Moderadores
  • Contador de contenido

    2391
  • Unido

  • Última visita

  • Days Won

    48

Sobre Enigma25

  • Rango
    Miembro

Información de perfil

  • Sexo Hombre

Visitantes recientes del perfil

2034 visitas de perfil
  1. 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.
  2. 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.
  3. 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
  4. Accses Excel

    Hola. Puedes adjuntar tus archivos para ver como tienes diseñada la conexión? Saludos.
  5. 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
  6. 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.
  7. 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.
  8. MACROS EN FACTURA

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

    Hola @Zayed07 Favor leer las normas de uso Saludos cordiales.
  10. 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...
  11. Copiar datos de una hoja a otra

    Hola Por favor adjunta tu archivo para ayudarte. Saludos.
  12. Actualizar libros sin abrirlos ??

    @eugeniocol Usted está siendo muy descortés al tratar a las personas que dedican su tiempo en ayudarle. No es la manera correcta de referirse cuando la intención es solucionar su requerimiento en forma eficiente. Lo invito a que reflexione un poco su modo de proceder. La humildad y el agradecimiento es algo valioso para todos y abre muchas puertas. Saludos a todos y muchas gracias por sus contribuciones que son excelentes. Mis respetos.
  13. Problema con Setfocus

    Hola Prueba quitando la propiedad SelStart a ver que sucede. Puedes adjuntar tu archivo para ver como se ejecuta. Saludos.
  14. Ordenar finas y asociar a otra columna

    Otra modificación : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Then If Target.Row > 3 Then If Not IsEmpty(Target.Row - 1) Then Range("B3").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo End If End If End If End Sub Mis respetos.
  15. Ordenar finas y asociar a otra columna

    Espero que este tambien te sirva. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Row >= 3 Then Range("B3").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo End If End If End Sub Saludos.
×