none
Creacion de MACRO

    Pregunta

  • hola, estoy trabajando en una empresa de producción y mi jefe me pidió que creara una planilla,donde mida el tiempo de entrada de un producto y el tiempo de salida.Mi idea es crear dos botones, uno que inicie y registre hora y fecha, y el otro que finalice y registre fecha y hora.....¿ Como se puede hacer esto?

    POR FAVOR AYUDA!

    viernes, 12 de enero de 2007 18:54

Respuestas

  • hola felipe

    Esta puede ser mi propuesta

    primero debes crear una tabla de captura de los productos asi:

     

    primero: en un libro nuevo copia todos los productos en una hoja y la nombras como productos

    segundo: Selecciona los productos incluyendo 10 gilas abajo por si alcanzo ingresan nuevos 

                      productos y le das un nombre a esa seleccion dale el nombre de producto

     

    tercero: En la hoja dos nombrala captura y digita los siguientes datos en las siguientes celdas

               celda             digitar

                 b3               producto

                 b4               tipo movimiento

                 b5               fecha

                 b6               hora

                 b9               =c3

                 c9               =c4

                 d9               =c5 dar formato de fecha

                 e9               =c6 dar formato de hora

                 c3               en esta celda dar clic en datos/validacion seleccionar lista y en origen

                                    oprimir <f3> y seleccionar producto y despues aceptar

                 c4               en esta celda dar clic en datos/validacion seleccionar lista y en origen

                                    digitar entrada,salida y despues aceptar

                 c5               =si(c3=0;"";ahora()) y dar formato de fecha

                 c6              =si(c3=0;"";ahora()) y dar formato de hora

    seleccione toda la hoja y protejala con las dos opciones

    seleccione desde c3 hasta c4 y en formato desproteja las celdas en sus dos opciones

    cree un boton y dele el nombre de ingeso

    cree una nueva hoja y nombrela como datos

    digite los siguientes titulos en la primera fila producto, movimiento, fecha, hora

    en la celda iv1 digite la siguine formula =contara(a:a)+1

    regrese a la hoja de captura

    ahora entre al editor de visual basic oprima <alt><F11>

    y copie esta instruccion

    Sub copia()
        Sheets("captura").Select
        r = Range("b9").Value
        S = Range("c9").Value
        If r = 0 Then
        MsgBox ("SELECCIONE EL PRODUCTO")
        Else
        If S = 0 Then
        MsgBox ("SELECCIONE EL TIPO MOVIMIENTO")
        Else
        Range("B9:e9").Select
        Selection.Copy
        Sheets("datos").Visible = True
        Sheets("datos").Select
        Range("A2").Select
        num = Range("iv1").Value
        Cells(num, 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("A2").Select
        Sheets("captura").Select
        Sheets("datos").Visible = False
        Range("C3:C4").Select
        Selection.ClearContents
        Range("B8").Select
        ActiveWorkbook.Save
        End If
        End If
    End Sub

     

    Cierre el editor y oprima clic derecho sobre el boton y asigne esta macro

    por ultimo proteja la hoja y cada vez que vaya a ejecutar esta amcro debe tener protegida la hoja

     

    espero que esta instrucción le sirva de algo

     

    cualquier cosa favor comunicarse a mi correo es efrain_melgarejo_01@hotmail.com

     

    buena suerte

    viernes, 04 de mayo de 2007 4:38
  • ¿sabías que con la combinación de teclas [Ctrl] [ ; ] (o [Ctrl] [ , ] según la configuración) escribe la fecha del sistema en la celda activa, y que la combinación [Ctrl] [ : ] escribe la hora actual en la celda activa?

    A lo mejor con esto evitas tener que crear ninguna macro.

     

    Este truco lo he encontrado aquí http://www.necesitomas.com/index.php?q=node/29

    viernes, 11 de mayo de 2007 20:58

Todas las respuestas

  • Saludos...

     

      Felipe, te pregunta es muy abierta, la captura de datos la haras de forma manual o de que manera?

    martes, 24 de abril de 2007 21:43
  • hola felipe

    Esta puede ser mi propuesta

    primero debes crear una tabla de captura de los productos asi:

     

    primero: en un libro nuevo copia todos los productos en una hoja y la nombras como productos

    segundo: Selecciona los productos incluyendo 10 gilas abajo por si alcanzo ingresan nuevos 

                      productos y le das un nombre a esa seleccion dale el nombre de producto

     

    tercero: En la hoja dos nombrala captura y digita los siguientes datos en las siguientes celdas

               celda             digitar

                 b3               producto

                 b4               tipo movimiento

                 b5               fecha

                 b6               hora

                 b9               =c3

                 c9               =c4

                 d9               =c5 dar formato de fecha

                 e9               =c6 dar formato de hora

                 c3               en esta celda dar clic en datos/validacion seleccionar lista y en origen

                                    oprimir <f3> y seleccionar producto y despues aceptar

                 c4               en esta celda dar clic en datos/validacion seleccionar lista y en origen

                                    digitar entrada,salida y despues aceptar

                 c5               =si(c3=0;"";ahora()) y dar formato de fecha

                 c6              =si(c3=0;"";ahora()) y dar formato de hora

    seleccione toda la hoja y protejala con las dos opciones

    seleccione desde c3 hasta c4 y en formato desproteja las celdas en sus dos opciones

    cree un boton y dele el nombre de ingeso

    cree una nueva hoja y nombrela como datos

    digite los siguientes titulos en la primera fila producto, movimiento, fecha, hora

    en la celda iv1 digite la siguine formula =contara(a:a)+1

    regrese a la hoja de captura

    ahora entre al editor de visual basic oprima <alt><F11>

    y copie esta instruccion

    Sub copia()
        Sheets("captura").Select
        r = Range("b9").Value
        S = Range("c9").Value
        If r = 0 Then
        MsgBox ("SELECCIONE EL PRODUCTO")
        Else
        If S = 0 Then
        MsgBox ("SELECCIONE EL TIPO MOVIMIENTO")
        Else
        Range("B9:e9").Select
        Selection.Copy
        Sheets("datos").Visible = True
        Sheets("datos").Select
        Range("A2").Select
        num = Range("iv1").Value
        Cells(num, 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("A2").Select
        Sheets("captura").Select
        Sheets("datos").Visible = False
        Range("C3:C4").Select
        Selection.ClearContents
        Range("B8").Select
        ActiveWorkbook.Save
        End If
        End If
    End Sub

     

    Cierre el editor y oprima clic derecho sobre el boton y asigne esta macro

    por ultimo proteja la hoja y cada vez que vaya a ejecutar esta amcro debe tener protegida la hoja

     

    espero que esta instrucción le sirva de algo

     

    cualquier cosa favor comunicarse a mi correo es efrain_melgarejo_01@hotmail.com

     

    buena suerte

    viernes, 04 de mayo de 2007 4:38
  • ¿sabías que con la combinación de teclas [Ctrl] [ ; ] (o [Ctrl] [ , ] según la configuración) escribe la fecha del sistema en la celda activa, y que la combinación [Ctrl] [ : ] escribe la hora actual en la celda activa?

    A lo mejor con esto evitas tener que crear ninguna macro.

     

    Este truco lo he encontrado aquí http://www.necesitomas.com/index.php?q=node/29

    viernes, 11 de mayo de 2007 20:58