Help

[saziz]

I am trying to write a code to calculate efficiency of a process. The following code gives me "Object Required' Error Please educate me.

Private Sub CommandButton1_Click()
Dim NetLoad As Variant
Dim AveCoatWt As Variant
Dim WtGain As Variant
Dim solutionapplied As Variant

NetLoad.Value = TextBox1.Text

AveCoatWt.Value = TextBox2.Text
WtGain.Value = TextBox3.Text
solutiionapplied.Value = TextBox4.Text
TextBox5.Value = (TextBox4 / ((TextBox1 * TextBox2 * 1000000) * TextBox3))


End Sub

Thank you for your help.
Syed

[swatsp0p]

just a quick observation:

Dim solutionapplied As Variant

solutiionapplied.Value = TextBox4.Text

are different. Typo in "solutiionapplied...."???
and because you don't define "solutiionapplied" you get the stated error?

Good luck

[saziz]

Thank you Bruce for correction of typo. That did not helped.
How should I define solutionapplied?
Thanks
Syed

[saziz]

Please see my original post.
Thank you
Syed

[Dave Peterson]

You declared these things:

Dim NetLoad As Variant
Dim AveCoatWt As Variant
Dim WtGain As Variant
Dim solutionapplied As Variant

But you never set them to anything.

What are they?

saziz wrote:
>
> I am trying to write a code to calculate efficiency of a process. The
> following code gives me "Object Required' Error Please educate me.
>
> Private Sub CommandButton1_Click()
> Dim NetLoad As Variant
> Dim AveCoatWt As Variant
> Dim WtGain As Variant
> Dim solutionapplied As Variant
>
> NetLoad.Value = TextBox1.Text
>
> AveCoatWt.Value = TextBox2.Text
> WtGain.Value = TextBox3.Text
> solutiionapplied.Value = TextBox4.Text
> TextBox5.Value = (TextBox4 / ((TextBox1 * TextBox2 * 1000000) *
> TextBox3))
>
> End Sub
>
> Thank you for your help.
> Syed
>
> --
> saziz
> ------------------------------------------------------------------------
> saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
> View this thread: http://www.excelforum.com/showthread...hreadid=477205

--

Dave Peterson

[saziz]

Hi Dave,
The values for those are being input through textboxes.
Syed

[Dave Peterson]

Then those things are just holders for the values from the textboxes?

If yes, then each of those things will hold a string -- until/unless you convert
it to something else. And since you're doing arithmetic with them, maybe...

Private Sub CommandButton1_Click()
Dim NetLoad As double
Dim AveCoatWt As double
Dim WtGain As double
Dim solutionapplied As double

NetLoad = cdbl(TextBox1.Text)
AveCoatWt = cdbl(TextBox2.Text)
WtGain = cdbl(TextBox3.Text)
solutionapplied = cdbl(TextBox4.Text)

TextBox5.Value = (TextBox4 / ((TextBox1 * TextBox2 * 1000000) * TextBox3))

End Sub

These are simple variables--not objects (like ranges, which have a .value
property).

saziz wrote:
>
> Hi Dave,
> The values for those are being input through textboxes.
> Syed
>
> --
> saziz
> ------------------------------------------------------------------------
> saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
> View this thread: http://www.excelforum.com/showthread...hreadid=477205

--

Dave Peterson

[saziz]

Dave,
Thank you for the help.
What could be the format for % for textbox5 value?
I am trying this:
textbox5.text=format( formula, "%")
It gives me error.
Thnaks once again for your help.
Syed

[Dave Peterson]

Maybe...

textbox5.text=format( formula, "0.00%")

And you may not need those intermediate variables, too:

Option Explicit

Private Sub CommandButton1_Click()

TextBox5.Value _
= Format((Me.TextBox4.Value _
/ ((Me.TextBox1.Value * Me.TextBox2.Value * 1000000) _
* Me.TextBox3.Value)), "0.0%")

End Sub

But I would add some checks for numbers for each of those textboxes.

saziz wrote:
>
> Dave,
> Thank you for the help.
> What could be the format for % for textbox5 value?
> I am trying this:
> textbox5.text=format( formula, "%")
> It gives me error.
> Thnaks once again for your help.
> Syed
>
> --
> saziz
> ------------------------------------------------------------------------
> saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
> View this thread: http://www.excelforum.com/showthread...hreadid=477205

--

Dave Peterson