Need Macro for finding date in cell and adding data

[evilr34]

Hi There,

I'm attempting to write a macro that finds an exact date in a cell in another worksheet then adds data from a Text Box to a cell 1 Row below. So far I've gotten it to find and select the cell using the following code:

Please Login or Register  to view this content.

But I the date needs to be todays date vs. a set date.

any help would be appreciated

[stnkynts]

Need more information.

1. Where is this text box located? What is it's name?
2. 1 Row below what? The found cell?
3. Do you only want to be searching a specific range or the whole entire used range?

FWIW:

Please Login or Register  to view this content.

[evilr34]

[QUOTE=stnkynts;3157661]Need more information.

1. Where is this text box located? What is it's name?

-Text Box is Located on sheet1, It's name is TextBox1. The data that needs to be searched is located on sheet2

2. 1 Row below what? The found cell?

-Yes, below the found cell

3. Do you only want to be searching a specific range or the whole entire used range?

-the entire sheet

Basically I'm creating a labour tracking sheet. On Sheet1, I have the names and beside them I have a textbox for hour(s) entry. On sheet2 I have a time card with the names and a calender for the month with the dates across the top and below I'm trying to track their hours.

Example Below:

capture2.png

capture.png

[stnkynts]

Based upon your pictures you might want to make your dates the same format. Did you try the above code? Also, how do the names play into this. Personally I think you are approaching the problem wrong. A userform might be most appropriate. You could set it up many different ways. (example: You can have the employees log their time themselves)

[evilr34]

Ok I've reversed the Date (thanks for noticing that) and tryed your Code. It runs, but doesn't seem to accomplish anything.

[stnkynts]

It probably didn't work for you because may not have had values in column A of sheet2 (which I initially based the range determination off of). I tweaked it slightly so it might work for your application. I tested it on a workbook with the limited information you provided and it worked for me.

Please Login or Register  to view this content.

Note: You indicated it only needs to go 1 row below the found date. If you are going to try to edit this for each employee name you will probably have to adjust the offset to match.