Userform Development

[bassmanfranc]

Excel 2003

I am developing a userform in Excel using MS Visual Basic

I would like to be able to have a form text box (?) perform a calculation
using numbers entered in previous fields, show the result of that calculation
immediately for visual confirmation and then enter that result in the proper
field in the database.
Example... enter the following into form fields:
Contract Cost: (enter no.)
Hard Costs: (enter no.)
Mark Up: (enter no.)
Gross Margin %: (formula; based on Markup/Contract Cost) (View this data
immediately on the form and then upon submitting form entering calculation in
GM% column with this project.

Also are there any limitations as to how many fields I can enter onto a
custom userform?

Thanks for any help!

 

[Susan]

bassmanfranc -
no, there is no limit to the number of textboxes, except for the size
of your userform. but you can get around that by using a multiform
with several pages (will increase the amount of space for textboxes).

as for performing calculations, you can do that.... see example below:

Option Explicit

Sub userform1_initialize()

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

Sub commandbutton1_click()

Dim TextBox1 As Control
Dim TextBox2 As Control
Dim TextBox3 As Control
Dim SUM As Integer

SUM = Me.TextBox1.Value / Me.TextBox2.Value

Me.TextBox3.Value = SUM

End Sub

but it doesn't calculate until you click the control button, which i
labeled "calculate". maybe somebody else can have it automatically
calculate with an event change tabbing from textbox2..........
hth!
susan

 

[Bob Phillips]

bassmanfranc -
no, there is no limit to the number of textboxes, except for the size
of your userform. but you can get around that by using a multiform
with several pages (will increase the amount of space for textboxes).

as for performing calculations, you can do that.... see example below:

Option Explicit

Sub userform1_initialize()

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

Sub commandbutton1_click()

Dim TextBox1 As Control
Dim TextBox2 As Control
Dim TextBox3 As Control
Dim SUM As Integer

SUM = Me.TextBox1.Value / Me.TextBox2.Value

Me.TextBox3.Value = SUM

End Sub

but it doesn't calculate until you click the control button, which i
labeled "calculate". maybe somebody else can have it automatically
calculate with an event change tabbing from textbox2..........

Private Sub TextBox1_Change()
If Me.TextBox2.Value <> "" Then
Me.TextBox3.Value = Me.TextBox1.Value / Me.TextBox2.Value
End If
End Sub

Private Sub TextBox2_Change()
If Me.TextBox1.Value <> "" Then
Me.TextBox3.Value = Me.TextBox1.Value / Me.TextBox2.Value
End If
End Sub

 

[Susan]

thanks bob! i knew it could but done, but didn't know how to do
it...... now i do! i thought it would have to be an event change,
didn't think of doing it with an if-statement.

susan

 

[bassmanfranc]

That was extremely helpful and yes it would be great to have it auto calc. if
possible.

I am now trying to get the SUM to show decimals (to 2 places only), which is
getting the best of me right now.

Any thoughts

 

[Susan]

bob's 2 private subs (which ARE event-change subs, duh to me.....) make
it auto calculate.
& re: decimals, a recent post said

http://groups.google.com/group/micr...extbox+decimals&rnum=5&hl=en#592253a31b8945d9
From: Paul Mathews - view profile
Date: Sat, Oct 14 2006 3:58 pm
Email: Paul Mathews <[email protected]>
Groups: microsoft.public.excel.programming

Amy, you could do something like this:

TextBox.Text = VBA.FormatNumber(Value,2)

where, in this example, 2 represents the number of decimal places that
will
be shown in the text box.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
susan

 

[Bob Phillips]

Private Sub TextBox1_Change()
If Me.TextBox2.Value <> "" Then
Me.TextBox3.Value = Round( _
Me.TextBox1.Value / Me.TextBox2.Value, 2)
End If
End Sub

Private Sub TextBox2_Change()
If Me.TextBox1.Value <> "" Then
Me.TextBox3.Value = Round( _
Me.TextBox1.Value / Me.TextBox2.Value, 2)
End If
End Sub



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[bassmanfranc]

I am really close to closing this form but I am getting Run Time Error 13 -
Type Mismatch when running the following code.

HELP!!!!

Please


Private Sub cmdAddPrj_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ProjectData")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a project number
If Trim(Me.txtPrjNo.Value) = "" Then
Me.txtPrjNo.SetFocus
MsgBox "Please enter a project number"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtPrjNo.Value
ws.Cells(iRow, 2).Value = Me.txtPrjNm.Value
ws.Cells(iRow, 9).Value = Me.txtPrjTyp.Value
ws.Cells(iRow, 10).Value = Me.txtCon.Value
ws.Cells(iRow, 11).Value = Me.txtEst.Value
ws.Cells(iRow, 12).Value = Me.txtPm.Value
ws.Cells(iRow, 21).Value = Me.txtJobcst.Value
ws.Cells(iRow, 22).Value = Me.txtHrdCst.Value
ws.Cells(iRow, 23).Value = Me.txtMrkup.Value
ws.Cells(iRow, 24).Value = Me.txtGm.Value
ws.Cells(iRow, 25).Value = Me.txtSfEa.Value
ws.Cells(iRow, 26).Value = Me.txtPrjCstSfEa.Value
ws.Cells(iRow, 27).Value = Me.txtHcSfEa.Value
ws.Cells(iRow, 28).Value = Me.txtMuSfEa.Value

'clear the data
Me.txtPrjNo.Value = ""
Me.txtPrjNm.Value = ""
Me.txtPrjTyp.Value = ""
Me.txtCon.Value = ""
Me.txtEst.Value = ""
Me.txtPm.Value = ""
Me.txtJobcst.Value = ""
Me.txtHrdCst.Value = ""
Me.txtMrkup.Value = ""
Me.txtGm.Value = ""
Me.txtSfEa.Value = ""
Me.txtPrjCstSfEa.Value = ""
Me.txtHcSfEa.Value = ""
Me.txtMuSfEa.Value = ""

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub txtHrdCst_Change()
If Me.txtSfEa.Value <> "" Then
Me.txtHcSfEa = FormatCurrency(Me.txtHrdCst.Value / Me.txtSfEa.Value, 2)
End If

End Sub

Private Sub txtJobcst_Change()
If Me.txtMrkup.Value <> "" Then
Me.txtGm.Value = FormatPercent(Me.txtMrkup.Value / Me.txtJobcst.Value, 2)
End If

End Sub

Private Sub txtMrkup_Change()
If Me.txtJobcst.Value <> "" Then
Me.txtGm.Value = FormatPercent(Me.txtMrkup.Value / Me.txtJobcst.Value, 2)
End If

If Me.txtSfEa.Value <> "" Then
Me.txtMuSfEa = FormatCurrency(Me.txtMrkup.Value / Me.txtSfEa.Value, 2)
End If


End Sub

Private Sub txtSfEa_Change()
If Me.txtJobcst.Value <> "" Then
Me.txtPrjCstSfEa = FormatCurrency(Me.txtJobcst.Value / Me.txtSfEa.Value, 2)
End If

If Me.txtHrdCst.Value <> "" Then
Me.txtHcSfEa = FormatCurrency(Me.txtHrdCst.Value / Me.txtSfEa.Value, 2)
End If

If Me.txtMrkup.Value <> "" Then
Me.txtMuSfEa = FormatCurrency(Me.txtMrkup.Value / Me.txtSfEa.Value, 2)
End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the Close Form button!"
End If
End Sub

 

[Chip Pearson]

What line of code causes the error?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com
(email address is on the web site)

 

[bassmanfranc]

The Debug points me to this line under the Private Sub txtJobcst_Change()

Me.txtGm.Value = FormatPercent(Me.txtMrkup.Value / Me.txtJobcst.Value, 2)

 

[Dave Peterson]

I'd check to see if those .values were both numeric and the denominator was <>
0.

if isnumeric(me.txtmrkup.value) _
and isnumeric(me.txtjobcst.value) then
if cdbl(me.txtjobcst.value) <> 0 then
Me.txtGm.Value = FormatPercent(cdbl(Me.txtMrkup.Value) _
/ cdbl(Me.txtJobcst.Value), 2)
end if
end if

 

[bassmanfranc]

That has seemed to work Dave!!!

Thanks everyone for your willingness to share your knowlege...I am now able
to use the form...

I may be trying to add to it soon so...I'll be back!