How do I set reminders in Excels...eg. If I type name of my all freinds in one column and in another column their birth date then when ever I do start Excel Reminder message should popup automatically the name of my freind who's birthday is on same date.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Correction to my posting.. have to take into account the month.... LOL
Sub CheckDates()
Dim rng As Range
For Each rng In Intersect([B1:B65536], ActiveSheet.UsedRange)
If VBA.Month(rng.Value) = VBA.Month(Now) Then
If VBA.Day(rng.Value) = VBA.Day(Now) Then
MsgBox "Happy Birthday: " & rng.Offset(0, -1).Value, _
vbExclamation, "BirthDay"
Exit For
End If
End If
Next
End Sub
tony_813
Errrrr... and as I look at my posting... more errors I find... (c:
My previous posting.. would exit the loop on the first birthday.... and if there was multiple birthdays on that given day?
The following will provide you with one message box with all the names who have a birthday on a given day...
Keep in mind that the names are in column A and birthdays in a date format are in column B:
Sub CheckDates()
Dim rng As Range
Dim count As Long
Dim Names As String
For Each rng In Intersect([B1:B65536], ActiveSheet.UsedRange)
If VBA.Month(rng.Value) = VBA.Month(Now) Then
If VBA.Day(rng.Value) = VBA.Day(Now) Then
count = count + 1
Names = Names & rng.Offset(0, -1).Value & vbCrLf
End If
End If
Next
If count = 1 Then
MsgBox "Happy Birthday:" & vbCrLf & vbCrLf & Names, vbExclamation, "BirthDay"
ElseIf count > 1 Then
MsgBox "Happy Birthday to the following friends:" & vbCrLf & vbCrLf & _
Names, vbExclamation, "Birthdays"
End If
End Sub
tony_813
Business Accounts
Answer for Membership
by: JeggburtPosted on 2006-06-18 at 03:54:46ID: 16929249
The code as follows (you can call this from your Workbook_Open procedure):
Private Sub CheckBirthday()
Dim TodaysDate As Date
Dim FriendName As String
Dim Age As Integer
Dim CheckDates As Object
TodaysDate = Now
'the date the workbook is opened
For Each CheckDates In Range("B2:B5")
If (Mid(CStr(TodaysDate), 1, 5) = Mid(CheckDates, 1, 5)) Then
Age = (Mid(CStr(TodaysDate), 7, 4) - Mid(CheckDates, 7, 4))
FriendName = CheckDates.Offset(0, -1).Value
MsgBox (FriendName & " is " & Age & " years old today")
End If
Next CheckDates
'checks the data held in cells B2 to B5 and compares it with today's date
'if today's date is the same date (not year) of any of the data held in the cells
'then a messagebox will be displayed showing who is celebrating their birthday
End Sub
This assumes that the name of the person is held in column A and the date of birth is in column B. There are headers in A1 and B1. You can amend this to suit your spreadsheet.
Hope this helps.