Moderatori: Anthony47, Flash30005
raimea ha scritto: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
Anthony47 ha scritto: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
granlaura ha scritto:raimea ha scritto: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 ha scritto:Anthony47 ha scritto: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
Flash30005 ha scritto: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
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
Flash30005 ha scritto: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
Ciao come ti ho detto l'agenda mi piace ma non riesco a creare il mio database dentro lei si può?
Laura
Torna a Applicazioni Office Windows
[Excel] Agenda Clienti con Scheda clienti, come si fa? Autore: Niargo |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 53 ospiti