Copy textbox data to a specific cell, based on date

[themikeford]

I am creating a Userform for an inventory management system, and I can't seem to figure out how to copy my data exactly where I want it in my workbook.

I am using Sheet2.jpg to collect raw material data, which I would like organized by date in my workbook Sheet1.jpg.

Say the date is today, 03/06/2012: I would like the "Quantity" to be copied to cell L11 in the worksheet titled "Title" to correspond with the date.

Basically, I'd like VBA to do something to the effect of: If Date = "xx/xx/xxxx" Then Copy Data from TextBoxQuantity to Cell "XX" in workbook "Title".

I'm sorry if I am not wording things properly, VBA is not my area of expertise. Actually, programming of any kind whatsoever is not my expertise. I seriously appreciate any assistance in this matter.

[Leith Ross]

Hello themikeford,

Welcome to the Forum!

The macro code below is for "TextBox1" and "TextBox2". I used these as default names because I don't know what you named your TextBoxes. Copy the code from the Dim statement to the line before the End Sub and paste this into the AfterUpdate procedure for your text box where the date is entered. Change "TextBox2" in the macro to match the name of the"Quantity In" text box.

Please Login or Register  to view this content.

[p24leclerc]

Hi Leith Ross,
I like your code. It's always instructing and inspiring. But here, why bother calculating R = FindDate.Row as it will always be 2.

[Leith Ross]

Hello p24leclerc,

You are correct. I could have simply used 2. It is an automatic habit I have of making the code more flexible. If the user should decide to make a change later on, I don't have to make as many alterations to the code.

[themikeford]

Thank you for the speedy response, and my apologies for the delay in responding. I haven't had a chance to work the bugs out of the code and get it implemented into my particular project, but my hopes are high! Thanks again.