User Form Name

T

TriGuy51

New Member
Joined
Mar 23, 2010
Messages
25
I changed a user form name and now the user form will not start when I open the workbook. I use the "Workbook Open" event in the "Thios Workbook" section viz:

Private Sub Workbook_Open()
fm_flange_1.Show
End Sub

The new user form name is fm_flange_1. What do I need to do to get this to work again? Before, the name was fmflange and it worked fine.
icon7.gif
 

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.
Sort by date Sort by votes
Three things I can think of to check.

1. I would double check that you actually changed the "Name" of the UserForm which is listed as "Name" at the top of the properties window....Or did you change the "Caption" that displays the name on the UserForm?

2. Do you have the workbook saved as a Macro-Enabled workbook?

3. Your spelling in your question is correct between the two. Did you make sure you did not mispell between the Macro and the UserForm?
 
Upvote 0
The name was changed, not the caption.
The workbook is a macro enabled workbook that worked earlier.
The text in the post was copied verbaitim form the VB Editor window.
Thanks for the ideas.
 
Upvote 0
well that eliminates those ideas.

How about other code attached to the userform?

Do you have a cancel button with

Unload Me

to get rid of the Userform

My thought was that it is not closing and staying in memory.
 
Upvote 0
There is an exit button with an Unload username command. But I closed the workbook, exited Excel, and restarted the workbook and the error message still appears. There must be a trick to this that we are missing.
 
Upvote 0
It sounds like other code is stopping you. You need to post your other code to see what the problem is.

You do not need to set an object variable to run this macro

Code: 
Private Sub Workbook_Open()
fm_flange_1.Show
End Sub
 
Upvote 0
<!-- Please do not remove this header --><!-- Table easily created from Excel with ASAP Utilities (http://www.asap-utilities.com) --><table border="1" bordercolor="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="2" align="left"><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public Pi As Double, E As Double, Brg_size As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public S As Double, kk As Integer, ii As Integer, jj As Integer</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public zz3 As Variant, Rf As Double, rG As Double, GD_Start As Single</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public Beta1 As Double, Beta2 As Double, M As Double, M2 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public kk1 As Integer, jj1 As Integer, Lower_Brg_Size As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public Pt As Double, Pr As Double, zz1 As Variant, zz2 As Variant</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public tf As Single, z As Double, K1 As Double, B1 As Double, A1 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public BoltCircle As Double, End_Plate_R As Double, tP As Double, tfl As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public Report_Sheet As Object, Flange_Data As Object, AlphaF As Double, tl As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public Flange_Dia As Double, Shaft_Dia As Double, Gusset_Diam As Single</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Public BC As Double, BCL As Double, StiffR As Double, AL As Double, A9 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim A(3) As Double, Zind As Single</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Variable List</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ lstUpperBrg - Upper Bearing Size, inches (string)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ lstLowerBrg - Lower Bearing Size, inches (string)’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ txtRadial - Radial Bearing Load, pounds</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ txtThrust - Thrust Bearing Load, pounds</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ cboShaft - Input Shaft Diameter, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Shaft_Dia - Shaft Diameter, inches {defaults to standard}</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Gusset_Diam - Diameter of Inside Circle of Gussets, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ txtTorque - Torque Tube Diameter, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ txtThick - Torque Tube Thickness, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ txtCircle - Input Bolt Circle Diameter, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Brg_size - Decimal Number Upper Bearing Size</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Flange_Dia - Flange Outside Diameter, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ A(2) - Distance from Torque Tube to Bearing ***’y Centerline</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ S - Distance between Radial and Thrust Bearing Elements</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cboShaft_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Shaft_Dia < cboShaft.Value Then zz1 = MsgBox("The Shaft Diameter you have selected" & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">is larger than standard. Are you sure? & vbNewLine & "If Not, enter a different value" _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">, vbOKOnly, "SHAFT DIAMETER CHECK")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Shaft_Dia > cboShaft.Value Then zz1 = MsgBox("The Shaft Diameter you have selected" & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">is smaller than standard. Are you sure? & vbNewLine & "If Not, enter a different value" _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">, vbOKOnly, "SHAFT DIAMETER CHECK")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Shaft_Dia = cboShaft.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub Upper_Flange()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim K1f As Double, K2 As Double, K2f As Double, ThetaF1 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim Af As Double, Aa As Double, AlphaS As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim SigmaF1 As Double, SigmaT1 As Double, DeltaF1 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim SigmaMf As Double, SigmaMf1 As Double, DeltaF2 As Double, ThetaF2 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim fBf As Double, fBf1 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Initialize variables at zero</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = K1 = K1f = K2 = K2f = M = M2 = B1 = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Af = Aa = AlphaS = rG = Rf = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = SigmaF1 = DeltaF1 = ThetaF1 = DeltaF2 = ThetaF2 = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT1 = SigmaFT = SigmaMf1 = fBf = fBf1 = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Gusset_Diam < 0.5 Then Gusset_Diam = Shaft_Dia</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If GD_Start > 1 Then Gusset_Diam = GD_Start</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">rG = Gusset_Diam / 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Rf = BC</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz3 = MsgBox("Rf= " & Format(Rf, Fixed) & vbNewLine & "rG= " & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Format(rG, Fixed), vbOKOnly, "Flange & Gusset Radii")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = Rf / rG</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1 = (-0.20384 / z) - 0.7750785 + (1.474197 * z) - (0.805091 * z ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1 = K1 + (0.296916 * z ^ 3) - (0.064296 * z ^ 4) + (0.00792234 * z ^ 5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1f = K1 - (0.00051358 * z ^ 6) + (0.0000135693 * z ^ 7)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = (-2.4307 / z) + 6.44806 - (7.24904 * z) + (4.31759 * z ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = K2 - (1.43661 * z ^ 3) + (0.279151 * z ^ 4) - (0.0315029 * z ^ 5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = K2 + (0.00190073 * z ^ 6) - (0.000047314 * z ^ 7)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2f = K2 / 4</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = 1 / z</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = 3.641318 - (18.93718 * z) + (55.18613 * z ^ 2) - (31.8239 * z ^ 3)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 - (454.4789 * z ^ 4) + (1816.176 * z ^ 5) - (3383.239 * z ^ 6)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 + (3505.232 * z ^ 7) - (1949.569 * z ^ 8) + (454.8781 * z ^ 9)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Beta2 = Exp(B1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = Rf / rG ’ Ratio of Flange Radius to Gusset/Shaft Radius</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("Z= " & Format(z, Fixed), vbOKOnly, "Rf/rG")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaF1 = ((2 * Rf ^ 2 * Log(Rf / rG)) / (Rf ^ 2 - rG ^ 2)) - 1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaF1 = 3 * Pt * SigmaF1 / (2 * Pi * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaFT = K1f * Pt / (tf ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If SigmaF1 > SigmaFT Then SigmaFT = SigmaF1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M = (A(1) + S) * Pr</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M2 = (A(2) + S) * Pr</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaMf = Beta2 * M / (Rf * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaMf1 = Beta2 * M2 / (Rf * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("SigmaF1, psi=" & Format(SigmaF1, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "SigmaFT, psi=" & Format(SigmaFT, Fixed) & vbNewLine _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "SigmaMf, psi=" & Format(SigmaMf, Fixed) & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaMf1, psi= & Format(SigmaMf1, Fixed), vbOKOnly, "Stresses")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">fBf = Int(SigmaFT + SigmaMf + 0.5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">fBf1 = Int(SigmaFT + SigmaMf1 + 0.5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">DeltaF1 = K2f * Pt * (Rf ^ 2) / (E * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">ThetaF1 = M / (AlphaF * E * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">ThetaF2 = M2 / (AlphaF * E * (tf ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("Torque Tube Diameter, in.=" & Format(txtTorque.Value, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Wall Thk, in.=" & Format(txtThick.Value, Fixed) & vbCrLf & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Bearing Size, in.= & Format(Brg_size, Fixed) & vbNewLine & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S (cL Bearing to cL Radial Bearing): & Format(S, "##.####") & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Shaft Diameter=" & Format(Shaft_Dia, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Gusset Diameter=" & Format(Gusset_Diam, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Bolt Circle Diameter=" & Format(txtBoltCircle.Value, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "cL Bearing to Torque Tube=" & Format(A(1), Fixed) & " In." & vbTab & Format(A(2), Fixed) & " In." & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Thrust Load, Lbs=" & Format(Pt, "######") & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Radial Load, Lbs= & Format(Pr, "######") & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Flange Thickness minus index (in.)=" & Format(tf, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Net Stress=" & Format(fBf, "#####") & " psi" & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Deflection= & Format(DeltaF1, "#.#####") & " Inches" & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Theta= & Format(ThetaF1, "#.#####") & " Degrees", _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbOKOnly, "Screw Pump Upper Flange Plate Analysis")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Gusset_Diam < 0.5 Then Range("F29").Value = Shaft_Dia Else Range("F29").Value = Gusset_Diam</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Gusset_Diam < 0.5 Then Range("B29").Value = "SHAFT DIAMETER" Else Range("B29").Value = "GUSSET DIAMETER"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F30").Value = tf</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F31").Value = fBf: Range("H31").Value = fBf1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F32").Value = DeltaF1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F33").Value = ThetaF1: Range("H33").Value = ThetaF2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub Upper_Plate()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Pt - Thrust Load, pounds</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Pr - Radial Load, pounds</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ tP - Total Thickness of End Plate, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ End_Plate_R - End Plate Radius, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ BC - Bolt Circle Radius, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ A(x)- cL Bearing to Torque Tube Distance, inches</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim K1s As Double, K2 As Double, K2s As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim Af As Double, Aa As Double, AlphaS As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim SigmaT1 As Double, A9 As Double, fb As Double, fb2 As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim ThetaPt2 As Double, ThetaPt As Double</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Initialize Variables as Zero</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = K1 = K1s = K2 = K2s = B1 = BC = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Af = AlphaF = Aa = AlphaS = Beta1 = fb = fb2 = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A9 = A1 = B1 = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BC = 0.5 * txtBoltCircle.Value ’ Converts Bolt circle diameter to radius</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz2 = MsgBox("BC= " & Format(BC, "#.####"), vbOKOnly, "Bolt Circle Radius")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT1 = SigmaM2 = DeltaPt = ThetaPt = ThetaPt2 = SigmaM = SigmaT = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = End_Plate_R / BC</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1 = (0.16567 / z) - 2.11143 + (2.98777 * z) - (1.408744 * z ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1 = K1 + (0.4439084 * z ^ 3) - (0.08653273 * z ^ 4) + (0.009962114 * z ^ 5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K1s = K1 - (0.0006175347 * z ^ 6) + (0.0000158269 * z ^ 7)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = (-4.418 / z) + 9.319636 - (9.004032 * z) + (4.947815 * z ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = K2 - (1.502072 * z ^ 3) + (0.2701979 * z ^ 4) - (0.02861277 * z ^ 5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2 = K2 + (0.001644328 * z ^ 6) - (0.00003947057 * z ^ 7)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">K2s = K2 / 4</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Calculate Alpha for fixed edge</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = 1 / z</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Af = -0.04568368 / z + 0.1756625 - 1.142853 * z + 33.67796 * z ^ 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Af = Af - 95.15756 * z ^ 3 + 158.3737 * z ^ 4 - 129.8911 * z ^ 5</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Af = Af + 36.10129 * z ^ 6 + 0.299262 * z ^ 7</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’AlphaF = Exp(Af)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Aa = -0.1027886 / z + 2.056622 - 28.97661 * z + 219.6893 * z ^ 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Aa = Aa - 829.1435 * z ^ 3 + 1852.936 * z ^ 4 - 2401.498 * z ^ 5</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’Aa = Aa + 1671.619 * z ^ 6 - 479.083 * z ^ 7</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’AlphaS = Exp(Aa)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("z= " & Format(z, "#.#####"), vbOKOnly, "z")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("End Plate Radius=" & Format(End_Plate_R, "##.###"), vbOKOnly, "End Plate Radius")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A9 = -2.949811 + 63.74034 * z - 667.0603 * z ^ 2 + 4157.522 * z ^ 3</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A9 = A9 - 15735.61 * z ^ 4 + 37606.43 * z ^ 5 - 56942.91 * z ^ 6</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A9 = A9 + 52920.16 * z ^ 7 - 27505.62 * z ^ 8 + 6117.03 * z ^ 9</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AlphaS = Exp(A9)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A1 = -7.02700514 + 180.47301 * z - 1957.97449 * z ^ 2 + 11928.74719 * z ^ 3</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A1 = A1 - 43923.4968 * z ^ 4 + 102178.3059 * z ^ 5 - 151062.938 * z ^ 6</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A1 = A1 + 137568.2651 * z ^ 7 - 70315.6869 * z ^ 8 + 15425.46295 * z ^ 9</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AlphaF = Exp(A1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = 1.38181 + (44.89796 * z) - (672.2477 * z ^ 2) + (4466.063 * z ^ 3)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 - (17224.35 * z ^ 4) + (41330.4 * z ^ 5) - (62616.76 * z ^ 6)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 + (58247.48 * z ^ 7) - (30363.87 * z ^ 8) + (6786.714 * z ^ 9)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Beta1 = Exp(B1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("B1= " & Format(B1, Fixed), vbOKOnly, "B1")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT1 = 7 * (End_Plate_R ^ 2 - BC ^ 2) + 26 * End_Plate_R ^ 2 * Log(End_Plate_R / BC)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT1 = SigmaT1 / (13 * End_Plate_R ^ 2 + 7 * BC ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT1 = SigmaT1 * 3 * Pt / (2 * Pi * tP ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaT = K1s * Pt / (tP ^ 2) ’ Pt - Thrust Load</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If SigmaT < SigmaT1 Then SigmaT = SigmaT1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M = (A(1) + S) * Pr ’ Pr - Radial Load</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaM = Beta1 * M / (End_Plate_R * (tP ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">fb = Int(SigmaM + SigmaT + 0.5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">DeltaPt = K2s * Pt * End_Plate_R ^ 2 / (E * tP ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">ThetaPt = M / (AlphaS * E * tP ^ 3)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M2 = (A(2) + S) * Pr</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaM2 = Beta1 * M2 / (End_Plate_R * (tP ^ 2))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("SigmaM= " & Format(SigmaM, Fixed) & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaM2= & Format(SigmaM2, Fixed), vbOKOnly, "Sigmas")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">fb2 = Int(SigmaM2 + SigmaT + 0.5)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">ThetaPt2 = M2 / (AlphaS * E * tP ^ 2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz1 = MsgBox("Torque Tube Diameter, in.=" & Format(txtTorque.Value, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Wall Thk, in.=" & Format(txtThick.Value, Fixed) & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Bearing Size, in.= & Format(Brg_size, Fixed) & vbNewLine & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S (cL Bearing to cL Radial Bearing): & Format(S, "##.####") & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "End Plate Radius=" & Format(End_Plate_R, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Bolt Circle Diameter=" & Format(txtBoltCircle.Value, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "cL Bearing to Torque Tube=" & Format(A(1), Fixed) & " In." & vbTab & Format(A(2), Fixed) & " In." & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Thrust Load, Lbs=" & Format(Pt, "######") & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Radial Load, Lbs= & Format(Pr, "######") & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Total End Plate Thickness, in.=" & Format(tP, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Net Stress=" & Format(fB, "#####") & " psi" & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Deflection= & Format(DeltaPt, "#.#####") & " in." & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Theta= & Format(ThetaPt, "#.#####") & " degrees", _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbOKOnly, "Screw Pump Upper End Plate Analysis")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F23").Value = fb: Range("H23").Value = fb2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F24").Value = DeltaPt</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F25").Value = ThetaPt: Range("H25").Value = ThetaPt2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F26").Value = tP</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub Lower_Flange()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim zz9 As Variant</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Initialize Variables at Zero</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = B1 = M = Beta2 = SigmaMlf = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = StiffR / BCL</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = 3.641318 - (18.93718 * z) + (55.18613 * z ^ 2) - (31.8239 * z ^ 3)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 - (454.4789 * z ^ 4) + (1816.176 * z ^ 5) - (3383.239 * z ^ 6)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 + (3505.232 * z ^ 7) - (1949.569 * z ^ 8) + (454.8781 * z ^ 9)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz9 = MsgBox("B1= " & Format(B1, Fixed), vbOKOnly)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Beta2 = Exp(B1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M = AL * Pr</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaMlf = Int(Beta2 * M / (BCL * (tfl ^ 2)))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F43").Value = tfl</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F44").Value = SigmaMlf</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub Lower_Plate()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim zz9 As Variant</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Initialize Variables at Zero</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = B1 = M = Beta1 = SigmaMlp = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z = BCL / End_Plate_R</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz9 = MsgBox("BCL= " & Format(BCL, Fixed) & vbNewLine & "End Plate R= " & Format(End_Plate_R, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">z= & Format(z, Fixed), vbOKOnly)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = 1.38181 + (44.89796 * z) - (672.2477 * z ^ 2) + (4466.063 * z ^ 3)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 - (17224.35 * z ^ 4) + (41330.4 * z ^ 5) - (62616.76 * z ^ 6)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">B1 = B1 + (58247.48 * z ^ 7) - (30363.87 * z ^ 8) + (6786.714 * z ^ 9)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz9 = MsgBox("B1= " & Format(B1, Fixed), vbOKOnly)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Beta1 = Exp(B1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">M = AL * Pr</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">SigmaMlp = Int(Beta1 * M / (End_Plate_R * (tl ^ 2)))</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F36").Value = Lower_Brg_Size</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F37").Value = BCL * 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F38").Value = AL</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F39").Value = tl</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F40").Value = SigmaMlp</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub AllClear()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtJobName = ""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtSO = ""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtInit = ""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtRadial.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtThrust.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtTorque.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtGusset.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtThick.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtUpperPlate.Value = -1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtUpperFlange.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtBoltCircle.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtLowerFlange.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtLowerPlate.Value = -1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">For jj = 1 To 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(jj) = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Next jj</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Range("B29").Value = "SHAFT DIAMETER"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Range("F12:I44").ClearContents</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Range("H1:H3").ClearContents</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cmdClear_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Call AllClear</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cmdExit_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Zind = 1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Set Report_Sheet = Worksheets("Screw.Pump.End.Plate.Report")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Call AllClear</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Sheets("Flange.Data").Visible = False</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Unload uflange</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">ThisWorkbook.Close SaveChanges:=True</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cmdGenerate_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If GD_Start > 0.01 Then zz2 = "Gusset Diameter=" & Format(GD_Start, "##.#####")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If GD_Start > 0.01 Then zz3 = MsgBox(zz2, vbOKOnly, "Gusset Diameter")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">E = 29000000# ’ Young’s Modulus of Steel</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Set Report_Sheet = Worksheets("Screw.Pump.End.Plate.Report")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Pi = 4 * Atn(1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End_Plate_R = txtTorque.Value / 2 - txtThick.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Call Report_Init</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Data.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Call Upper_Plate: Call Upper_Flange: Call Lower_Plate: Call Lower_Flange</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("H1").Value = txtJobName.Text</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("H2").Value = txtSO.Text</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("H3").Value = txtInit.Text</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F12").Value = txtTorque.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F13").Value = txtThick.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F14").Value = Brg_size</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F15").Value = txtThrust.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F16").Value = txtRadial.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F17").Value = Lower_Brg_Size</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F18").Value = End_Plate_R * 2</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F19").Value = BoltCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("F20").Value = A(1): Range("H20").Value = A(2)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cmdPreview_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">uflange.Hide</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Application.OnTime Now + TimeValue("00:00:45"), "Show1"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub cmdPrint_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Application.Dialogs(xlDialogPrinterSetup).Show</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.PrintOut</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub uflange_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub lstLowerBrg_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Set Flange_Data = Worksheets("Flange.Data")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Data.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case lstLowerBrg</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "3"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Lower_Brg_Size = 3</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AL = Range("D2").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BCL = 3.375</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">StiffR = Range("C2").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "4 1/2"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Lower_Brg_Size = 4.5</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AL = Range("D3").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BCL = 4.75</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">StiffR = Range("C3").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "6"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Lower_Brg_Size = 6</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AL = Range("D4").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BCL = 10.5</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">StiffR = Range("C4").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "8 3/4"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Lower_Brg_Size = 8.75</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">AL = Range("D5").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BCL = 12</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">StiffR = Range("C5").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ zz3 = MsgBox("Lower Bearing Size= " & Format(lstLowerBrg.Value, Fixed) & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">vbNewLine & "Moment Arm= " & Format(AL, Fixed) & vbNewLine & "Bolt Circle= " & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Format(BCL, Fixed), vbOKOnly, "Lower Bearing Parameters")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub lstUpperBrg_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Set Flange_Data = Worksheets("Flange.Data")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Data.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case lstUpperBrg</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "2 3/4"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Brg_size = 2.75: Shaft_Dia = Range("F14").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S = Range("F8").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(1) = Range("F6").Value: A(2) = A(1)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "4 1/2"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Brg_size = 4.5: Shaft_Dia = Range("G14").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S = Range("G8").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(1) = Range("G6").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(2) = Range("G7").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "6"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Brg_size = 6: Shaft_Dia = Range("H14").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S = Range("H8").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(1) = Range("H6").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(2) = Range("H7").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "9"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Brg_size = 9: Shaft_Dia = Range("I14").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S = Range("I8").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(1) = Range("I6").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(2) = Range("I7").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "10 1/2"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Brg_size = 10.5: Shaft_Dia = Range("J14").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">S = Range("J8").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(1) = Range("J6").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(2) = Range("J7").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’zz1 = MsgBox("S= " & Format(S, Fixed) & " In.", vbOKOnly, "S, Inches")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’zz2 = MsgBox("A(1)= " & Format(A(1), Fixed) & " In." & vbNewLine & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">A(2)= & Format(A(2), Fixed) & " In.", vbOKOnly, "Moment Arms")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub optGNo_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtGusset.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub optGYes_Click()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ Define stiffened dimensions of shafts with gussets</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Data.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case lstUpperBrg</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "2 3/4"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = Range("F38").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "4 1/2"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = Range("G38").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "6"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = Range("H38").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "9"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = Range("I38").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case "10 1/2"""</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Gusset_Diam = Range("J38").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = "Gusset Diameter=" & Format(Gusset_Diam, "##.#####")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz3 = MsgBox(zz2, vbOKOnly, "Gusset Diameter")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtBoltCircle_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz1 = "WARNING NOTE!!" & vbCrLf & "The bolt circle diameter you have input" & vbCrLf _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "is too large for this torque tube diameter." & vbCrLf & "Please enter a smaller value."</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If txtBoltCircle.Value > BoltCircle And txtBoltCircle.Value > txtTorque.Value Then zz2 = MsgBox(zz1, vbOKOnly, vbExclamation)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If txtBoltCircle.Value > BoltCircle And txtBoltCircle.Value < txtTorque.Value Then BoltCircle = txtBoltCircle.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub BCircle()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtBoltCircle.Value = BoltCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtGusset_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">GD_Start = txtGusset.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtInit_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtJobName_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtLowerFlange_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tfl = txtLowerFlange.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtLowerPlate_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tl = txtLowerPlate.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz1 = "The end plate thickness you have input" & vbCrLf _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "is either too large or too small." & vbCrLf & "Please enter a different value."</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case tl</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case 0.1 To 0.999</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = MsgBox(zz1, vbOKOnly, "LOWER PLATE THICKNESS WARNING NOTE!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is > 4#</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = MsgBox(zz1, vbOKOnly, "LOWER PLATE THICKNESS WARNING NOTE!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case 0 To 0.1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Zind <> 100 Then zz2 = MsgBox("Enter an Lower Plate Thickness!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtRadial_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Pr = txtRadial.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtSO_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtThick_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtThrust_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Pt = txtThrust.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" align="right" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000"></font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtTorque_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Data.Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Brg_size < 2.8 Then</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case txtTorque.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is <= 8#</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Range("F21").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Range("F35").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("F40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is > 8</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Range("F24").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Range("F36").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("G40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End If</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Brg_size > 3 And Brg_size < 5 Then</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case txtTorque.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is < 23</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Range("G21").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Range("G35").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("H40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is >= 24</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Range("G24").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Range("G36").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("I40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End If</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Brg_size < 7 And Brg_size > 5 Then</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Flange_Data.Range("H21").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Flange_Data.Range("H35").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("H40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End If</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Brg_size < 9.5 And Brg_size > 8 Then</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Flange_Data.Range("I21").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Flange_Data.Range("I35").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("I40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End If</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Brg_size < 10.7 And Brg_size > 10 Then</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">BoltCircle = Flange_Data.Range("J21").Value: Call BCircle</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Flange_Dia = Flange_Data.Range("J35").Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = Range("J40").Value ’ Flange Thickness</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End If</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’ If txtTorque.Value > 9 Then zz1 = MsgBox("No. of Bolts=" & Format(BoltN, Fixed) & vbCrLf _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "Bolt Dia.=" & Format(BoltDia, Fixed) & vbCrLf _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "Bolt Circle Dia.=" & Format(BoltCircle, Fixed), vbOKOnly)</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub Report_Init()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Dim IN1 As String, DEG1 As String, LB As String, PSI1 As String</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Activate</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">IN1 = "IN.": DEG1 = "DEG.": LB = "LBS.": PSI1 = "PSI"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G12:G14").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G15:G16").Value = Format(LB, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G17:G20").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("I20").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G23").Value = Format(PSI1, "&&&&"): Range("I23").Value = Format(PSI1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G24").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G25").Value = Format(DEG1, "&&&&"): Range("I25").Value = Format(DEG1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G26").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G29:G30").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G31").Value = Format(PSI1, "&&&&"): Range("I31").Value = Format(PSI1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">’</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G32").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G33").Value = Format(DEG1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("I33").Value = Format(DEG1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G36:G39").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G40").Value = Format(PSI1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G43").Value = Format(IN1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Range("G44").Value = Format(PSI1, "&&&&")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub UserForm_Initialize()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Sheets("Flange.Data").Visible = True</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Set Flange_Data = Worksheets("Flange.Data")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Worksheets("Screw.Pump.End.Plate.Report").Activate</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Call AllClear</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">GD_Start = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtSO.Value = "11-1XX"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtJobName.Value = "Anyplace, USA"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">txtGusset.Value = 0</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Zind = 100</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Report_Sheet.Range("B29").Value = "SHAFT DIAMETER"</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtUpperFlange_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = "The flange plate thickness you have input" & vbNewLine _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "is a non-standard value." & vbNewLine & "If you are in error, press OK and re-enter." & _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If not, press OK</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If txtUpperFlange.Value < 0.5 And txtUpperFlange.Value > 4# Then zz2 = MsgBox(zz1, vbOKOnly + vbExclamation, "WARNING NOTE!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tf = txtUpperFlange.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Private Sub txtUpperPlate_Change()</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz1 = "The end plate thickness you have input" & vbCrLf _</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">& "is either too large or too small." & vbCrLf & "Please enter a different value."</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">tP = txtUpperPlate.Value</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Select Case tP</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case 0.1 To 0.999</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = MsgBox(zz1, vbOKOnly, "UPPER PLATE THICKNESS WARNING NOTE!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case Is > 4#</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">zz2 = MsgBox(zz1, vbOKOnly, "UPPER PLATE THICKNESS WARNING NOTE!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">Case 0 To 0.1</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">If Zind <> 100 Then zz2 = MsgBox("Enter an Upper Plate Thickness!")</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Select</font></td></tr><tr><td bgcolor="#FFFFFF" valign="bottom" style="white-space: nowrap"><font face="Tahoma" size="2" color="#000000">End Sub</font></td></tr></table>
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Question
Show Login Form If Workbook In Active
Replies
3
Views
127
Pacman52
P
B
  • Question
Cannot Exit Design Mode Error
Replies
5
Views
135
bisel
B
I
  • Solved
Clear checkbox when workbook open advice
Replies
5
Views
158
smozgur
smozgur
I
  • Solved
If value isnt in userform drop down list then allow user to add it
2 3
Replies
20
Views
679
ipbr21054
I
A
  • Question
Record (Row) Locking in Excel
Replies
6
Views
266
Jeffrey Mahoney
Jeffrey Mahoney

Forum statistics

Threads
1,221,310
Messages
6,159,176
Members
451,543
Latest member
cesymcox

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top