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.

Hola atod@s. Hasta ayer la consulta que hacia a Cotizaciones y Precios de las Acciones en bolsa - Investing.com me funcionaba correctamente, pero hoy ha dejado do hacerlo. Se trata de importar las cotizaciones del IBEX35. antes la tabla 0 tenía al menos cinco columnas. Ahora solo me salen dos columnas y con los datos aglomerados. ¿Podríais mandarme una hoja con los datos correctos y que estos se actualicen cada 1 min.? He probado durante horas y leido tutoriales. Pero sigo sin aclararme. Muchas gracias por su atención.