Da oggi a sabato

Hai un problema con Excel?

Nuova discussione

Da oggi a sabato
di TOTI (utente non iscritto) data: 10/08/2017 10:27:06
Buongiorno. In una cella ho la formula =OGGI ().
Mi servirebbe la formula da mettere nella cella L9 che
mi indichi il primo sabato successivo. Faccio un esempio:
B2 =OGGI () 10/08/2017
L9 12/08/2017
Grazie in anticipo

di alfrimpa data: 10/08/2017 10:45:42
Ciao Toti

Con le formule di Excel non saprei farlo (mi trovo meglio con il VBA).

Inserisci la function che vedi sotto in un modulo standard nell'editor di VBA e sul foglio in L9 scrivi

=TrovaSabato(B2)

ovviamente formattando L9 come data.

Alfredo

Function TrovaSabato(a)
Dim i As Integer
For i = 1 To 7
    a = a + 1
    If Application.WorksheetFunction.Weekday(a) = 7 Then
        TrovaSabato = a
        Exit Function
    End If
Next i
End Function

di TOTI (utente non iscritto) data: 10/08/2017 11:07:05
Grazie per la risposta però io lavoro su un computer aziendale nel quale le macro sono disabilitate. Perciò avevo chiesto la formula.
di Gianfranco data: 10/08/2017 11:12:23
ciao

=INT((B2+7)/7)*7

ecco la formula
di TOTI (utente non iscritto) data: 10/08/2017 11:17:01
Ok, perfetto. Funziona. Grazie mille
di Gianfranco data: 10/08/2017 11:22:57
salutoni a te e ad AL
di alfrimpa data: 10/08/2017 11:24:27
Gianfranco lo sai che la VBAite mi perseguita

Un caro saluto.

Alfredo

di Vecchio Frac data: 10/08/2017 11:35:31
Ciao a tutti,
per Alfri ^_^

Public Function next_saturday(n As Date) As Date
    next_saturday = FormatDateTime(n + (7 - Weekday(n)), vbShortDate)
End Function

Vuoi Approfondire?