A quick help needed from Macro expert !

[pratikravani]

Hi,

I have a database of some hundreds of ppl with their important dates. E.g. One of the columns I have is for their birthdates. But the prob is: The dates are stored with their birth years so if I try to run macro while equalling the list of dates with the DATE function, it wont run. I need to segregate only the month and the date from the birthdate while omitting birthyear so that I come to know whose birthdays fall in the near future.

I guess month(date) may work but trying hard...unable to solve.

If anyone can....

Thanks..

 

[cstimart]

Try..

=TEXT(A1,"mm/dd")

 

[pratikravani]

Hi thanks for the help...but this is not what I'm looking for. This is to be used in the workbook and not for Macro. And this (mm/dd/yy) is only to bring out the months/date/year as per your need.

Here the need is: Worksheet column is filled with dates having different years, I want to neglect years while I run a loop in that column using Macro. And in that loop, I want to avoid years and just want to take into account date and month. How to do that in VBA?

 

[RomulusMilea]

Hello,

If the VBA code existed, what would be the output you expect from the code ? Thank you.

Romulus.

 

[pratikravani]

Pls read the second para of my last reply, it tells you the exact need what i expect to be done through VBA.

 

[Richard Schollar]

If you have the dates as full Excel dates then using the Month function in VBA will tell you what the month is (1 to 12):

 MsgBox "Month number is " & Month(Range("A1").Value)

for example. What else do you want to do with it?

 

[pratikravani]

I have tried the same thing...

i.e. If Month(Sheets("DB").Range("D" & i).Value) = Month(Date) Then....

This works, but This way I can only fetch the dates falling in the same month. Along with the month I also need "date" to be equalized.

Thanks anyways...

 

[Richard Schollar]

Well, you have a Day() function available too:

If Day(Range("D1").Value) = Day(Date) And Month(Range("D1").Value = Month(Date) Then

You could convert to a text string to make for easier (shorter code) comparison:

If Format(Range("D1").Value,"mmmdd") = Format(Date,"mmmdd") Then

 

[pratikravani]

Thanks buddy...Prob got solved with that day function which I used and made it work the way I wanted. Was unaware of that.

Thanks a ton.