agenda

[granlaura]

Ciao e Buon Anno !!!
Mi puoi aiutare per creare una agenda ? ossia vorrei estrarre da un database di nomi e date di compleanni /scadenze
il giorno in scadenza con un avviso sul desktop in modo di avvertire e/o mandare auguri:
Mi hai gia aiutata tempo fa grazie mille Laura

[Anthony47]

Bentornata. Puoi indicare in che formato hai i dati di partenza (excel, access, ???) e quale e' il loro layout? Se vuoi allegare un file esemplificativo o uno screenshot di riferimento guarda qui come fare: viewtopic.php?f=26&t=80395

Ciao, ti aspettiamo

[raimea]

ciao
non so se ti puo interessare ugualmente,
ma qui c'e un agenda che fa cio che chiedi
ma non e' in excel.

http://www.lelugarine.eu/downloads.asp?id=58

ciao

[Flash30005]

Ciao Raimea

il download non avviene se non si effettua il login

ciao

[raimea]

azzz e' vero...

prova a scaricarla da qui:

http://dl.dropbox.com/u/96374724/agenda-scadenziario%20per%20pc%20ital.rar
ciao

[granlaura]

ciao
non so se ti puo interessare ugualmente,
ma qui c'e un agenda che fa cio che chiedi
ma non e' in excel.

http://www.lelugarine.eu/downloads.asp?id=58

ciao

Ho provato a scaricarlo ma non ci sono riuscita, penso che possa andare bene mi puoi aiutare ?
grazie ciao

[granlaura]

Bentornata. Puoi indicare in che formato hai i dati di partenza (excel, access, ???) e quale e' il loro layout? Se vuoi allegare un file esemplificativo o uno screenshot di riferimento guarda qui come fare: viewtopic.php?f=26&t=80395

Ciao, ti aspettiamo

Grazie Anthony sei molto carino!
Ti preparo una scheda di cosa mi serve così mi spiego meglio , anche una agenda tipo quella di outlook mi potrebb endare bebe, ma come ho detto a raimea non riesco a scaricarla
grazie intanto e buonadomenica Laura

[granlaura]

ciao
non so se ti puo interessare ugualmente,
ma qui c'e un agenda che fa cio che chiedi
ma non e' in excel.

http://www.lelugarine.eu/downloads.asp?id=58

ciao

Ho provato a scaricarlo ma non ci sono riuscita, penso che possa andare bene mi puoi aiutare ?
grazie ciao

ci sono riuscita , ma non riesco a farle fare quello che mi serve la mia mail cercami@libero.it
grazie ciao

EDIT by Flash - non è una bella idea pubblicare il proprio indirizzo email in un forum per via di possibili spam quindi invia il tuo indirizzo utilizzando gli MP

[granlaura]

Bentornata. Puoi indicare in che formato hai i dati di partenza (excel, access, ???) e quale e' il loro layout? Se vuoi allegare un file esemplificativo o uno screenshot di riferimento guarda qui come fare: viewtopic.php?f=26&t=80395

Ciao, ti aspettiamo

Grazie Anthony sei molto carino!
Ti preparo una scheda di cosa mi serve così mi spiego meglio , anche una agenda tipo quella di outlook mi potrebb endare bebe, ma come ho detto a raimea non riesco a scaricarla
grazie intanto e buonadomenica Laura

Ciao Anthony ti mando la scheda che vorrei fare vorrei che alla data mi apparisse un avviso tipo quello di outlook
grazie molte ti aspetto
Collegamento;MD5;
https://rapidshare.com/files/3840530868 ... 060DD7B19;

[Flash30005]

Un paio di giorni fa ti avevo inviato una email con allegato un prototipo di agenda ma non ho ricevuto alcuna risposta

Ora invio il tuo file con la macro che all'apertura del file informa dell'evento del giorno
download file

[granlaura]

Un paio di giorni fa ti avevo inviato una email con allegato un prototipo di agenda ma non ho ricevuto alcuna risposta

Ora invio il tuo file con la macro che all'apertura del file informa dell'evento del giorno
download file

Grazie non avevo capito!!ho aggiunto un po di scadenze per domani ,mi sembra super ! grazieeeeeeeeeeeeeciao

[Flash30005]

Fai attenzione perché la visita medica non viene presa in considerazione (ricorrenza annuale)
pertanto se ti occorre anche quella puoi sostituire la macro con questa

Codice: Seleziona tutto

Sub Agenda()
Dim ZonaC, ZonaS
Dim CL As Object
Set ZonaS = Worksheets("Foglio1").Range([D3], [F3].End(xlDown))
For Each CL In ZonaS
anni = DateDiff("yyyy", CL.Value, Now)
giornomese = Mid(Now, 1, 5)
If Mid(CL.Value, 1, 5) = giornomese Then
Col = CL.Column
nome = CL.Offset(0, -(Col - 2)).Value
Msg = Cells(2, Col)
MsgBox "Oggi " & Msg & " di " & nome
End If
Next
End Sub

Ciao

[granlaura]

Fai attenzione perché la visita medica non viene presa in considerazione (ricorrenza annuale)
pertanto se ti occorre anche quella puoi sostituire la macro con questa

Codice: Seleziona tutto

Sub Agenda()
Dim ZonaC, ZonaS
Dim CL As Object
Set ZonaS = Worksheets("Foglio1").Range([D3], [F3].End(xlDown))
For Each CL In ZonaS
anni = DateDiff("yyyy", CL.Value, Now)
giornomese = Mid(Now, 1, 5)
If Mid(CL.Value, 1, 5) = giornomese Then
Col = CL.Column
nome = CL.Offset(0, -(Col - 2)).Value
Msg = Cells(2, Col)
MsgBox "Oggi " & Msg & " di " & nome
End If
Next
End Sub

Ciao

Grazie domani la provo,però sono tutte scadenze annuali dove trovi la differenza ciao a domani

[Flash30005]

Si, ok,
l'ultima macro prende in considerazione anche la Visita Medica che la prima macro non faceva

ciao

[granlaura]

Ciao 11
Perchè non funziona ? Cosa sbaglio non so non mi esce nessun avviso
Grazie per l'aiuto
Laura

[granlaura]

messaggio per Raimea
Ciao come ti ho detto l'agenda mi piace ma non riesco a creare il mio database dentro lei si può?
grazie ti aspetto
Laura

[Flash30005]

C'era un bug

prova questo file

ciao

[raimea]

Ciao come ti ho detto l'agenda mi piace ma non riesco a creare il mio database dentro lei si può?
Laura

ciao
se non funge non saprei come risolvere, il programma come dicevo all'inizio non l'ho fatto io ,
non e' in excel.
ciao

P.s. Leggi il post di Flash qui sopra

[Anthony47]

Ma poi i quesiti avevano trovato le risposte?

[raimea]

ciao
ho scambiato qualche Mp , e penso che - granlaura-
alla fine abbia risolto utilizzando memorex

http://memorex.softonic.it/
oppure anche qui:
http://www.lelugarine.eu/downloads.asp?id=130

ciao