Shawn,

My problem is not the formulas, because I have a Calculation Button in the
userform, so i click that one and displays all the results, where is taking
to long is to paste those results to the excel worksheet.

Once the results are in the userform displays I use the following:

Private Sub cdmexcel_Click()
Dim b As Worksheet
Set b = Worksheets("Report")
With b
.Cells(3, 1).Value = Me.textnombre.Value
.Cells(4, 1).Value = Me.textpuesto.Value
.Cells(11, 2).Value = Me.sbm.Value

And son all the textboxes with results and put them in the code above to
copy it to the worksheet.

This is what is taking to long, to just copy and past the result of a
textbox (which is already there) into the worksheet

Do you know a better way o faster way to COPY and PASTE a value from a
textbox to the worksheet?

Or is just taking to long because they are like a 100 values to copy ?

Thanks a lot !!
Carlos
Monterrey, Mexico

"Shawn" wrote:

It would be faster to have the textbox results pasted to the worksheet and
do the have the formulas in your worksheet and then copy and paste speacial
the results where you want them. ie:

sheets("sheet1").range("a1").select
selection.contents=me.sbad.value
sheets(sheet1").range("a2").select
selection.contents = me.cad.value


Shawn


"Carlos" wrote in message
...
I have a Userform which does a LOT of calculatios but I´m using the direct
data from the Textboxes like this :

me.sbad.Value = Val(Me.sba) / Val(Me.tc)
me. cad.Value = Val(Me.ca) / Val(Me.tc)

Like these calculations I have a couple of hundred in the whole userform,
but then I have a button to display each result in a Worksheet, but it
takes
for ever to copy it to the worksheet, well like 20 seconds, But still its
a
lot of time just to copy and paste it to a worksheet.

I was wondering why is this happening ? and would it help if I use
variables
for all the calculations instead of the textboxes. Like this:

Dim salary as integer
dim wage as integer
dim rate as integer

salary= me.sba.Value
wage= me. ca.Value
rate=me.tc.value

me.sbad.Value = salary / rate
me. cad.Value = wage / rate

Thanks