Visualizza messaggio singolo
Vecchio 07-03-2017, 18.48.13   #3
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Rienpire Label con dati Vari usando una sola Textbox e il suo VBA

Proviamo ...... a me sembra che Maurizio voglia vedere il giorno della settimana delle varie festività variando l'anno.

Per quanto riguarda il foglio basta solo una cella in cui inserire l'anno (es. D1) e nelle celle corrispondenti alla festività inserire una formula del genere
=DATA(D1;1;1) che corrisponde a capodanno.
considerando che tutte le festività sono fisse come giorno dell'anno, basta solo variare i 2 valori della formula (es. =DATA(D1;8;15)) corrisponde a ferragosto (valore 8 = agosto e valore 15 = giorno)
L'unica festività che varia è solo la pasqua che con un'opportuna formula si può ricavare es. =ARROTONDA(DATA(D1;4;RESTO(234-11*RESTO(D1;19);30))/7*7-6
sempre con l'anno in D1, di questo caso mai ne parliamo dopo.

se la pasqua la mettiamo in A6 e pasquetta in A7 per aggiornare pasquetta basta la formula =somma (A6+1)

ora sembra che Maurizio voglia fare la stessa cosa usando una form, ma il concetto non si discorda di molto, infatti basta sostituire il "lavoro" che svolge la cella D1 del foglio con un textbox in cui si andrà a scrivere l'anno.
Può essere anche un combo che prepariamo caricato con gli anni dal 1900 al 3000 e nell'evento change andiamo ad aggiornare la cella D1.

fatto questo basta richiamare il valore delle altre celle del foglio nel textbox appropriato (Textbo1.value = cells ............ ) e aggiorni tutti i campi

poi non so se ho interpretato nel modo giusto, la vicenda mi sembra alquanto intricata.
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando