You are here:---Rispondi a: [RISOLTO] Calcolare giorni in un mese
Rispondi a: [RISOLTO] Calcolare giorni in un mese 2018-07-01T12:51:42+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

     

    nel foglio Riepilogo

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3")) Is Nothing Then
    Call macro1
    End If
    End Sub

    in un modulo

    Sub macro1()
    
    Dim I As Integer
    For I = 2 To Sheets.Count
     Worksheets(I).Activate
      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
    Next I
    
    Sheets("Riepilogo").Select
    End Sub

    se cambi l’anno nel foglio riepilogo
    si aggiorna

    ti allego il file

    https://www.dropbox.com/s/34spoyopg5b69i3/fogli%20mese%20%20automatici.xlsm?dl=0

    • Questa risposta è stata modificata 5 mesi, 2 settimane fa da  federico460.
    • Questa risposta è stata modificata 5 mesi, 2 settimane 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