Dim temp As Integernum As Integer
Dim ie As Integer, var1 As Double, var2 As Double, var3 As DoubleSub chb3_Change ()
If chb3.Value = False Then
txt6.Enabled = False
txt7.Enabled = False
txt6.Value = ""
txt7.Value = ""
Else
txt6.Enabled = True
txt7.Enabled = True
txt6.Value = ""
txt7.Value = ""
End IfSubSub ComboBox1_Change ()
num = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Index
temp2 = temp
Do While Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Cells (temp2, 1). MergeCells = False And _
temp2 <> Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Range ("End" & num). Row
If ComboBox1.Value = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 1). Value Then
Exit Do
End If
temp2 = temp2 + 1
Loop
TextBox3.Text = _
Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 2). Value
TextBox4.Text = _
Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 4). Value
TextBox5.Text = _
CDbl (Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 3). Value)
TextBox6.Text = _
CDbl (Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 5). Value)
TextBox7.Text = _
CDbl (Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 6). Value)
TextBox10.Text = _
Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (temp2, 7). ValueSubSub ComboBox2_Change ()
ComboBox3.Clear
ComboBox1.Clear
num = Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Index
ie = Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Range ("End" & num). Row
For ib = Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Range ("Beg" & num). Row + 1 To ie
If Workbooks ("Firms.xls"). Worksheets (ComboBox2.Value). Cells (ib, 1). MergeCells = True Then
ComboBox3.AddItem Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (ib, 1). Value
End If
Next ibSubSub ComboBox3_Change ()
ComboBox1.Clear
k = 0
num = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Index
ie = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Range ("End" & num). Row
В
For ib = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Range ("Beg" & num). Row + 1 To ie
If ComboBox3.Value = _
CStr (Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (ib, 1). Value) And _
Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (ib, 1). MergeCells = True Then
k = Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (ib, 1). Row
Exit For
End If
Next ib
k = k + 1
temp = k
Do While Workbooks ("Firms"). Worksheets (ComboBo...
