You are here:---Rispondi a: [RISOLTO] Calcolare giorni in un mese
Rispondi a: [RISOLTO] Calcolare giorni in un mese 2018-07-01T04:06:14+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Calcolare giorni in un mese Rispondi a: [RISOLTO] Calcolare giorni in un mese

federico460
Partecipante
    Post totali: 23

    ciao

    usa questa macro la devi lanciare con un pulsantino ogni foglio

    legge la data in A10  perciò è obbligatorio scrivere sulla cella

    A10….=A4

    Sub calendario()
    Dim Sh As Worksheet
    Dim DA As Long
    Set Sh = ThisWorkbook.ActiveSheet

    Range(“A11:A50”).ClearContents

    For DA = 10 To 8 + Day(DateSerial(Year(Cells(4, 1)), Month(Cells(4, 1)) + 1, 0))
    Range(“A” & DA + 1).Value = DateAdd(“d”, 1, Range(“A” & DA).Value)
    Next DA
    End Sub

     

    • Questa risposta è stata modificata 5 mesi, 1 settimana fa da  federico460.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi