| | Post: 26 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
  04/03/2018 19:31 | |
Buona sera Giuseppe e grazie per la tua disponibilità.
Non ho alcun problema a postarti il file completo che allego, pertanto, a questo messaggio ringraziandoti fin d'ora per il tempo speso.
Saluti, |
|
| | Post: 3.222 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 04/03/2018 21:34 | |
Ciao GiuseppeMN
Forse, qualcosa non "mi funziona" sul mio PC (Skype=poa***pe).
Ho provato chiamarti, mà non mi rispondi mai? Vorrei parlare con Te? Se possibile? [Modificato da raffaele1953 04/03/2018 22:39] Excel 2013 |
| | Post: 2.739 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 05/03/2018 00:07 | |
Buona sera, Raffaele; in effetti ho qualche problema a collegarmi con Skype, vedo di riavviare il Computer e riprovo a collegarmi e a chiamarti, lasciami solo 10 minuti. Visto che ho fatto un lavoro impegnativo per @alile. consentimi di rispondere anche a @alile. ============================================================================================== Buona sera, Aliele; provo ad allegare il File che ho elaboarato. Mi sembra che i soli Fogli di lavoro che contengono dei dati significativi sono: - MFR 1 - MFR 30 - MFR 31 gli altri Fogli di lavoro "MFR" non hanno dati significativi. L'unica cosa che mi sono permesso di proporti nel Foglio di lavoro "Personale" è di non evidenziare tutti gli 0 (Zero); questo, a mio parere, facilita la visualizza dei Dati significativi. Contestualmente ti consiglierei d valutare la possibilità di avere nel Campo "Addetti" (Colonna "B") dei Fogli di lavoro "MFR" una Convalida dati per la scelta dei vari Nominativi. Poi, ovviamente decidi Tu come meglio credi. A disposizione. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 2.741 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 05/03/2018 00:31 | |
Buona sera, Raffaele; ho dovuto ricaricare Skype. Ora possiamo collegarci. A presto. Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 27 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 05/03/2018 09:23 | |
Buon giorno Giuseppe e grazie di tutto.
A cosa serve la convalida? Che funzione svolge? Non conosco questo "comando". In ogni caso il foglio personale che serve ad effettuare un conteggio simile ma diverso è probabile che venga tolto perchè poi le ns. esigenze organizzative sono cambiate.
Vedo che il codice inserito sul foglio calcola pure i banchi 31 e 32 che, invece, devono essere esclusi dal conto.
Però non voglio che rifai tu tutto il lavoro vorrei provvedere io dietro tua spiegazione anche per un motivo che ti spiego e sul quale, purtroppo (e mi spiace per non averci pensato prima) ho riflettuto solo ora.
Capita, fortunatamente non spesso, che i banchi flat cambino quindi in questo momento non devono essere contati il 31 e 32 ma può essere che più in la nel tempo questi debbano contati per escluderne altri.
Devo essere nelle condizioni di poter essere autonoma.
Grazie e buona settimana a tutti.
|
| | Post: 2.743 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 05/03/2018 14:25 | |
Buona giornata, Aliele; cerco di risponderti ordinatamente. @alile., chiede:
A cosa serve la convalida? Che funzione svolge? Non conosco questo "comando".
La Funzione "Convalida dati" serve per inserire in modo pratico e veloce un Record scelto da un Menù a tendina. Nel nostro caso, inserito nelle Celle "B10 : B42", consete di inserire rapidamente il Nominativo di un Addetto. Nell'immagine in allegato ho cercato di rappresentare quanto sopra. @alile., scrive:
Vedo che il codice inserito sul foglio calcola pure i banchi 31 e 32 che, invece, devono essere esclusi dal conto.
Hai ragione, colpa di un Copia/Incolla improvvido. Nel Codice VBA "Analizza" l'istruzione: If w <> 31 And y <> 32 Then Tot = Tot + 2 andrebbe modificata in: If w <> 31 And w <> 32 Then Tot = Tot + 2 Fammi sapere se hai problemi; nel qual caso ti rimando il File corretto. A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 28 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 05/03/2018 18:44 | |
Salve Giuseppe,
la modifica voglio apportarla senz'altro io ma devi dirmi, cortesemente, come fare. Come detto se nel corso dell'anno viene cambiata la coppia di banchi devo sapere dove mettere mano. Grazie
La convalida è mooooolto interessante e non so se si può fare di più, nel senso è possibile inserire sui fogli MFR una colonna tra la B e la C nella quale venga visualizzato, una volta scelto il nome dell'addetto, la tipologia di contratto?
Tipo se scelgo Pippo mi visualizza FT se scelgo Paperino PT6h se scelgo Clarabella PT4h o anche PT4.
Sarebbe meraviglioso.
Rimango in attesa di tue interessanti news :-)
Grazie molte. |
| | Post: 2.744 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 05/03/2018 19:35 | |
Buna sera, Aiele; è lodevole che sia tu a voler modificare il Codice VBA. Provo a spiegarti come procedere, se hai problemi non rimane che una chiacchierata in Skype. Da qualunque parte del File Excel: - Alt+F11 - si dovrebbe aprire un Menù a tendina con l'elenco di tutti i Fogli di lavoro - alla fine dell'elenco dovresti trovare una Icona con indicato Moduli - dovresti trovare un unico Modulo che ho chiamato "Servizio" - nel caso in cui sotto l'cona non sia visualizzato alcun NomeModulo, premi sul simbolo + (più) - con doppio click su "Servizio" si apre il Codice VBA "Sub Analizza ()" - all'interno del Codice dovresti trovare l'istruzione: If w <> 31 And y <> 32 Then Tot = Tot + 2 modificala in: If w <> 31 And w <> 32 Then Tot = Tot + 2 - chiudi VBA con la classica "X" che trovi in alto a destra. - salva il File Dovrebbe essere tutto a posto. Per quanto concerne la tipologia di contratto mi chiedevo se non potresti visualizzarla in Colonna "A" oppure "E" che mi sembrano inutilizzate; in questo modo eviteresti di modificare la struttura del Foglio di lavoro che, fra le altre cose, comporterebbe una modifica al Codice VBA. In questo modo, ponendo che la tipologia di contratto sia in Colonna "B" del Foglio di lavoro "Personale", con una Formula del tipo: CERCA.VERT($B10;Personale!$A$2:$B$50;2;0) potresti risolvere brillantemente. Fammi sapere come vuoi procedere. A disposizione. Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 29 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 05/03/2018 21:14 | |
Giuseppe con ALT+F11 si apre la parte relativa al VBA ma senza l'elenco dei fogli di lavoro.
Ti posto la foto di ciò che mi appare ed attendo ulteriormente come fare. Grazie ancora.
Per quanto riguarda l'utilizzo della colonna esistente per apportare quell'integrazione potremmo utilizzare la colonna A, ma ti chiedo, se con l'utilizzo "sul campo" del file ci fosse l'effettiva esigenza di inserire una colonna questa, dunque, guasterebbe tutto?
Saluti
|
| | Post: 2.746 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 06/03/2018 06:57 | |
Buona giornata, Aliele; nel caso in cui non ti compaia la struttura "Servizio", dovresti: - premere l'icona "Gestione progetti" oppure "CTRL+R" - nel caso in cui, dopo l'elenco di tutti i Fogli di lavoro, non compaia "Servizio", dovresti premere "+" posta a fianco di "Moduli" Nell'immagine in allegato ho cercato di indicarti come procedere. Aggiungere una Colonna non è mai una buona cosa; sicuramente andrebbe leggermente rivisto il Codice VBA. Non sarebbe un dramma, in ogni caso conviene cercare di definire la struttura del DataSet in modo definitivo. In ogni caso considera che se mi puoi confermare che la "Tipologia di contratto" sia il Codice inserito in Colonna "B" del Foglio di lavoro "Personale" potrei inviarti il File completo. A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 30 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/03/2018 13:56 | |
Giuseppe buon giorno,
questa volta ci sono riuscita. Inserimento codice effettuato! ;-)
Credo, però, che ci sia ancora qualcosa che non va.
Nei fogli MFR1-2 e 3 ho riportato degli esempi. (vedi allegato)
Il totale delle ore presente in MFR2 è 14 ma sul riepilogo MFR2 ne vengono fuori 8.
Come mai?
Per quanto riguarda l'altro discorso la colonna da sacrificare è la A. In questa potranno essere visualizzati i riferimenti contrattuali.
Tu mi dici, se non ho capito male, che vorresti l'elenco nominativo delle persone, cosa fattibilissima ma c'è sempre lo stesso interrogativo relativo alla modifica del codice VBA per i banchi la cui coppia di numeri potrebbe variare e cioè, se il personale si incrementa con delle nuove assunzioni come e dove devo inserire i nuovi nomi? Stessa cosa nel caso in cui il personale (stagionale ad esempio) a fine contratto va via ed i nominativi devono, pertanto, essere tolti.
Tell me something.
Grazie in anticipo. |
| | Post: 2.747 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 06/03/2018 17:41 | |
Buona sera, Aliele;
il Codice VBA che hai modificato è questo:
Option Explicit
Sub Analizza()
On Error GoTo 10
Application.ScreenUpdating = False
Dim x As Byte, Tot As Byte, y As Byte, w As Byte
Dim Fgl As String
Fgl = Cells(2, 2).Value
With Worksheets(Fgl)
For x = 6 To 78 Step 3
If .Cells(4, x).Value <> "" Then
If Len(.Cells(4, x)) = 2 Then
y = Left(.Cells(4, x), 2)
If y <> 31 And w <> 32 Then Tot = Tot + 2 'Questa istruzione non andava modificata
End If
If Len(.Cells(4, x)) = 5 Then
y = Left(.Cells(4, x), 2)
If y <> 31 And w <> 32 Then Tot = Tot + 2 'Questa istruzione non andava modificata
w = Right(.Cells(4, x), 2)
If w <> 31 And w <> 32 Then Tot = Tot + 2
End If
End If
Next x
End With
Cells(17, 4).Value = Tot
10:
Application.ScreenUpdating = True
End Sub
Mentre il Codice VBA corretto è questo:
Option Explicit
Sub Analizza()
On Error GoTo 10
Application.ScreenUpdating = False
Dim x As Byte, Tot As Byte, y As Byte, w As Byte
Dim Fgl As String
Fgl = Cells(2, 2).Value
With Worksheets(Fgl)
For x = 6 To 78 Step 3
If .Cells(4, x).Value <> "" Then
If Len(.Cells(4, x)) = 2 Then
y = Left(.Cells(4, x), 2)
If y <> 31 And y <> 32 Then Tot = Tot + 2
End If
If Len(.Cells(4, x)) = 5 Then
y = Left(.Cells(4, x), 2)
If y <> 31 And y <> 32 Then Tot = Tot + 2
w = Right(.Cells(4, x), 2)
If w <> 31 And w <> 32 Then Tot = Tot + 2
End If
End If
Next x
End With
Cells(17, 4).Value = Tot
10:
Application.ScreenUpdating = True
End Sub
Purtroppo hai modificato una istruzione in più; ho aggiunto una nota nelle due istruzioni che non andavano modificate.
Per quanto concerne i Nominativi e relativa "Tipologia di contratto" non influiscono minimamente sul Codice VBA.
L'elenco dei Nomitavi sarà dinamico; potrai aggiungere, togliere modificare l'elenco senza modificare la struttura della "Convalida dati".
Potrebbe sembrare complicato quando in realtà non lo è.
Quello che mi permetto di consigliarti è una chiacchierata in Skype con l'impegno formale di condividere gli eventuali sviluppi in Forum.
A disposizione.
Buon Lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3.229 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/03/2018 18:22 | |
Solo un'esempio di ciò che pensavo (snellire il files)
Quando lo apri, appare un' imputbox (premi annulla) e leggi bene il Rapporto compatibilità
Dopo o chiudi Excel o premi il bottone visibile
Clicca su un foglio e fai le prove che desideri.
Ho eliminato nei vari MFR le righe con errore
Casomai vuoi eliminare in Riepilogo le celle B10:E14, non mi eliminare i dati (stesse righe in colonne U/V/W)
Ps non l'ho controllato bene Excel 2013 |
| | Post: 31 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/03/2018 21:39 | |
Raffaele buona sera,
io il report compatibilità l'ho letto ma non c'ho capito nulla.
Io dal 15 marzo devo essere nelle condizioni di poter far utilizzare il foglio, purtroppo vi sto incontrando solo ora altrimenti mi avreste aiutato a mettere su un foglio con i controfiocchi ma la stagione è oramai alle porte.
Giuseppe non avevo compreso che dovevo modificare solo una parte del codice ho sostituito invece tutto. Imparerò :-)
per me possiamo entrare in contatto tramite skype dimmi solo quando e come devo cercarti.
Grazie a tutti e buona serata. |
| | Post: 2.748 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 06/03/2018 22:33 | |
Buona sera, Aliele; ti ho inviato un messaggio FFZ nel quale ho indicato i miei contatti Skype e E-Mail. Ci possiamo sentire quando lo ritieni più opportuno. Mi sento di tranquillizzarti sulla operatività entro la Data del 15 marzo con la Procedura proposta da Raffaele, che saluto, oppure da quella che ti ho proposto io. La mia richiesta di un contatto in Skype è solo per poterti partecipare le mie considerazioni sul tuo File. Ribadisco che un contatto in Skype è condizionato dall'impegno formale di partecipare in Forum eventuali sviluppi. A disposizione. Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 32 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 07/03/2018 09:10 | |
Buon giorno Giuseppe,
ma cos'è un messaggio FFZ?
Saluti. |
| | Post: 2.753 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 07/03/2018 09:36 | |
Buona giornata, Aliele; un messaggio FFZ è un messaggio privato per condividere con te i miei riferimenti a Skype e E-Mail e non con il resto del Mondo. Dovresti trovarlo nella tua posta personale; in allegato l'immagine dell'invio del mio FFZ a @aliele. Se entri nel tuo Profilo e premi: - Invia mail e selezioni: - Leggi dovresti trovare il mio messaggio. Fammi sapere se hai problemi. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3.234 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 07/03/2018 11:18 | |
Fatto, mi tocca spiegare quanto fatto....
Premessa che il report compatibilità, dice i vari errori se usi (Excel 2003)
1)Tutte le formule dovrebbero funzionare bene (almeno per quanto ho capito)
2) C'è da mettere a posto (tranne MFR_1 + MFR_2), tutte le formattazioni Condizionali. Basta che segui l'esempio del foglio MFR_1
3) C'è da copiare (tranne MFR_1 + MFR_2), la cella A4 in ogni foglio
4) In ogni foglio MFR_x, in cella A1 c'è una matriciale da non toccare
5) Come detto ho eliminato per tutti fogli MFR_x le righe con gli errori (righe 44:50)
6) In ogni foglio MFR_x, celle B10:B42 una Convalida dei Cognomi
7) In ogni foglio MFR_x, celle A10:A42 un cerca.vert() che trova il contratto
8) In ogni foglio MFR_x, celle F4:CB4 purtroppo ho cancellato i vari valori esistenti
9) Creato foglio Dati e nascosto (mouse destro su una linguetta/scopri
10) Messo a posto le formule in Personale
NB: In ogni foglio MFR_x, i valori da immettere nelle celle F4:CB4
EX = SI >>> 22-23-24, 33, 1-3, 11-9-12-31-33 ecc ecc (solo se divisi dal meno (-)
EX = NO >>>22spazio23spazio24, NO >>>11virgola9punto virgola12 ecc ecc da altri simboli
In DATI, Colonna B i numeri, Colonna C (quanti punti sommi) Attualmente MAX 100 numeri (oppure modificare VBA)
Spero d'aver detto tutto...(se non va bene, come non detto/fatto) Excel 2013 |
| | Post: 33 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 08/03/2018 18:26 | |
Buona sera Raffaele e grazie per il tempo speso.
Scarico il file e ti aggiorno.
Grazie ancora
|
| | Post: 2.757 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 08/03/2018 18:29 | |
Buona sera a Tutti; dopo una conversazione in Skype con @aliele. ,come promesso, allego una bozza del File concordato con Aliele. Il File è compatibile con Excel 2000 e 2003; le Formule sviluppate per Release meno datate sarebbe molto meno complicate. A disposizione. Buona serata a Tutti. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3.248 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 08/03/2018 19:21 | |
Hai,hai,hai ....GiuseppeMN
Il Rapporto compatibilità mi dice che devi (mettere a posto le righe 'MFR 1'!H43:H55) in ogni MFR
E come detto le "formattazione condizionali" in ogni MFR
Altri problemi "non vedo" per Excel 2003 Excel 2013 |
| | Post: 2.758 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 08/03/2018 19:40 | |
Buona sera, Raffaele; sarei veramente curioso di capire quali Formule pensavi di proporre in Righe H43:H55. Io non ho capito cosa si vuole ottenere. La Formattazione condizionale, credo funzioni in tutti Fogli di lavoro "MFR", ma, ovviammente, potrei anche sbagliarmi. Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3.249 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 08/03/2018 19:59 | |
Ciao Giuseppe
1) Le righe "io le ho eliminate", col permesso di diversi Post fà
2) Formattazione condizionale, io vedo adesso 4 Opzioni in vari MFR (Excel 2003 = solo tre opzioni)
Comunque Giuseppe, NON è una guerra Nostra
Io desideravo eliminare l'ultimo mio post, mà sei arrivato prima Tu e Ti rispondo attuamente. Quando Vuoi chiamani che forse sarò più chiaro. Excel 2013 |
| | Post: 34 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 11/03/2018 11:05 | |
Buon giorno e buona domenica.
Desidero ringraziare sia Raffaele che Giuseppe per tutto il meraviglioso supporto che mi hanno fornito in questi giorni per la definizione del mio file excel.
Siete GRAANDI!!!!
Grazie e buon week end.
|
|
|
|
|