calendario in colonna A

[giorgioa]

Salve a tutti,
sto cercando come ottenere un calendario
da poterlo scrivere in colonna a magari anche con
una formula.
Partendo dal 2015 che mi segnali il giorno della settimana, il giorno, il mese, l'anno

ho dato una occhiata ai vari post ma c'è di mezzo lo userm

Grazie a chi mi aiuta e un saluto anche a chi non mi aiuta

[Marius44]

Ciao
Sai che non ho capito
Cosa vuol dire ottenere un calendario da poterlo scrivere in colonna?
Ti spiace spiegare meglio, magari aggiungendo un tuo esempio (anche fatto a mano).

Ciao,
Mario

[giorgioa]

certo Marius
espongo: lunedi 1 gennaio 2018 il concetto
però invece di avere lunedi 1 gennaio 2018, martedi 2 gennaio 2018, mercoledi 3 gennaio 2018
vorrei che saltasse i lunedi, mercoledi, venerdi, domenica
e aver martedi 2 gennaio 2018, in A1 , giovedi 4 gennaio 2018 in A2 eccetera

[giorgioa]

Marius

ma non è chiaro quanto spiegato?



anche una macro mi starebbe benissimo

[Marius44]

Ciao
Prova così:
In un Foglio nuovo inserisci in:
cella B1 = "Inizio"
cella B2 = "n° giorni"
in C1 inserirai la data iniziale in qualsiasi formato
in C2 inserirai il numero di giorni che vuoi
formatta la colonna A come Data(gggg gg/mmmm/aaaa
Quindi in un Modulo standard inserisci questo codice (che assegnerai ad un pulsante non ActiveX)

Codice: Seleziona tutto

Option Explicit

Sub calend()
Dim ini As Date, ng As Integer, aa As Integer
Dim i As Long, ur As Long
ini = Cells(1, 3).Value
ng = Cells(2, 3).Value
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A4:A" & ur).ClearContents
'saltare lunedi, mercoledi, venerdi, domenica
For i = 4 To ng + 4
    aa = Weekday(ini)
    Select Case aa
    Case 1 'domenica
        ini = ini + 2
    Case 2, 4, 6 'lunedi,mercoledi,venerdi
        ini = ini + 1
    End Select
    Cells(i, 1) = ini
    ini = ini + 1
Next i
End Sub


Prova e fai sapere. Ciao,
Mario

[Anthony47]

Approfittando del lavoro di Mario propongo una ipotesi con formula:
-in A2 segni la data iniziale
-im A3 inserisci la formula

Codice: Seleziona tutto

=A2+CERCA.VERT(GIORNO.SETTIMANA(A2);{1\2.2\1.3\2.4\1.5\2.6\1.7\3};2;0)

Copia poi la formula verso il basso

Infine selezioni colonna A e formatti come piace a te; se ho capito bene: selezioni la colonna; avvii la formattazione celle; scegli Categoria = Personalizzato, e Tipo = gg-mmm-aa ggg

Ciao a tuttti