User Form Name

TriGuy51 · Jan 13, 2011

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.

Cloverken · Jan 13, 2011

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?

TriGuy51 · Jan 13, 2011

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.

Cloverken · Jan 13, 2011

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.

TriGuy51 · Jan 13, 2011

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.

Cloverken · Jan 13, 2011

Oh...Wait a minute. You are getting an error message? What is the error message?

TriGuy51 · Jan 13, 2011

The error is:

Run Time Error "91"
Object Variable or With Block Variable Not Set

Cloverken · Jan 13, 2011

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

TriGuy51 · Jan 14, 2011

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

User Form Name

TriGuy51

New Member

Cloverken

Active Member

TriGuy51

New Member

Cloverken

Active Member

TriGuy51

New Member

Cloverken

Active Member

TriGuy51

New Member

Cloverken

Active Member

TriGuy51

New Member

Similar threads

Share this page

User Form Name

New Member

Active Member

New Member

Active Member

New Member

Active Member

New Member

Active Member

New Member

Similar threads

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock