Una macro come questa ti permettera', data una data iniziale e un numero N (di mesi) di compilare N celle sotto la data iniziale (in aggiunta alla data iniziale):
- Codice: Seleziona tutto
Sub ListMesi()
Dim Idata As String, nMesi As String, I As Long
'
Idata = "A2" '<<< La cella con la data iniziale, in formato "data excel"
nMesi = "B1" '<<< La cella con il numero di mesi da predisporre
'
For I = 1 To Range("B1").Value
Range(Idata).Offset(I, 0).Value = DateSerial(Year(Range(Idata)), Month(Range(Idata)) + I, 1)
Next I
Range(Idata).Copy
Range(Idata).Resize(I, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range(Idata).Select
End Sub
Da excel: Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx.
Personalizza le istruzioni marcate <<<.
Eventualmente crea un pulsante (trovi questa forma nella barra degli strumenti Moduli) e assegnagli la macro " ListMesi " (ti verra' fatta una domanda specifica nel ciclo di creazione del pulsante).
In questo modo potrai eseguire la macro al semplice click sul pulsante.
Ciao