VBA is odd function
Robert Dieckmann wrote:
I am still having some trouble implementing this.
I use a text box on a form to enter a value into the spreadsheet using the
control source- txtHt.value = 25 for example.
the following code prints out A53:AI104 like I want it to.
If chkBld.Value = True Then
Odd = Val("25")
If Odd Mod 2 = 1 Then
Sheets("Buildup").Select
Range("A53:AI104").Select
Selection.PrintOut Copies:=1, Collate:=True
Else
Sheets("Buildup").Select
Range("A1:AI52").Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End If
These always print out A1:AI52 (the rest of the code being the same)
Odd = Val(txtHt)
Odd = Val("txtHt")
These give me an object required error
Odd = Val(txtHt.Value)
Odd = txtHt.Value
What I am I missing?
Bob
Hi,
The only way I can figure out how you are getting an "object required"
error at the line Odd = Val(txtHt.Value) is if you are not using option
explicit and if you have mistyped the name of the textbox. Check the
name in the properties of the textbox. Val wouldn't throw such an error
but txtHt.value might.
Hope that helps
-John Coleman
-John Coleman
|