Saltar al contenido

Máximos colaboradores

Popular Content

Showing content with the highest reputation on 01/20/11 in Mensajes

  1. Dias habiles

    2 points
    Hola compañeros Aunque el tema está ya muy tocado, acompaño un archivo por si aporto algo que resulte útil. En él se recogen dos soluciones en función de que los sábados se consideren hábiles o inhábiles. Saludos EDITO: He suprimido en el encabezamiento de la columna K el texto: "hasta 31 de marzo" DÍAS HÁBILES. Más completo.zip

  2. Una de relojes

    1 point
    Hola: Esta macro, coloca un reloj en A1, para arrancarlo, ejecutar la macro, y para pararlo, rellenar A1 con el color rojo. Sub RELOJ() On Error Resume Next If ActiveSheet.Cells(1, 1).Interior.Color = vbRed Then Application.OnTime Hora, "RELOJ", SCHEDULE:=False Else ActiveSheet.Cells(1, 1) = Now Hora = Now + TimeValue("00:00:01") Application.OnTime Hora, "RELOJ", SCHEDULE:=True End If End Sub [/CODE] Saludos.