Print Page | Close Window

[RISOLTO] Automatismo in base ad anno

Printed From: IALweb
Category: MS Office
Forum Name: Microsoft Excel
Forum Discription: Tutto sui fogli di calcolo e l'automazione d'ufficio
URL: https://forum.ialweb.it/forum_posts.asp?TID=16467568
Printed Date: 16/Giu/2019 at 17:43
Software Version: Web Wiz Forums 10.17 - http://www.webwizforums.com


Topic: [RISOLTO] Automatismo in base ad anno
Posted By: il_betto
Subject: [RISOLTO] Automatismo in base ad anno
Date Posted: 13/Mar/2019 at 11:17
Ciao a Tutti,

ho il seguente file excel  uploads/19358/test_Censimento.rar" rel="nofollow - uploads/19358/test_Censimento.rar

in cui aggiungo durante l' anno nuovi utenti;
per ogni riga creata, in base ad ogni nuovo collega che viene assunto nel nostro servizio,
vi è una macro che calcola in automatico l' età e l' esperienza in azienda in base alla data di nascita e di assunzione che scrivo.

Fin qui tutto OK !!

Il problema nasce all' inizio di ogni nuovo anno.
Tutti i dipendenti che figurano già nel file NON hanno l' aggiornamento automatico nè dell' età nè dell' esperienza lavorativa in quanto già presenti nel Foglio.

Pertanto dovrei, riga x riga, dare un invio su ogni nominativo per far sì che avvengano gli aggiornamenti dei presenti.

Nel file riportato ho fatto un esempio semplificato: in realtà gli utenti sono tanti e non è possibile fare riga x riga.

Ci può essere un qualche automatismo intelligente per risolvere il problema ?

Grazie mille in anticipo !!!



Replies:
Posted By: dodo47
Date Posted: 13/Mar/2019 at 12:21
Ciao
potresti utilizzare l'evento Open del documento che ricalcola tutte le età.

Quindi creare una macro quasi uguale a quella che hai, inserendo un loop per ciascuna riga della tabella.

Saluti


-------------
domenico
win 10- office 2016


Posted By: il_betto
Date Posted: 13/Mar/2019 at 15:22

Ciao dodo, grazie mille, provo e poi ti dico ...


Posted By: il_betto
Date Posted: 03/Apr/2019 at 15:28
Allego il file che ho fatto e che funziona !!

uploads/19358/test_Censimento4.rar" rel="nofollow - uploads/19358/test_Censimento4.rar

Penso di non essere stato ridondante nel codice ....


Posted By: dodo47
Date Posted: 03/Apr/2019 at 16:02
Se hai 1 solo foglio si, ma se ne hai di più e il documento viene salvato stando su un altro foglio diverso da "Personale"...no.

(hai eliminato la colorazione in base all'età?)

saluti


-------------
domenico
win 10- office 2016


Posted By: il_betto
Date Posted: 03/Apr/2019 at 16:18
Certo dodo, in questi gg consultandomi con le colleghe abbiamo deciso di semplificare togliendo la colorazione dell' età (si è preso spunto da ciò che sta succedendo in politica con età pensionabile diversa dai 67 anni)

Hai ragione, hai notato che salvando su un altro foglio, l' aggiornamento sul foglio "Personale" non avviene, non me me ero accorto ...

Ho provato allora a far così:

Sub Workbook_Open()

   Dim CEns As Long, CNomi As Long, CPos As Long, CStud As Long
   CEns = Application.Match("Ruolo Census", Sheets("Personale").Rows(1), 0)
   CNomi = Application.Match("Nominativo", Sheets("Personale").Rows(1), 0)
   CPos = Application.Match("Posizione", Sheets("Personale").Rows(1), 0)
   CStud = Application.Match("Titolo di studio", Sheets("Personale").Rows(1), 0)
   
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   
   
   ' impongo lo Zoom al 100% di default
   Dim ws As Worksheet
   Dim lCol As Long, lRow As Long
   Dim cel As Range, rng As Range
   For Each ws In Worksheets
       ws.Select
       ActiveWindow.Zoom = 100
   Next ws
   
  
   ' impongo che all' apertura del file, il 1° foglio attivo sia "Personale"

   Application.GoTo Sheets("Personale").[A1]
   Call Update_age_experience
   
   ' impongo l' allineamento a colonne con intestazione specifica
   ' formatto 1° riga: Calibri 14 Bold / bordo medio di ogni cella / background giallo
   ' formatto il resto del foglio fino all' ultima riga e colonna con valori: Calibri 12
   With Sheets("Personale")


pare che così funzioni ...



Posted By: dodo47
Date Posted: 03/Apr/2019 at 17:36
ok....

-------------
domenico
win 10- office 2016


Posted By: il_betto
Date Posted: 03/Apr/2019 at 17:44
Grazie come sempre x l' aiuto !!! Clap  Smile



Print Page | Close Window

Forum Software by Web Wiz Forums® version 10.17 - http://www.webwizforums.com
Copyright ©2001-2013 Web Wiz Ltd. - http://www.webwiz.co.uk