none
¿como imprimo un libro en excel automaticamente cuando una cantidad seamenor a lo establecido? RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola que tal:

    pues bueno solamente tengo l os conocimientos basicos en excel y comienzo a usar macros que es totalmente nuevo para mi.

    Lo que intento hacer es; mandar una impresion automaticamente de otro archivo en excel cuando en una columna que es actualizada dia a dia con cantidades, una de esas cantidades sea menor a 1500.

    Oh sea cuando en una lista de numeros exista un numero menor a 1500, se haga una impresion de un archivo diferente pero tambien en excel.

    Espero de verdad que me puedan ayudar.

    Gracias!

    jueves, 12 de mayo de 2011 17:18
    |

Respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Seguramente es preferible así:

    Private Sub Worksheet_Change(ByVal Target As Range)

    ' si la celda modificada está en la columna 1 (A)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
       ' si el valor de la celda modificada es igual o mayor que 1500
       If Target.Value <= 1500 Then
          ' imprimo
          ActiveSheet.PrintOut
       End If
    End If
    End Sub

    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/
    • Marcado como respuesta Ismael Borche viernes, 20 de mayo de 2011 18:40
    domingo, 15 de mayo de 2011 14:58
    |

Todas las respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola!

    algo así debería funcionarte

     

    Private Sub Worksheet_Change(ByVal Target As Range)

    ' si la celda modificada está en la columna 1 (A)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
       ' si el valor de la celda modificada es igual o mayor que 1500
       If Target.Value <= 1500 Then
          ' imprimo
          ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
       End If
    End If
    End Sub

    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/
    domingo, 15 de mayo de 2011 11:01
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Seguramente es preferible así:

    Private Sub Worksheet_Change(ByVal Target As Range)

    ' si la celda modificada está en la columna 1 (A)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
       ' si el valor de la celda modificada es igual o mayor que 1500
       If Target.Value <= 1500 Then
          ' imprimo
          ActiveSheet.PrintOut
       End If
    End If
    End Sub

    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/
    • Marcado como respuesta Ismael Borche viernes, 20 de mayo de 2011 18:40
    domingo, 15 de mayo de 2011 14:58
    |