Inserire avviso compleanno

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
Matteo Augelli
00mercoledì 8 marzo 2017 18:51
Salve a tutti, mi presento mi chiamo Matteo [SM=x423017]

Sono qui perchè spero di trovare qualcuno più esperto di me che mi possa aiutare, possiedo office 2016 e vorrei gestire un mio foglio exel "gestione clienti" molto semplice...

Ho creato una piccola tabella dove io posso inserire le informazioni generali dei miei clienti....

Nome, cognome...

Il mio problema spero che possa risolversi molto presto...
penso sia una cosa semplice ma non ci riesco per niente e so che con exel "in teoria" si può fare...

Vorrei un semplice avviso o pop pup oppure che la data di nascità diventi rossa dopo 1 anno... un piccolo avviso da parte di exel che mi dica oggi il signor. rossi compie gli anni così possiamo inviargli un messaggio di augurio oppure offrirgli qualcosa...

fatemi sapere se la mia richeista è fattibile, grazie [SM=x423026]
alfrimpa
00mercoledì 8 marzo 2017 19:26
Ciao Matteo

Prova ad allegare un file di esempio con pochi dati e spiega, sulla base di questo quello che vuoi fare/ottenere.
federico460
00mercoledì 8 marzo 2017 19:29
Ciao
senza un file andiamo a naso [SM=g27815]

Private Sub Worksheet_Change(ByVal Target As Range)
Data = Date
For Each cell In Sheets("Foglio1").Range("C1:C100")
If cell.Value = Data Then
MsgBox " Trovato compleanno"
cell.Interior.ColorIndex = 6
End If
Next
End Sub

metti il codice non al change ma o in un pulsante o

dove vuoi tu

ti avvisa che c'è un compleanno e colora di giallo la cella

ciao Al scusa non ti avevo letto
refresh ???
rollis13
00mercoledì 8 marzo 2017 19:35
Bah, e una formuletta in Formattazione Condizionale non potrebbe bastare ?
Matteo Augelli
00venerdì 10 marzo 2017 19:49
Grazie
Vi allego il mio file tanto per farvi capire, grazie a tutti per l'interesse del mio problema!!

https://mega.nz/#!Jh1GXQCQ!cysRcEVzIXRpeCickzAze3ABam0sQqQT90R9TfGenIs
federico460
00venerdì 10 marzo 2017 21:23
ciao

per me una formattazione è
sufficiente
ma facciamolo difficile [SM=g27828]

io ho messo all'attivazione del foglio
per vedere il risultato ma tu mettilo all'apertura del file


https://www.dropbox.com/s/1zqz28suwhse1qf/compleanno.xlsm?dl=0



nel foglio

Private Sub Worksheet_Activate()
Colora_Se
End Sub



in un modulo

Public Function Colora_Se()
Dim Foglio, ColData, Cell_Color, Righe, Start
Dim R, Giorno, Mese
Dim Giorno_Od, Mese_Od
Dim MyDate As Date
Dim MyDay, MyMonth

Foglio = "Foglio1"
Start = 2
ColData = 7
Cell_Color = 24

MyDate = Date
MyDay = Day(MyDate)
MyMonth = Month(MyDate)
With Worksheets(Foglio)
Righe = Range("a2").CurrentRegion.Rows.Count
Range("a2").CurrentRegion.Interior.ColorIndex = xlNone
For R = Start To Righe
Giorno = Day(.Cells(R, ColData))
Mese = Month(.Cells(R, ColData))
If Giorno = MyDay And Mese = MyMonth Then
.Cells(R, ColData).Interior.ColorIndex = Cell_Color

MsgBox "compleanno"
End If
Next
End With
End Function

Matteo Augelli
00sabato 11 marzo 2017 03:17
non capisco
Scusami ma penso di essere davvero ignorante nella procedura dell'inserimento,

volevo un pop pup nella stringa "Data di nascità"
che mi dica che è un compleanno, ma questo per tutti i miei clienti,
è possibile mettere questo codice in tutta la tabella data di nascità? se si, come glielo caccio dentro questa formula?

scusate ma sono davvero ignorante ahha
rollis13
00sabato 11 marzo 2017 09:36
Buongiorno a tutti.
La macro proposta da federico460 si attiva quando ti sposti da un foglio all'altro (Foglio1, Foglio2, Foglio3, ecc.). Se ci sono compleanni per il giorno appare un pop-up e si evidenzia la relativa cella. Dato l'ok, se ci sono altri compleanni appare di nuovo il pop-up e si evidenzia la cella dell'altro cliente.
Nell'esempio in dropbox di federico460 metti la data di oggi in un paio di celle, spostati in un altro foglio e quando ritorni al foglio con la tabella apparirà il primo pop-up.
alfrimpa
00sabato 11 marzo 2017 13:10
Scusa Gianfranco ho visto che hai proposto una Function ma non dovrebbe essere una Sub?
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 21:15.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com