VBA for math using decimals

[ed.ayers315]

Hi Folks,

I have written the following code to calculate the results in other textboxes. This works fine until I start with a decimal point.

If I start entering with a 0 then the decimal it still works.

So I have two questions:

1) Is there a way to allow the user to start with a decimal i.e. (.11) or will they have to type (0.11)?

2) Is there a way to keep the data in the cells after the form is closed. The results are still in the workbook cells and I would like them to stay visable when reopening the form until the worksheet is cleared?

Here is the Code:

[Private Sub TB45A_Change()
ActiveSheet.Unprotect
TB45B.Value = Application.WorksheetFunction.VLookup(Range("I13"), [SELF_CONTAINED_DATA], 14, 0) & " PPM"
TB46B.Value = Application.WorksheetFunction.VLookup(Range("I13"), [SELF_CONTAINED_DATA], 15, 0) & " PPM"
TB46A.Value = Round(CDbl(TB45A.Value) / 128 * 1000000, 0) & " PPM"


End Sub]

Thanks for any help

 

[AlphaFrog]

Try something like this...

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] TB45A_Change()
    
    [COLOR=darkblue]If[/COLOR] IsNumeric(TB45A.Value) [COLOR=darkblue]Then[/COLOR]
        ActiveSheet.Unprotect
        TB45B.Value = Application.WorksheetFunction.VLookup(Range("I13"), [SELF_CONTAINED_DATA], 14, 0) & " PPM"
        TB46B.Value = Application.WorksheetFunction.VLookup(Range("I13"), [SELF_CONTAINED_DATA], 15, 0) & " PPM"
        TB46A.Value = Round(CDbl(TB45A.Value) / 128 * 1000000, 0) & " PPM"
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

I don't understand #2. Which cells? You can populate the textboxes when you open the userform by using the UserForm_Initialize procedure.
Example:

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()
    TB45B.Value = Sheets("Sheet1").Range("A1").Value
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[ed.ayers315]

Solved by Alphadog