Code Optimization - Copy cells from one sheet to another - remove blank rows

While I was able to get code to work and do what it is I am wanting, something tells me that there are much better ways to do what I am trying to accomplish?

Essentially, I am wanting to copy the contents of cells from "ClientDB" BJ4:BK(lastrow), BN4:BO(lastrow) - and so on

and then have those contents paste only into column A and B of the Birthdays tab. Essentially I want to be able to enter in the month (for example May) and have an auto Filter of everybody whose birthday is that month.

To Copy the persons Name and DOB I am using:

Please Login or Register  to view this content.

And then to eliminate the blank rows I am using

Please Login or Register  to view this content.

Solution available when Moderator's request has been complied with

Good Morning. I am so sorry... I had no idea it was a violation of the TOS... and will not do it again. Historically I have posted in different forums just so that I can learn different ways of accomplishing the same end goal. I have no formal training in VBA... and am learning it as I go. This project that I have taken on while it WAS way above my knowledge base has helped me grow a lot, and learn a lot as well.

The link to the other post that I had is https://www.mrexcel.com/forum/excel-...ml#post5270398

Again, please accept my apologies.

Hi there,

The attached version of your workbook contains some dummy values for Child Names and Dates Of Birth, and uses the following code to update the Birthdays worksheet:

Please Login or Register  to view this content.

The highlighted values may be altered to cater for changes to your worksheet names and/or layouts.

The Birthdays worksheet contains buttons for updating and clearing the Birthdays list.


Hope this helps - please let me know how you get on.

Regards,

Greg M

WOW! I will dig into this and let you know if I have any questions.

Out of curiosity, is this something that you had previously done (or similarly done previously)? How the heck did you get all of this that quick?

Hi Greg,

I am seeing a bug and hoping that you can help out with it??? i suspect that it is coming from the "age" calculations that are
happening

If there is NO DOB listed for a child, then there cannot be an age for the child... right?

But when the data is adding itself over to the "birthdays" tab, January is getting added in to the "Months" location

Hi again,

Most of the "Full Name Child nn" cells appear to be empty, but they actually contain blank (space) values - clear these cells and the "UpdateBirthdays" routine will display the result you expect.

Hope this helps - as always, please let me know how you get on.

Regards,

Greg M

Good Afternoon.

Was hoping that you could help me figure out an error that is coming up?

Something is happening around line 257 that is causing this...


"Unable to get the YearFrac property of the Worksheet Function class"

Please Login or Register  to view this content.

Your thoughts???