View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Carl Hartness[_2_] Carl Hartness[_2_] is offline
external usenet poster
 
Posts: 63
Default What is better Variables or TextBox ?

Just an idea, if your userform isn't too complex, replace it with a
set of Forms controls, where each control can be linked to a cell.
Then the time of each value being put into its cell is hidden behind
the time you are navigating around the various controls. If you
judiciously select the location of the linked cells, you can pick them
up with an array and do lots of calcutions and validations in memory.

Carl.

On Jul 31, 9:08 am, Carlos wrote:
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- Hide quoted text -


- Show quoted text -