Private Sub UserForm_Initialize()
lFrmHdl = FindWindow(vbNullString, Me.Caption)
Dim wlong As Long
wlong = GetWindowLong(lFrmHdl, GWL_EXSTYLE)
wlong = wlong And WS_SYSMENU Or WS_EX_APPWINDOW
SetWindowLong lFrmHdl, GWL_EXSTYLE, wlong
wlong = GetWindowLong(lFrmHdl, GWL_STYLE)
wlong = wlong Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lFrmHdl, GWL_STYLE, wlong
TextBox1.Value = Range("E2").Value
TextBox21.Value = Range("E15").Value
TextBox22.Value = Range("G15").Value
TextBox23.Value = Range("I15").Value
End Sub
Private Sub TextBox1_Change()
Range("E2").Value = TextBox1.Value
Range("E3").Value = TextBox2.Value
TextBox3.Value = Range("E4").Value
TextBox14.Value = Range("I4").Value
Range("E5").Value = TextBox4.Value
TextBox5.Value = Range("E6").Value
TextBox15.Value = Range("I6").Value
Range("E7").Value = TextBox6.Value
TextBox7.Value = Range("E8").Value
TextBox16.Value = Range("I8").Value
Range("E9").Value = TextBox8.Value
TextBox9.Value = Range("E10").Value
TextBox17.Value = Range("I10").Value
Range("E11").Value = TextBox10.Value
TextBox11.Value = Range("E12").Value
TextBox18.Value = Range("I12").Value
Range("E13").Value = TextBox12.Value
TextBox13.Value = Range("E14").Value
TextBox19.Value = Range("I14").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox20_Change()
Range("I2").Value = TextBox20.Value
End Sub
Private Sub TextBox21_Change()
Range("E15").Value = TextBox21.Value
End Sub
Private Sub TextBox22_Change()
Range("G15").Value = TextBox22.Value
End Sub
Private Sub TextBox23_Change()
Range("I15").Value = TextBox23.Value
End Sub
Private Sub TextBox2_Change()
TextBox2.Text = UCase(TextBox2.Text)
Range("E2").Value = TextBox1.Value
Range("E3").Value = TextBox2.Value
TextBox3.Value = Range("E4").Value
TextBox14.Value = Range("I4").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox4_Change()
TextBox4.Text = UCase(TextBox4.Text)
Range("E2").Value = TextBox1.Value
Range("E5").Value = TextBox4.Value
TextBox5.Value = Range("E6").Value
TextBox15.Value = Range("I6").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox6_Change()
TextBox6.Text = UCase(TextBox6.Text)
Range("E2").Value = TextBox1.Value
Range("E7").Value = TextBox6.Value
TextBox7.Value = Range("E8").Value
TextBox16.Value = Range("I8").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox8_Change()
TextBox8.Text = UCase(TextBox8.Text)
Range("E2").Value = TextBox1.Value
Range("E9").Value = TextBox8.Value
TextBox9.Value = Range("E10").Value
TextBox17.Value = Range("I10").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox10_Change()
TextBox10.Text = UCase(TextBox10.Text)
Range("E2").Value = TextBox1.Value
Range("E11").Value = TextBox10.Value
TextBox11.Value = Range("E12").Value
TextBox18.Value = Range("I12").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox12_Change()
TextBox12.Text = UCase(TextBox12.Text)
Range("E2").Value = TextBox1.Value
Range("E13").Value = TextBox12.Value
TextBox13.Value = Range("E14").Value
TextBox19.Value = Range("I14").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub CommandButton1_Click()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application.8")
appWD.Visible = False
Sheets("Calculator").Select
Sheets("Template").Range("A10").Value = Range("J2").Value
Sheets("Template").Range("A11").Value = Range("J3").Value
Sheets("Template").Range("A14").Value = Range("J4").Value
Sheets("Template").Range("A18").Value = Range("J5").Value
Sheets("Template").Range("A21").Value = Range("J6").Value
Sheets("Template").Range("A22").Value = Range("J7").Value
Sheets("Template").Range("A24").Value = Range("J8").Value
Sheets("Template").Range("A26").Value = Range("J9").Value
Sheets("Template").Range("A28").Value = Range("J10").Value
Sheets("Template").Range("A30").Value = Range("J11").Value
Sheets("Template").Range("A32").Value = Range("J12").Value
Sheets("Template").Select
Range("A1:A103").Copy
appWD.Documents.Add
appWD.Selection.Paste
appWD.ActiveDocument.SaveAs Filename:="G:\Fadal\BRAD\Temp.doc"
appWD.ActiveDocument.Close
appWD.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub
lFrmHdl = FindWindow(vbNullString, Me.Caption)
Dim wlong As Long
wlong = GetWindowLong(lFrmHdl, GWL_EXSTYLE)
wlong = wlong And WS_SYSMENU Or WS_EX_APPWINDOW
SetWindowLong lFrmHdl, GWL_EXSTYLE, wlong
wlong = GetWindowLong(lFrmHdl, GWL_STYLE)
wlong = wlong Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lFrmHdl, GWL_STYLE, wlong
TextBox1.Value = Range("E2").Value
TextBox21.Value = Range("E15").Value
TextBox22.Value = Range("G15").Value
TextBox23.Value = Range("I15").Value
End Sub
Private Sub TextBox1_Change()
Range("E2").Value = TextBox1.Value
Range("E3").Value = TextBox2.Value
TextBox3.Value = Range("E4").Value
TextBox14.Value = Range("I4").Value
Range("E5").Value = TextBox4.Value
TextBox5.Value = Range("E6").Value
TextBox15.Value = Range("I6").Value
Range("E7").Value = TextBox6.Value
TextBox7.Value = Range("E8").Value
TextBox16.Value = Range("I8").Value
Range("E9").Value = TextBox8.Value
TextBox9.Value = Range("E10").Value
TextBox17.Value = Range("I10").Value
Range("E11").Value = TextBox10.Value
TextBox11.Value = Range("E12").Value
TextBox18.Value = Range("I12").Value
Range("E13").Value = TextBox12.Value
TextBox13.Value = Range("E14").Value
TextBox19.Value = Range("I14").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox20_Change()
Range("I2").Value = TextBox20.Value
End Sub
Private Sub TextBox21_Change()
Range("E15").Value = TextBox21.Value
End Sub
Private Sub TextBox22_Change()
Range("G15").Value = TextBox22.Value
End Sub
Private Sub TextBox23_Change()
Range("I15").Value = TextBox23.Value
End Sub
Private Sub TextBox2_Change()
TextBox2.Text = UCase(TextBox2.Text)
Range("E2").Value = TextBox1.Value
Range("E3").Value = TextBox2.Value
TextBox3.Value = Range("E4").Value
TextBox14.Value = Range("I4").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox4_Change()
TextBox4.Text = UCase(TextBox4.Text)
Range("E2").Value = TextBox1.Value
Range("E5").Value = TextBox4.Value
TextBox5.Value = Range("E6").Value
TextBox15.Value = Range("I6").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox6_Change()
TextBox6.Text = UCase(TextBox6.Text)
Range("E2").Value = TextBox1.Value
Range("E7").Value = TextBox6.Value
TextBox7.Value = Range("E8").Value
TextBox16.Value = Range("I8").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox8_Change()
TextBox8.Text = UCase(TextBox8.Text)
Range("E2").Value = TextBox1.Value
Range("E9").Value = TextBox8.Value
TextBox9.Value = Range("E10").Value
TextBox17.Value = Range("I10").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox10_Change()
TextBox10.Text = UCase(TextBox10.Text)
Range("E2").Value = TextBox1.Value
Range("E11").Value = TextBox10.Value
TextBox11.Value = Range("E12").Value
TextBox18.Value = Range("I12").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub TextBox12_Change()
TextBox12.Text = UCase(TextBox12.Text)
Range("E2").Value = TextBox1.Value
Range("E13").Value = TextBox12.Value
TextBox13.Value = Range("E14").Value
TextBox19.Value = Range("I14").Value
TextBox1.Value = Range("I20").Value
End Sub
Private Sub CommandButton1_Click()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application.8")
appWD.Visible = False
Sheets("Calculator").Select
Sheets("Template").Range("A10").Value = Range("J2").Value
Sheets("Template").Range("A11").Value = Range("J3").Value
Sheets("Template").Range("A14").Value = Range("J4").Value
Sheets("Template").Range("A18").Value = Range("J5").Value
Sheets("Template").Range("A21").Value = Range("J6").Value
Sheets("Template").Range("A22").Value = Range("J7").Value
Sheets("Template").Range("A24").Value = Range("J8").Value
Sheets("Template").Range("A26").Value = Range("J9").Value
Sheets("Template").Range("A28").Value = Range("J10").Value
Sheets("Template").Range("A30").Value = Range("J11").Value
Sheets("Template").Range("A32").Value = Range("J12").Value
Sheets("Template").Select
Range("A1:A103").Copy
appWD.Documents.Add
appWD.Selection.Paste
appWD.ActiveDocument.SaveAs Filename:="G:\Fadal\BRAD\Temp.doc"
appWD.ActiveDocument.Close
appWD.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub