calcolare tempoparziale



  • calcolare tempoparziale
    di fornafe (utente non iscritto) data: 29/02/2016 12:09:10

    ciao a tutti, mi serve una mano

    ho un file excel in cui è presente questa formula che mi da il tempo che manca alla scadenza di una data precisa

    =SE((ADESSO()-AW139)>0;"Scaduto";STRINGA.ESTRAI(AW139-(ADESSO());1;RICERCA(",";AW139-ADESSO();1)-1) & " GIORN(i/o) " &CODICE.CARATT(10)& ORA(AW139-ADESSO()) &":"& MINUTO(AW139-ADESSO())&":"& SECONDO(AW139-ADESSO()))

    questa formula raguiona sull'intero giorno, io avrei bisogno di affinarla affinchè contasse solo il perimetro di tempo dal luned' al venerdì dalle 8.30 alle 17.30, e se non chiedo troppo che non conti nemmeno le festività

    grazie in anticipo per l'aiuto che mi darete


  • Modificare un codice di collegamento
    di miltos data: 29/02/2016 12:11:33

    Salve a tutti e ben trovati!
    Vorrei fare una modifica al codice sottostante cosicche' il collegamento (link) che si trova nelle celle della colonna M, punti alle celle della colonna H invece che alla K.
    Un aiuto?

    Grazie!
     
    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 13 Then Exit Sub
    Dim rngFound As Range
        With Worksheets("Respons.").Columns(3) 'Guarda in quale colonna cercare
            Set rngFound = .Find(Target(1, -1).Value, LookIn:=xlValues, LookAt:=xlWhole, After:=.Cells(1), Searchdirection:=xlNext)
            If Not rngFound Is Nothing Then
                Application.Goto rngFound(1, Target.Value + 1)
            Else
                MsgBox "There were not matches found for " & Target(1, -1).Value
            End If
        End With
    Cancel = True
    End Sub