Fill Cells Based on Day of Week Drop Down on VBA Form

Okay, I have a challenging one for the genius' on this forum. I hope you guys can help me.

So I'm tracking the waste of a restaurant on a day to day basis, and I've created a UserForm to make inputting the figures easier, since this is not the only thing tracked on this spreadsheet. The Waste sheet is separated into Days of the Week, Sunday, Monday... etc. I was wondering if it would be possible have the sheet detect the day of week based on the value of a separate cell, and input the values into the day specified. For example, something like (assuming A1 = the day of the week, B1 through B7 are the waste fields and "x" is the value being inserted.)

If A1 = Monday, then B1 = x
If A1 = Tuesday, then B2 = x

So on and so forth...

And have the coding executed during a button press event.

Don't fully understand what you're trying to accomplish, but the VBA code would be something like:

Please Login or Register  to view this content.

Don't fully understand what you're trying to accomplish, but the VBA code would be something like:

Please Login or Register  to view this content.

Thanks for your help. I've created a cell on a different sheet that specifies the Day of the Week, and created the UserForm. Then based on your suggestion, created the following code. Unfortunately, it doesn't seem to be working. No errors, just not working.

Please Login or Register  to view this content.

Lol, nevermind, figured it out.... shouldn't have capitalized the days of the week. Thanks for your help!

Haha, I puzzled over why that wouldn't be working for awhile before I noticed the second post.

You don't supposed there is a way to clean that up and make it all fit in one line of code, do you?

You can use Select Case and With...

Please Login or Register  to view this content.

Thanks for all your help, Rep added.