CellValue = TextBox6 + TextBox4(*7) VBA

Good day,
I am looking to find the following code to multiply (always by 7) the final Value that will be inserted in a Cell.
I have 3 Textboxes.

TextBox6 = Calendar Date (YYYY/MM/DD).Value (Ex: 2013/08/11) I have a popup Calendar in this Textbox.
TextBox3 = OnlyNumbers
TextBox4 = OnlyNumbers (Need to be multiplied by 7) Ex: TextBox4.Value & *7 but not until the final transfer (Cell Transfer)

If the user adds a number in TextBox3 then

Please Login or Register  to view this content.

Ex: Date in textbox6 = 2013/08/11 and that TextBox3 = 2 then the cell value will equals to 2013/08/13

I need that when a User adds a number to TextBox4 to make TextBox4 = the Value + *7

Example: If the user adds 1 in textbox4 the final result that will be inserted in my new row in Column V is the following...(Date 2013/08/11)

Please Login or Register  to view this content.

Therefore will equal too... 2013/08/18 when I select my “Add cmdbutton”

Would someone have a code or to explain who to add mutlyplied value to my textbox?

So it should be...

Please Login or Register  to view this content.

Gives me an type error...


Not very good when it comes to Textboxes...

WLRTestdata.xlsm

Here is the document...

Double click A5 and select "Option" then select any from the drop down...
Select (Yes) from the next question...
Select (Yes) to the next question... A user form will ask you to add some info... I need to get the Delivery Date to add the Textbox4 number (Textbox4 needs to be *7 but only at transfer)

So just add any information in the requested field... So when the User adds (example) 1 to the textbox4 then when the user selects "Add" then it will grab Textbox6 (Date) (Example 2013/08/11) and add textbox4 but Textbox4 should equal the original value from textbox4 (1) and multiply by *7 therefore making it 7.

The cell value will show that following: 2013/08/18

Sorry here is the process:

Double Click A5
Select "Options"
Select "Termination"
Select anything from the dropdown menu
Question1 = Yes
Question2 = Yes

UserForm:
Add 1 to the first textbox
Add 1 to the "Delivery Weeks"
Add "1" to the "Contract Value"
Add a date to the "Award Date"

If you look in the VBE it will be under the frmtermination UserForm.

I need when the user Select "Add" to add the following

Cells(ActiveCell.Row + 1, "V").Value = DateAdd("d", TextBox6.Value + (TextBox4.Value * 7)) or well the good code.

Yes the frmne is another UserForm the workbook overall is around 530 KB without information.

Error: Argrument not optional and it highlight's "DateAdd" from DateAdd("d", TextBox6.Value, (TextBox4.Value *7))

Well I am not done with all the codes but

Please Login or Register  to view this content.

TextBox1 = number
TextBox2 = Text
TextBox3 or TextBox4 = Numbers (iether or as code is already inserted in Form you can only choose one or the other)
TextBox5 = number that will convert to currency $
TextBox6 = Popup Calendar that imputs the date in Textbox6

Once the user as inputed, all, or all of the mandatory fields they will select "Add" and it will populate Worksheet "Report"

The only problem is that TextBox4 needs to be multiplied by 7 (the user will add a number based on the time frame and not the dated) Example Delivery 2 Weeks therefore the number x 7 from the delivery date.

if the user selects 2013/08/11 from the calendar that will be inserted in TextBox6 then when the code runs it will take the date from the textbox6 + the number from TextBox4(while muliplying textbox4 by 7) and add the final result in Cells(ActiveCell.Row + 1, "V").Value.

Hope this helps

Thank you Jaslake, Second issue...

Well I can't figure out how to use only one calendar to add dates to my userform therefore I created 3, one for the worksheets and 2 for the userforms I am using. I have around 30 Userform and I need to input the dates in these userform (TextBox) so i guess this technique works good for me.

Started this project with a total different aproach when a buddy told me to go with Userforms. Kind of works better for me using his method and plus more option can be added to a UserForm.

I have something simillar with what I am trying to do.

In another sheet, not included in the document above, I have the same textboxes but not the *7 as I have converted the *7 to a formula:

Please Login or Register  to view this content.

So that everytime a user adds a number in ActiveCell.Row, "F"; Cell G add "=F5*7 to cell G

In

HTML Code: 

it will automatically calculate the Date in Cell I then add the number that is in cell E making the cell Add the Date + Number /or If the user adds a number in Cell F it will grab the date in Cell I and add the amount from Cell F That was automaticaly changed because of the Formula.

I know it's kind hard to explain but I am trying to make the same but by bypassing the adding an extra column as it will take me hours / days to fix my workbook.

Lol they make sure my users don't panic...
5 user form to control my worksheets and the rest are small user form for selections and data selections.
I am trying to make my workbook as userfriendly as possible.

Instead of using msgbox with low selections I make them user forms therefore I can add my own tittle and function.
I can try to upload my full workbook with some stuff deleted but I am afraid it will be to big.

WLRTestdata.xlsm


This is the full workbook...Keep in mind that some code will not work ie: Clean up Workload, from the main openworkbook
I hope this works... It is not completed.

To explain the process, it would be too long but if someone need a better undertanding please let me know.

Note: This Workbook is mostly based on double_click field.

I read up that is was complicated to have only one Calendar Form if you will have multiple userform and multiple date entries. I figured that it would be easier for me to establish this type of method.

Instead of making them msgbox as it may change in the future…I decided to incorporate them in userforms… I will be the only one playing around with VBA codes therefore less complicated for me to change something an understand myself… I am not a VBA guru

The way this workbook is made…it’s by process of what we have in-house. We have a dinosaur system and I wanted to make a replica in excel of what is the step by step… My ideas were limited lol

This system has a lot of pop up windows and all but it was better this way so that the user that are not excel proof some never used excel before so yeah…I tried to make this as bullet proof possible.

As I said, this is not complete and when I come up with a better approach I will definitely change the VB code for sure… but now I am only looking for the basic but yet complicated code.

Yes the user prefers to be prompt with all those questions… Don’t get me wrong, I only take the users request in this…

The more complicated code was kind of a mirror image of what the other system does. But the questions and the Userform for the one entry only were all them… So I tried to do with what I had. Like the double click instead of having a validation List, User said they were at ease with this type of method…Double click I mean.

I guess I'll try another approach

Jaslake this works perfectly... Thank you so much.

I have made another UserForm that has all the questions and cmdbuttons with some Height and Width change plus hide and unhide including .visible = False/True

But will definitely add your code you have just given me this is awesome you guys are on point.

You guys are helping me be better at these sort of code