Format from a textbox in a userform

[brianfosterblack]

I am using the following code to take the content from a userform and place it in certain cells in a spreadsheet
ActiveCell.Value = FrmSale.TextBox2
Selection.NumberFormat = "d/m/yyyy"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = FrmSale.TextBox3

The problem I am having is that everything is just being entered into all the cells as text
Some Textboxes are dates and they must enter as dates d/m/yyyy
some are whole numbers
some are numbers which must have 2 decimal points after the number e.g 5 entered as 5.00
some are percentages which must have 2 decimal points after the number. In the textbox could be the number 100 but this must enter in the speadsheet as 100% so I guess this should also have a formula to divide by 100 if the number is being represented as a percentage.

Can someone please help with this or point me to somewhere on the internet where I can find the answers.

 

[brianfosterblack]

Hi,

It was only the first 2 textboxes with dates in that I was having the problem with I I do not remember the error types I was getting.. The other textboxes are calculated dates based on a formula where I use Datevalue( in the formula to calculate the date. The problem I am finding however is that I have allowed a date for the birthdate of up to 6 children and where the textbox is empty (because there are less than 6 children) then I get the error "Runtime Error 13', type mismatch. I understand that I am getting this problem because the textbox is empty. Do I have to run this as an if function to first check if the textbox is empty? the same happens with a textbox if I am using CLng(.....

 

[AlphaFrog]

Most of that I didn't follow. So I really don't know.

 

[brianfosterblack]

Sorry that is the lack of experience coming out in me.

What I am saying is if I have the code
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CLng(FrmSale.TextBox3)
But the textbox is actually left empty because there is no data to fill in, then I get the error message 13' type mismatch. Do I need to put in code to test if the textbox is empty or not before using the code CLng(FrmSale.TextBox3)?

 

[AlphaFrog]

It's common practice to validate textbox entries to avoid errors and wrong data.

If IsDate(FrmSale.TextBox3) Then

 

[brianfosterblack]

Thanks this is now working perfectly.

I very much appreciate your time spent on this and the valuable advice given.