creare sequenza di date

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
marcorossini
00mercoledì 17 febbraio 2016 17:31
buongiorno a tutti avrei una richeista da fare

in un foglio excel ho un foglio chiamato DB

e nella cella A2 ho una data.

vorrei con una macro fare in modo che dalla cella A2 alla cella A260 si copi la data della cella A2 incrementando il mese ad ogni cella.

esempio:
cella A2= 12/11/2016
cella A3= 12/12/2016
cella Aa= 12/01/2017

etc
etc

vi ringrazio anticipatamente
rollis13
00mercoledì 17 febbraio 2016 17:52
Digita le prime due celle (A2 e A3), selezionale entrambe e trascina giù, Excel capisce che la differenza è il solo mese e si regola di conseguenza anziché fare giorno per giorno come quando selezioni e trascini solo la prima cella.

Oopss, volevi una macro ... come non detto.
raffaele1953
00mercoledì 17 febbraio 2016 22:21
Da provare
Sub data()
Dim X, DData  As Date
DData = Cells(2, 1)
For X = 3 To 260
    Cells(X, 1) = DateSerial(Year(DData), Month(DData) + 1, Day(DData))
    DData = Cells(X, 1)
Next X
End Sub
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 05:51.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com