Pedro Alonso

Hola EXCELENTES. Heredé este código. Yo no tengo NI IDEA de programación. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errorfecha If Not Intersect(Target, Range("A1830")) Is Nothing Then If Range("A1830").Value <> "" Then If Application.WorksheetFunction.Weekday(Range("A1830").Value, 2) >= 6 Then On Error GoTo 0 MsgBox "No puede ser sábado o domingo", vbCritical Range("A1830").EntireRow.Delete Range("A1830").Select ElseIf (Range("A1830").Value < Date - 7 Or Range("A1830").Value > Date + 3) Then MsgBox "No puede superar los siete días", vbCritical Range("A1830").EntireRow.Delete Range("A1830").Select Else If Not Intersect(Target, Rows("1830:1830")) Is Nothing Then Rows("3:3").EntireRow.Delete Target.Offset(0, 1).Select End If End If End If End If Exit Sub errorfecha: Range("A1830").ClearContents End Sub ¿Pero que quito para que no proteste por los Sábados y Domingos?. Muchas gracias y SALU2.

Hola Israel. Veo mi hoja de cálculo de la forma deseada (zoom deseado), pero.... ¿Como hago para que ni por error y/o accidente se modifique el zoom de la vista?. Podríase incluso una macro de VBA. Espero ahora se me entienda. Salu2.

Hola. Veo mi hoja de la forma deseada, pero.... ¿Como hago para que ni por accidente se modifique la vista?. Salu2,

Tengo en A1 el resultado de una suma de horas con el formato [h]:mm La cifra es grande 4.000 y pico dias. ¿Como lo paso a años:meses:dias:horas:minutos? Lo he intentado de mil maneras, y con mis escasos conocimientos no lo consigo. Muchísimas gracias de antemano.