Condividi:        

Scadenze [Excel 2013]

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Scadenze [Excel 2013]

Postdi fastbike73 » 27/06/14 12:53

Salve a tutti, rieccomi con un nuovo quesito.
In B ho delle date (scadenze polizze assicurative)
in C mi occorre una formula che mi controlli se ci sono 'date della colonna B che scadranno nei prossini n ( diciamo 15) giorni.
Mi potreste aiutare?? :lol:
Allego un foglio excel in cui ho inserito una formula che utilizzavo per un altra necessità ma che mi calcola soltanto se la data scade il giorno successivo...

https://www.dropbox.com/s/bj6mzsqv6k1x9fk/Scadenze.xlsx
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Sponsor
 

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 27/06/14 14:36

Mi rispondo da solo... credo di aver trovato la soluzione con questa formula:

=SE(B1>=OGGI();SE(B1<=OGGI()+15;"in scadenza";"");SE(B1<OGGI();"scaduta";""))

Risolve la mia esigenza, sicuramente però ci saranno formule o metodi migliori e mi incuriosisce conoscerli, quindi
se volete potete ugualmente rispondere al thred... grazie!!! :D
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi wallace&gromit » 27/06/14 15:55

puoi ottimizzare riducendo il numero di "se", ma per il resto sembra a posto
Codice: Seleziona tutto
=SE(B1<OGGI();"scaduta";SE(B1<=OGGI()+15;"in scadenza";""))
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Scadenze [Excel 2013]

Postdi raimea » 27/06/14 16:22

ciao
dai un occhio / prova anche questo lavoro

https://db.tt/4985kYVa

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 27/06/14 16:23

wallace&gromit ha scritto:puoi ottimizzare riducendo il numero di "se", ma per il resto sembra a posto
Codice: Seleziona tutto
=SE(B1<OGGI();"scaduta";SE(B1<=OGGI()+15;"in scadenza";""))


Grazie W&G, effettivamente la tua è più semplice e ottiene lo stesso risultato. ;) ;) ;) ;)
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 30/06/14 13:00

Ulteriori approfondimento riguardo lo stesso argomento.
In b1 ho una data in c1 (casella formatata Testo) posso avere 2 possibilità: la prima è "Semestrale" la seconda è "annuale".
In d1 vorrei che in base a quello che c'è in C1 (quindi semestrale o annuale) calcolasse la corretta futura scadenza.
Faccio un esempio
B1 = 24/06/14
C1 = semestrale
D1 = dovrebbe tirar fuori 24/12/14

Se fosse stato annuale avrebbe dovuto dare come risultato 24/06/15 .
Mi potete aiutare??
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 01/07/14 03:11

Tra le possibili soluzioni:
Codice: Seleziona tutto
=DATA.MESE(B1;SE(C1="semestrale";6;0)+SE(C1="annuale";12;0))

Qualora C1 fosse non compilata questa formula lascia la data finale pari a quella iniziale.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 01/07/14 08:49

Anthony47 ha scritto:Tra le possibili soluzioni:
Codice: Seleziona tutto
=DATA.MESE(B1;SE(C1="semestrale";6;0)+SE(C1="annuale";12;0))

Qualora C1 fosse non compilata questa formula lascia la data finale pari a quella iniziale.

Ciao


Ciao Anthony, ti ringrazio per la risposta solo che mi da' un errore.
Nella fattispecie ho in B1 la data 04/09/2011 e in C1 Semestrale; in D1 la data che mi esce è 00/01/1900 .
Successivamente ho fatto la prova scrivendo Annuale in C1 e il risultato è stato 04/03/2012 .
Quindi ho invertito in questo modo
Codice: Seleziona tutto
=DATA.MESE(B1;SE(C1="ANNUALE";6;0)+SE(C1="SEMESTRALE";12;0))


Il risultato così se scrivo Annuale in C1 è corretto ma se scrivo semestrale mi dà 00/01/1900
Puoi aiutarmi??
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 01/07/14 09:30

Anthony, non so cosa sbagliavo ma adesso sembra funzionare. Ti ringrazio molto per il tuo aiuto. Se ho altri problemi spero di poter contare ancora sul forum... Grazie!!!!

:) :) :) :) :)
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 01/07/14 12:58

...adesso sembra funzionare...
Meglio per te, perche' l' unica soluzione sarebbe stata riformattare tutto il disco :D :D

Alla prossima!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 04/07/14 11:12

Buongiorno Anthony e buongiorno Forum. Avrei la necessità di modificare una formula che precedentemente avevo postato ma che adesso dovrebbe effettuare maggiori controlli (quindi più condizioni) e che io non riesco a risolvere. Ti mando il link così se per piacere tu o qualcunaltro del forum potete aiutarmi ve ne sarei grato. Nel foglio excel elenco le eventuali "risposte" che mi dovrebbe dare la formula.
https://www.dropbox.com/s/vf3d4i7g8e9jxsf/Cartel1.xlsx
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 05/07/14 02:02

Le regole riportate sul foglio pubblicato dicono:
1) se OGGI mancano 15 gg alla scadenza di colonna I ma sono passati più di 15 gg dalla scadenza di colonna J la risposta deve essere "In Scadenza"
2) se OGGI è maggiore di 1 a 15 gg rispetto alla scadenza di colonna I ma inferiore di oltre 15 gg alla scadenza di colonna J la risposta deve essere ""
3) se OGGI mancano 15 gg alla scadenza di colonna J ma sono passati oltre 15 gg dalla scadenza di colonna I la risposta deve essere "In Scadenza"
4) se OGGI è maggiore di 1 a 15 gg rispetto alla scadenza di colonna J ma inferiore di oltre 15 gg alla scadenza di colonna I la risposta deve essere ""
5) se in colonna J non c'è data il controllo resta per la colonna I soltanto.


Per me stai sbagliando impostazione...
Il foglio dovrebbe avere una scadenza "prossima", che e' quella che deve monitorata come InScadenza /Scaduta, e una futura solo informativa.
Quando il premio viene pagato, la scadenza futura la fai diventare "scadenza prossima" e la formula calcolera' in J una nuova scadenza futura.
I warning InScadenza o Scaduta li elaborerai solo su colonna I (la "scadenza prossima")

Tra l' altro le regole date sono strane /assurde:
-ad esempio la regola 1 non si potra' mai verificare (la data in J e' successiva a quella in I)
-dopo 15 gg dalla scadenza lo stato deve passare da InScadenza a "null"?
-la regola 4 non si potra' mai verificare (la data in J e' successiva a quella in I)

Infine direi che lo Stato contenuto nel foglio di esempio difficilmente rispetta le regole date:
Immagine
host immagini
Di queste solo le utime 2 (In Scadenza) mi sembrano aderire alle regole.

Quindi riguarda la questione (anche considerando il mio suggerimento) e fatti risentire.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 09/07/14 17:42

Buonasera Anthony, ti ringrazio per l'attenzione che hai dato al mio problema, piuttosto scusami se ti rispondo così in ritardo. Riguardo i dati presenti nel documento considera che non sono esattamente quelli reali, nel senso che molte di quelle date sono puramente inventate.
Quindi tu dici di calcolare lo stato sulla data presente in colonna I (scadenza prossima) e di trasformare la 2 scadenza in un semplice dato informativo (scadenza futura). Poi tu dici, "non appena si verifica il pagamento del premio, la scadenza futura la fai diventare scadenza prossima".... ma questo come lo faccio con formula?? E in che modo?? Inoltre io volevo far si che appena lo stato della scadenza passa da "blank" (cioè nessuno stato) in In scadenza, si attiva una macro che faccia partire un'email a determinati destinatari con l'indicazione della polizza/e che passa "in scadenza" e allegata all'email la copia pdf della polizza stessa... diciamo che il progetto finito dovrebbe essere questo...
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 10/07/14 00:44

Quando ricevete il pagamento qualcuno controllera' a occhio che il pagamento sia stato regolare e scrivera' a mano la prossima scadenza, copiando il valore di colonna J in colonna I...
Quanto all' invio di email in previsione di una scadenza, ci sono state numerose discussioni in merito; fai una ricerca google con la stringa "email scadenze site:pc-facile.com" (senza virgolette), e vedi quale ti sembra piu' simile alle tue esigenze.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 15/07/14 11:05

Buongiorno Anthony e buongiorno forum. Allego un file che ho trovato su internet e che sto personalizzando per renderlo adatto al mio lavoro, (solito scadenzario polizze assicurative). Ho messo dei dati a caso. Il problema è il seguente:
la Userform, che ho modificato per i miei scopi, attraverso la quale dovrei effettuare l'inserimento, la modifica e l'eventuale eliminazione dei dati di pagamento dei premi assicurativi, ha una formattazione dei campi di inserimento diversa da quella che a me servirebbe. Es. Il Textbox "Premio" dovrebbe permettere la scrittura di dati con formato valore sia sulla userform stessa che nella cella di destinazione, al momento questo non avviene. Io ho fatto qualche vano tentativo ma non sono riuscito. Quindi se mi poteste aiutare... :eeh:

https://www.dropbox.com/s/sqid6e80o3ygtsz/Scadenziario%20Polizze%20Gruppo.xlsm
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 16/07/14 00:23

Il file chiede le credenziali di accesso a Windows Live, quindi e' inultilizzabile nelle sue funzionalita'.

Comunque i campi della userform non hanno una formattazione... Il TextBox per definizione contiene un "text", quindi quando muovi il suo contenuto nel foglio dovrai fare tu le conversioni di formato che servono; ad esempio se vuoi caricare il contenuto di un textbox come un valore invece di usare
ActiveWorkbook.Sheets("Eventi").Cells(R, 4) = txtPremio
userai
ActiveWorkbook.Sheets("Eventi").Cells(R, 4) = CDbl(txtPremio)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 16/07/14 09:32

Buongiorno Anthony, non capisco come mai chieda le credenziali di windows live, comunque la tua dritta è corretta e già ho effettuato la modifica. Grazie.
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 18/07/14 14:33

Anthony47 ha scritto:Il file chiede le credenziali di accesso a Windows Live, quindi e' inultilizzabile nelle sue funzionalita'.


Salve Anthony, buonasera forum.
Provo nuovamente a inviarti il file. Sono a buon punto con l'invio della mail. Vorrei il tuo aiuto per risolvere un paio di problemi.
1) all'apertura del file, se funziona tutto come nel mio pc, dovrebbe partire una macro che apre outlook e tramite comando display fa vedere l'email che dovrebbe essere lanciata. L'ultimo campo del 'corpo dell'e-mail' (dove trovi tutti quei "Inviare mail") corrisponde ai valori presenti in colonna 'Check' (M) del foglio 'Polizze' (in pratica la condizione affinche la riga sia riportata nel testo de''email stessa). Bene se è possibile questo campo non dovrebbe apparire nel corpo dell'e-mail;
2) nel corpo dell'e-mail è presente un link al file pdf della polizza. In questo modo soltanto chi utilizza la rete aziendale ed ha accesso al server può vedere la polizza. E' possibile far si che questi collegamenti ipertestuali diventino allegati dell'e-mail?
Spero di essere stato chiaro e soprattutto spero di non aver sbagliato niente nel riportare il codice copiato qua e là su internet...
Rimango fiducioso in attesa di un tuo aiuto o di qualche altro benefattore del forum.
Saluti.

https://www.dropbox.com/s/sqid6e80o3ygtsz/Scadenziario%20Polizze%20Gruppo.xlsm
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54

Re: Scadenze [Excel 2013]

Postdi Anthony47 » 19/07/14 01:48

Non ho decodificato il funzionamento globale del tuo file, quindi mi limito a rispondere alle domande poste...
Se non vuoi che il contenuto della colonna M compaia nel testo della mail allora non devi inserire questa colonna nel set rng; cioe' NON
Set rng = .Range("A1:M" & iLastRow)
Ma probabilmente
Set rng = .Range("A1:L" & iLastRow)

Se vuoi allegare il file elencato in colonna L allora aggiungerai nel tuo codice le istruzioni per aggiungere un attachment; qualcosa del tipo
Codice: Seleziona tutto
.Attachments.Add PercorsoENomeDelFile
(da inserire all' interno di With OutMail /End With)

Mi pare che tu intenda spedire una unica mail, quindi avrai bisogno di creare un loop per inserire tanti allegati quante sono le righe marcate "INVIARE MAIL" in colonna M.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Scadenze [Excel 2013]

Postdi fastbike73 » 19/07/14 08:58

Anthony47 ha scritto:Non ho decodificato il funzionamento globale del tuo file, quindi mi limito a rispondere alle domande poste...

Buongiorno Anthony, ti ringrazio lo stesso. Ho risolto utilizzando parzialmente l'indicazione che mi hai dato...

Codice: Seleziona tutto
 
'......
With Rng
        .AutoFilter
        .AutoFilter Field:=11, Criteria1:="IN SCADENZA"
        .Range("B:B,H:K,M:M").EntireColumn.Hidden = True
        Set RngPdf = Rng.Columns("L:L").SpecialCells(xlCellTypeVisible)
End With
fastbike73
Win 10 & Office365
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 256
Iscritto il: 23/04/14 10:54


Torna a Applicazioni Office Windows


Topic correlati a "Scadenze [Excel 2013]":


Chi c’è in linea

Visitano il forum: Nessuno e 41 ospiti

cron