miércoles, 27 de diciembre de 2023

M

 Aquí está la macro en VBA para realizar las operaciones descritas en Excel:


```vba

Sub OperacionesConRangos()

    Dim i As Integer

    

    For i = 5 To 28

        ' Restar 1 hora 46 minutos a Di y colocar el resultado en Ci

        Range("C" & i).Value = Range("D" & i).Value - TimeValue("01:46:00")


        ' Sumar 1 hora 46 minutos a Di y colocar el resultado en Ei

        Range("E" & i).Value = Range("D" & i).Value + TimeValue("01:46:00")


        ' Sumar 3 horas 32 minutos a Di y colocar el resultado en Fi

        Range("F" & i).Value = Range("D" & i).Value + TimeValue("03:32:00")


        ' Sumar 5 horas 18 minutos a Di y colocar el resultado en Gi

        Range("G" & i).Value = Range("D" & i).Value + TimeValue("05:18:00")


        ' Sumar 8 horas 48 minutos a Di y colocar el resultado en Hi

        Range("H" & i).Value = Range("D" & i).Value + TimeValue("08:48:00")


        ' Sumar 10 horas 34 minutos a Di y colocar el resultado en Ii

        Range("I" & i).Value = Range("D" & i).Value + TimeValue("10:34:00")


        ' Sumar 12 horas 20 minutos a Di y colocar el resultado en Ji

        Range("J" & i).Value = Range("D" & i).Value + TimeValue("12:20:00")

    Next i

End Sub

```


Este código realiza las operaciones especificadas para las celdas desde la fila 5 hasta la fila 28. Puedes agregar esta macro a tu archivo de Excel siguiendo los pasos mencionados en respuestas anteriores y luego ejecutarla para realizar las operaciones en los rangos de celdas específicos.

2xl

 Aquí tienes una macro en VBA para realizar las operaciones descritas en Excel:


```vba

Sub OperacionesConRangos()

    Dim i As Integer

    

    For i = 5 To 28

        ' Restar 2 horas 12 minutos a Di y colocar el resultado en Ci

        Range("C" & i).Value = Range("D" & i).Value - TimeValue("02:12:00")


        ' Sumar 2 horas 12 minutos a Di y colocar el resultado en Ei

        Range("E" & i).Value = Range("D" & i).Value + TimeValue("02:12:00")


        ' Sumar 4 horas 24 minutos a Di y colocar el resultado en Fi

        Range("F" & i).Value = Range("D" & i).Value + TimeValue("04:24:00")


        ' Sumar 6 horas 36 minutos a Di y colocar el resultado en Gi

        Range("G" & i).Value = Range("D" & i).Value + TimeValue("06:36:00")


        ' Sumar 8 horas 48 minutos a Di y colocar el resultado en Hi

        Range("H" & i).Value = Range("D" & i).Value + TimeValue("08:48:00")


        ' Sumar 11 horas 00 minutos a Di y colocar el resultado en Ii

        Range("I" & i).Value = Range("D" & i).Value + TimeValue("11:00:00")


        ' Sumar 13 horas 12 minutos a Di y colocar el resultado en Ji

        Range("J" & i).Value = Range("D" & i).Value + TimeValue("13:12:00")

    Next i

End Sub

```


Este código realiza las operaciones especificadas para las celdas desde la fila 5 hasta la fila 28. Puedes agregar esta macro a tu archivo de Excel siguiendo los pasos mencionados en respuestas anteriores y luego ejecutarla para realizar las operaciones en los rangos de celdas específicos.

XL

 Aquí tienes una macro en VBA para realizar las operaciones descritas en Excel:


```vba

Sub OperacionesConRangos()

    Dim i As Integer

    

    For i = 5 To 28

        ' Restar 2 horas 5 minutos a Di y colocar el resultado en Ci

        Range("C" & i).Value = Range("D" & i).Value - TimeValue("02:05:00")


        ' Sumar 2 horas 5 minutos a Di y colocar el resultado en Ei

        Range("E" & i).Value = Range("D" & i).Value + TimeValue("02:05:00")


        ' Sumar 4 horas 10 minutos a Di y colocar el resultado en Fi

        Range("F" & i).Value = Range("D" & i).Value + TimeValue("04:10:00")


        ' Sumar 6 horas 15 minutos a Di y colocar el resultado en Gi

        Range("G" & i).Value = Range("D" & i).Value + TimeValue("06:15:00")


        ' Sumar 8 horas 20 minutos a Di y colocar el resultado en Hi

        Range("H" & i).Value = Range("D" & i).Value + TimeValue("08:20:00")


        ' Sumar 10 horas 25 minutos a Di y colocar el resultado en Ii

        Range("I" & i).Value = Range("D" & i).Value + TimeValue("10:25:00")


        ' Sumar 12 horas 30 minutos a Di y colocar el resultado en Ji

        Range("J" & i).Value = Range("D" & i).Value + TimeValue("12:30:00")

    Next i

End Sub

```


Este código realiza las operaciones especificadas para las celdas desde la fila 5 hasta la fila 28. Puedes agregar esta macro a tu archivo de Excel siguiendo los pasos mencionados en respuestas anteriores y luego ejecutarla para realizar las operaciones en los rangos de celdas específicos.

Text

 Puedes utilizar la siguiente macro en VBA para realizar las operaciones que has descrito en Excel:


```vba

Sub OperacionesConRangos()

    Dim i As Integer

    

    For i = 5 To 28

        ' Restar 1 hora 55 minutos a Di y colocar el resultado en Ci

        Range("C" & i).Value = Range("D" & i).Value - TimeValue("01:55:00")


        ' Sumar 1 hora 55 minutos a Di y colocar el resultado en Ei

        Range("E" & i).Value = Range("D" & i).Value + TimeValue("01:55:00")


        ' Sumar 3 horas 55 minutos a Di y colocar el resultado en Fi

        Range("F" & i).Value = Range("D" & i).Value + TimeValue("03:55:00")


        ' Sumar 5 horas 55 minutos a Di y colocar el resultado en Gi

        Range("G" & i).Value = Range("D" & i).Value + TimeValue("05:55:00")


        ' Sumar 7 horas 40 minutos a Di y colocar el resultado en Hi

        Range("H" & i).Value = Range("D" & i).Value + TimeValue("07:40:00")


        ' Sumar 9 horas 35 minutos a Di y colocar el resultado en Ii

        Range("I" & i).Value = Range("D" & i).Value + TimeValue("09:35:00")


        ' Sumar 11 horas 30 minutos a Di y colocar el resultado en Ji

        Range("J" & i).Value = Range("D" & i).Value + TimeValue("11:30:00")

    Next i

End Sub

```


Este código realiza las operaciones especificadas para las celdas desde la fila 5 hasta la fila 28. Para agregar esta macro a tu archivo de Excel, sigue los pasos previamente mencionados en las respuestas anteriores. Después, ejecuta la macro para realizar las operaciones descritas en los rangos de celdas específicos.

Macro

 Puedes utilizar la siguiente macro en VBA para realizar las operaciones que has descrito en Excel:


```vba

Sub OperacionesConHoras()

    ' Restar 1 hora 55 minutos a D5 y colocar el resultado en C5

    Range("C5").Value = Range("D5").Value - TimeValue("01:55:00")


    ' Sumar 1 hora 55 minutos a D5 y colocar el resultado en E5

    Range("E5").Value = Range("D5").Value + TimeValue("01:55:00")


    ' Sumar 3 horas 55 minutos a D5 y colocar el resultado en F5

    Range("F5").Value = Range("D5").Value + TimeValue("03:55:00")


    ' Sumar 5 horas 55 minutos a D5 y colocar el resultado en G5

    Range("G5").Value = Range("D5").Value + TimeValue("05:55:00")


    ' Sumar 7 horas 40 minutos a D5 y colocar el resultado en H5

    Range("H5").Value = Range("D5").Value + TimeValue("07:40:00")


    ' Sumar 9 horas 35 minutos a D5 y colocar el resultado en I5

    Range("I5").Value = Range("D5").Value + TimeValue("09:35:00")


    ' Sumar 11 horas 30 minutos a D5 y colocar el resultado en J5

    Range("J5").Value = Range("D5").Value + TimeValue("11:30:00")

End Sub

```


Para agregar esta macro a tu archivo de Excel:


1. Presiona `Alt` + `F11` para abrir el Editor de VBA.

2. Inserta un nuevo módulo: `Insertar` -> `Módulo`.

3. Copia y pega el código en el módulo.

4. Cierra el Editor de VBA.


Luego, puedes ejecutar esta macro para realizar las operaciones descritas en las celdas especificadas.

Rest

 Sub RestarHoras()

    ' Restar 1 hora 55 minutos a C4 y colocar el resultado en C3

    Range("C3").Value = Range("C4").Value - TimeValue("01:55:00")

End Sub

martes, 19 de diciembre de 2023

Yvb

 Sub SumarHoras()

    ' Sumar 1 hora 55 minutos a D5 y colocar el resultado en E5

    Range("E5").Value = Range("D5").Value + TimeValue("01:55:00")

    

    ' Sumar 3 horas 55 minutos a D5 y colocar el resultado en F5

    Range("F5").Value = Range("D5").Value + TimeValue("03:55:00")

    

    ' Sumar 5 horas 55 minutos a D5 y colocar el resultado en G5

    Range("G5").Value = Range("D5").Value + TimeValue("05:55:00")

    

    ' Sumar 7 horas 40 minutos a D5 y colocar el resultado en H5

    Range("H5").Value = Range("D5").Value + TimeValue("07:40:00")

End Sub