Ciao a tutti,mi rivolgo a Voi Maghi di excel e in particolare ad a10n11 che tempo fà(nel 2005)mi aiutò in una macro che calcolava,in automatico i turni di riposo di tutto un anno con la cadenza di un riposo ogni 5 giorni lavorativi ed il foglio era grossomodo strutturato così:Cella B1 data conosciuta del primo riposo:
celle A3:A367 calendario dell'anno (gg/mm/aa)
celle B3:B367 giorni della settimana (ggg)
celle C3:C367 dove si colloca la dicitura "Riposo",ora vorrei mettere per es.celle A3:A33 il mese di gennaio,B3:B33 i gg settimana,C3:C33 il Riposo,e così via D3:D33 mese di Febbraio,E3:E33 i gg e così via,un pò lungo lo so ma spero,come sempre in un vostro miracoloso suggerimento.Grazie antecipate dalex

salve
con una tabella strutturata come nell'immagine:
<img src="http://img80.imageshack.us/img80/2193/imgzh6.jpg" border=0>


prova questa:

Sub calcola_In_Colonna()
Dim x As Date, costante As Integer
Application.ScreenUpdating = False
x = Range("b1")
costante = 6
SMP = 0
SM = 1
For N = 1 To 12
Cells(3, N + SM).Select
Set area = Range(Cells(3, N + SMP), Cells(3, N + SMP).End(xlDown))
Columns(N + SMP + 2).ClearContents
For Each Cl In area
If Cl = x Then
Cl.Offset(0, 2).Select
ActiveCell = "riposo"
Exit For
End If
Next
Do
If ActiveCell.Offset(costante, -1) = "" Then Exit Do
ActiveCell.Offset(costante, 0).Select
ActiveCell = "riposo"
Loop
x = CDate(ActiveCell.Offset(0, -2).Value + 6)
Set area = Nothing
SM = SM + 3
SMP = SMP + 2
Next N
Application.ScreenUpdating = True
Range("A1").Select
End Sub
saluti
Andrea

---

Come volevasi dimostrare:neanche un'ora è passata e ti chiedo di nuovo help!Riordinando per benino il foglio che andrà a completare tutto un lavoro,nella tabella che mi hai descritto mi è venuto in mente di dover inserire le festività in automatico,cioè formattare di rosso le celle della data e del giorno della settimana delle festività...ho provato a fare una tabella con le festività a parte ed a usare la formattazione condizionale applicando la funzione =confronta ....ma senza successo decisamente sbagliato ci sono vicino o sono in altomare??Come sempre grazie antecipate.dalex

Grazie Andrea tutto ok e come sempre grazie di cuore dell'interesse,io se ci sono andato vicino è grazie a voi tutti che mettete la vostra esperienza(e pazienza) sotto forma di aiuti e consigli in queste pagine e chi come me ne fa tesoro e impara giorno dopo giorno,sentendosi sempre di più un vostro amico.Io ritengo che quando nel 2002 mi sono iscritto per la prima volta a questo forum sia una delle cose più giuste fatte nella vita.....ancora grazie di cuore.dalex

ciao :O)

se usi office …. sicuramente l'errore é dato da impostazioni che sono , … per dire …. migliorate nel 2016 plus

personalmente

per tagliare la testa al toro e non diventare matto

salva la pagina che utilizzavi sempre ( usando la bandiera )
non in Excel .xlsx ( di default )
ma bensì in …. cartella in Excel 97 - 2003 .xls

( trucco - quando salvi usa sempre la visualizzazione originale … verticale oppure orizzontale altrimenti sfalsi sul fuori pagina )

ciao ed alla prossima :O)

---

parlo di salvare una pagina

---