VBA Code Not Working / Error - Hide rows depending on 2x drop down lists

tlc53

tlc53

Active Member
Joined
Jul 26, 2018
Messages
399
Hi there,

Before I go back to the drawing board, can anyone see whether they can get this VBA code to work?

Basically, I have two drop down lists. One is "No. of Investments" and the other is "No. of Partners". I would like certain rows to hide, depending on the result of both drop down lists.

Each case below shows the change in "No. of Investments" and then looks at the drop down list of "No. of Partners" and hides the rows accordingly (well, it's supposed to atleast).

Often, drop down list "No. of Partners" will not be engaged and will remain on "Please Select", so the first line of code will be used depending on the "No. of Investments" selected.

Currently the error being returned is "Compile Error - Argument no Optional" and it highlights the word "Union" on the first "Set R" line.

Drop down lists look like this;
No._Investments = Please Select,0,2,4,6,8,10
No._Partners = Please Select,2,3,4,5,6,7,8,9,10

Thanks for looking.


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)


Dim i As Range
  Dim R As Range
  Dim InvSel As Integer
  Dim PartSel As Integer
  Dim InvestRng As Range
  Dim PartnerRng As Range
  
  Set InvestRng = Range("No._Investments")
  Set PartnerRng = Range("No._Partners")
  
  Set i = Intersect(Target, InvestRng)
  If Not i Is Nothing Then
    InvSel = InvestRng.Value
    PartSel = PartnerRng.Value
    Select Case InvSel
      Case "Please Select"
        If PartSel = "Please Select" Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("163:292"))
        End If
     Case 0
        If PartSel = "Please Select" Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("163:292"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("163:292"))
        End If
      Case 2
        If PartSel = "Please Select" Then
          Set R = Union(Range("165:173"), Range("178:186"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("166:173"), Range("179:186"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("167:173"), Range("180:186"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("168:173"), Range("181:186"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("169:173"), Range("182:186"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("170:173"), Range("183:186"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("171:173"), Range("184:186"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("172:173"), Range("185:186"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("173"), Range("186"))
        End If
      
      Case 4
        If PartSel = "Please Select" Then
          Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"))
        End If
      Case 6
        If PartSel = "Please Select" Then
          Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("232:238"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("233:238"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("234:238"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("235:238"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("236:238"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("237:238"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"))
        End If
      Case 8
        If PartSel = "Please Select" Then
          Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"), Range("243:251"), Range("256:264"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"), Range("244:251"), Range("257:264"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("232:238"), Range("245:251"), Range("258:264"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("233:238"), Range("246:251"), Range("259:264"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("234:238"), Range("247:251"), Range("260:264"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("235:238"), Range("248:251"), Range("261:264"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("236:238"), Range("249:251"), Range("262:264"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("237:238"), Range("250:251"), Range("263:264"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"), Range("251"), Range("264"))
        End If
      Case 10
        If PartSel = "Please Select" Then
          Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"), Range("243:251"), Range("256:264"), Range("269:277"), Range("282:290"))
        ElseIf PartSel = 2 Then
          Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"), Range("244:251"), Range("257:264"), Range("270:277"), Range("283:290"))
        ElseIf PartSel = 3 Then
          Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("231:238"), Range("245:251"), Range("258:264"), Range("271:277"), Range("284:290"))
        ElseIf PartSel = 4 Then
          Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("231:238"), Range("246:251"), Range("259:264"), Range("272:277"), Range("285:290"))
        ElseIf PartSel = 5 Then
          Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("231:238"), Range("247:251"), Range("260:264"), Range("273:277"), Range("286:290"))
        ElseIf PartSel = 6 Then
          Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("231:238"), Range("248:251"), Range("261:264"), Range("274:277"), Range("287:290"))
        ElseIf PartSel = 7 Then
          Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("231:238"), Range("249:251"), Range("262:264"), Range("275:277"), Range("288:290"))
        ElseIf PartSel = 8 Then
          Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("231:238"), Range("250:251"), Range("263:264"), Range("276:277"), Range("289:290"))
        ElseIf PartSel = 9 Then
          Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"), Range("251"), Range("264"), Range("277"), Range("290"))
     End If
    End Select
      
    If Not R Is Nothing Then R.EntireRow.Hidden = True
  End If
       
          
If [h7] = "YES" Then
Sheets("K1a").Visible = True
Else
Sheets("K1a").Visible = False
End If
End Sub
 
Sort by date Sort by votes
I can make it work for everyone, but if you are running another macro besides of mine that also hides rows, then we will never finish.


I'm going to review the row ranges that should be hidden with the data you sent me, I'm going to try all the combinations and give you the macro.
 
Upvote 0

Excel Facts

Best way to learn Power Query?
Read M is for (Data) Monkey book by Ken Puls and Miguel Escobar. It is the complete guide to Power Query.
(My macro worked, but you changed the numbering of the original requirement :()

Plese confirm this

[TABLE="class: cms_table, width: 819"]
<tbody>[TR]
[TD]Investment[/TD]
[TD]Partner[/TD]
[TD="colspan: 2"]Rows Hidden[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Please Select[/TD]
[TD]*All[/TD]
[TD]163:292[/TD]
[TD]176:292[/TD]
[TD="colspan: 4"]*All includes: Please Select, 2-10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD]*All[/TD]
[TD]163:292[/TD]
[TD]176:292[/TD]
[TD="colspan: 4"]*All includes: Please Select, 2-10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD]0[/TD]
[TD]165:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD]176:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD]189:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]202:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]215:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]228:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]231:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]232:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]233:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]234:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]235:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]236:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]237:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]238:238[/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]241:292[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]231:238[/TD]
[TD]244:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]232:238[/TD]
[TD]245:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]233:238[/TD]
[TD]246:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]234:238[/TD]
[TD]247:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]235:238[/TD]
[TD]248:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]236:238[/TD]
[TD]249:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]237:238[/TD]
[TD]250:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]238:238[/TD]
[TD]251:251[/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]254:292[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]231:238[/TD]
[TD]244:251[/TD]
[TD]257:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]232:238[/TD]
[TD]245:251[/TD]
[TD]258:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]233:238[/TD]
[TD]246:251[/TD]
[TD]259:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]234:238[/TD]
[TD]247:251[/TD]
[TD]260:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]235:238[/TD]
[TD]248:251[/TD]
[TD]261:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]236:238[/TD]
[TD]249:251[/TD]
[TD]262:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]237:238[/TD]
[TD]250:251[/TD]
[TD]262:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]238:238[/TD]
[TD]251:251[/TD]
[TD]264:264[/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]267:292[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]269:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]269:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]231:238[/TD]
[TD]244:251[/TD]
[TD]257:264[/TD]
[TD]270:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]232:238[/TD]
[TD]245:251[/TD]
[TD]258:264[/TD]
[TD]271:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]233:238[/TD]
[TD]246:251[/TD]
[TD]259:264[/TD]
[TD]272:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]234:238[/TD]
[TD]247:251[/TD]
[TD]260:264[/TD]
[TD]273:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]235:238[/TD]
[TD]248:251[/TD]
[TD]261:264[/TD]
[TD]274:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]236:238[/TD]
[TD]249:251[/TD]
[TD]262:264[/TD]
[TD]275:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]237:238[/TD]
[TD]250:251[/TD]
[TD]262:264[/TD]
[TD]276:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]238:238[/TD]
[TD]251:251[/TD]
[TD]264:264[/TD]
[TD]277:277[/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD="align: right"]10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]280:292[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD]Please Select[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]269:277[/TD]
[TD]282:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]0[/TD]
[TD]165:173[/TD]
[TD]178:186[/TD]
[TD]191:199[/TD]
[TD]204:212[/TD]
[TD]217:225[/TD]
[TD]230:238[/TD]
[TD]243:251[/TD]
[TD]256:264[/TD]
[TD]269:277[/TD]
[TD]282:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]2[/TD]
[TD]166:173[/TD]
[TD]179:186[/TD]
[TD]192:199[/TD]
[TD]205:212[/TD]
[TD]218:225[/TD]
[TD]231:238[/TD]
[TD]244:251[/TD]
[TD]257:264[/TD]
[TD]270:277[/TD]
[TD]283:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]3[/TD]
[TD]167:173[/TD]
[TD]180:186[/TD]
[TD]193:199[/TD]
[TD]206:212[/TD]
[TD]219:225[/TD]
[TD]232:238[/TD]
[TD]245:251[/TD]
[TD]258:264[/TD]
[TD]271:277[/TD]
[TD]284:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]4[/TD]
[TD]168:173[/TD]
[TD]181:186[/TD]
[TD]194:199[/TD]
[TD]207:212[/TD]
[TD]220:225[/TD]
[TD]233:238[/TD]
[TD]246:251[/TD]
[TD]259:264[/TD]
[TD]272:277[/TD]
[TD]285:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]5[/TD]
[TD]169:173[/TD]
[TD]182:186[/TD]
[TD]195:199[/TD]
[TD]208:212[/TD]
[TD]221:225[/TD]
[TD]234:238[/TD]
[TD]247:251[/TD]
[TD]260:264[/TD]
[TD]273:277[/TD]
[TD]286:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]6[/TD]
[TD]170:173[/TD]
[TD]183:186[/TD]
[TD]196:199[/TD]
[TD]209:212[/TD]
[TD]222:225[/TD]
[TD]235:238[/TD]
[TD]248:251[/TD]
[TD]261:264[/TD]
[TD]274:277[/TD]
[TD]287:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]7[/TD]
[TD]171:173[/TD]
[TD]184:186[/TD]
[TD]197:199[/TD]
[TD]210:212[/TD]
[TD]223:225[/TD]
[TD]236:238[/TD]
[TD]249:251[/TD]
[TD]262:264[/TD]
[TD]275:277[/TD]
[TD]288:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]8[/TD]
[TD]172:173[/TD]
[TD]185:186[/TD]
[TD]198:199[/TD]
[TD]211:212[/TD]
[TD]224:225[/TD]
[TD]237:238[/TD]
[TD]250:251[/TD]
[TD]262:264[/TD]
[TD]276:277[/TD]
[TD]289:290[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]9[/TD]
[TD]173:173[/TD]
[TD]186:186[/TD]
[TD]199:199[/TD]
[TD]212:212[/TD]
[TD]225:225[/TD]
[TD]238:238[/TD]
[TD]251:251[/TD]
[TD]264:264[/TD]
[TD]277:277[/TD]
[TD]290:290[/TD]
[/TR]
</tbody>[/TABLE]
 
Upvote 0
Hi Dante. Sorry for the delay! I've only just seen this now. Thank you for looking in to it further.
I have checked all the items in red and yes, they are correct. The only thing, is that "0" is not an option under No. of Partners. It goes "Please Select" (which is equal to "0") and then 2. I don't think it makes much difference.
If I can get this running smoothly that would be really great!! Thanks again.
 
Upvote 0
Try this

Code: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)


    Dim InvSel As Variant, PartSel As Variant, part1 As Variant, part2 As Variant, part3 As Variant
    Dim r As Range, waum As Long, ini1 As Long, fin1 As Long, k As Long
    
    If Target.Count > 2 Then Exit Sub
    
    If Not Intersect(Target, Range("No._Investments", "No._Partners")) Is Nothing Then
        Rows("163:292").EntireRow.Hidden = False
        InvSel = IIf(Range("No._Investments").Value = "Please Select", 0, Range("No._Investments").Value)
        PartSel = IIf(Range("No._Partners").Value = "Please Select", 0, Range("No._Partners").Value)
        
        part1 = Array(, 165, 178, 191, 204, 217, 230, 243, 256, 269, 282)
        part2 = Array(, 173, 186, 199, 212, 225, 238, 251, 264, 277, 290)
        part3 = Array(, 176, 189, 202, 215, 228, 241, 254, 267, 280)
        
        If InvSel = 0 Then
            Set r = Range(163 & ":" & 292)
        Else
            If PartSel < 10 Then
                For k = 1 To InvSel
                    If PartSel = 0 Then waum = 0 Else waum = PartSel - 1
                    ini1 = part1(k) + waum
                    fin1 = part2(k)
                    If r Is Nothing Then
                        Set r = Range(ini1 & ":" & fin1)
                    Else
                        Set r = Union(r, Range(ini1 & ":" & fin1))
                    End If
                Next
                If InvSel < 10 Then Set r = Union(r, Range(part3(InvSel) & ":" & 292))
            Else
                If InvSel < 10 Then Set r = Range(part3(InvSel) & ":" & 292)
            End If
        End If
        If Not r Is Nothing Then r.EntireRow.Hidden = True
    End If
End Sub
 
Upvote 0
Thank you for taking the time to do this for me!
It's working beautifully now and is one of the best features of my spreadsheet!
I really appreciate it. Muchas gracias :)
 
Upvote 0
tlc53 said:
Thank you for taking the time to do this for me!
It's working beautifully now and is one of the best features of my spreadsheet!
I really appreciate it. Muchas gracias :)
Click to expand...

I'm glad to help you. I appreciate your kind comments.
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Solved
VBA Find Cell from Date listed, in Columns, Return cell to highlight in color
Replies
7
Views
458
mumps
mumps
C
  • Question Question
Excel Formula to keep records of drawn cards
Replies
3
Views
269
Cquake
C
M
  • Solved
HELP---- Count Cells in a row based on Month and Unique cell contents.
2
Replies
16
Views
580
Peter_SSs
Peter_SSs
A
  • Question Question
Data Selection Based on Closest Value [20% Tolerance]
Replies
1
Views
196
StephenCrump
S
J
  • Solved
how to random all numbers
Replies
7
Views
260
Fluff
Fluff

Forum statistics

Threads
1,223,243
Messages
6,170,964
Members
452,371
Latest member
Frana

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