Inserire avviso compleanno

Salve a tutti, mi presento mi chiamo Matteo

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

Ciao Matteo

Prova ad allegare un file di esempio con pochi dati e spiega, sulla base di questo quello che vuoi fare/ottenere.

Ciao
senza un file andiamo a naso

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 ???

Bah, e una formuletta in Formattazione Condizionale non potrebbe bastare ?

Vi allego il mio file tanto per farvi capire, grazie a tutti per l'interesse del mio problema!!

https://mega.nz/#!Jh1GXQCQ!cysRcEVzIXRpeCickzAze3ABam0sQqQT90R9TfGenIs

ciao

per me una formattazione è
sufficiente
ma facciamolo difficile

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

---

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

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.

Scusa Gianfranco ho visto che hai proposto una Function ma non dovrebbe essere una Sub?