Hello Everyone!
Need help with some code, this is what I have but first off its just a very basic calculator to come up with a scale factor. I have this dialog box seen in pic, and this code:
[VBA]Private Sub CommandButton1_Click()
Dim crfeet As Double
Dim crinch As Double
Dim nrfeet As Double
Dim nrinch As Double
Dim cfeet As Double
Dim nfeet As Double
Dim fscale As Double
cfeet = (crfeet * 12) + crinch ' For Text Box input
nfeet = (nrfeet * 12) + nrinch ' For Text Box input
fscale = (cfeet / nfeet)
Dim Msg, Style, Title, Response, MyString
Msg = "fscale" ' Define message.
Style = CommandButton1 ' Define buttons.
Title = "Scale Factor" ' Define title.
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
End Sub
[/VBA]
But Its hanging up on this part:
[VBA]fscale = (cfeet / nfeet)
[/VBA]
Any help is appreciated!