UserForm Offset Find Heading Match

[healey21]

I have been asked to create a form where users can select a drop down (Combo Box) and then it will search along a row to find a match, once found it will then look down the column until it finds entries with either a value of 4 or 5 and then colour the interior of the cell Green.

I have been able to create some of the code but have got stuck on how to find the headings. Here is a sample of the form and the code.

Sheet1

<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 98px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD></TD><TD>A</TD><TD>B</TD><TD>C</TD><TD>D</TD><TD>E</TD><TD>F</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD>Team Member</TD><TD>Maths</TD><TD>English</TD><TD>French</TD><TD>German</TD><TD>Art</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD>John</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">5</TD><TD style="TEXT-ALIGN: right">1</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">5</TD><TD>Sarah</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">3</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">6</TD><TD>Anne</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">1</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">7</TD><TD>Bill</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">8</TD><TD>Gary</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD></TR></TBODY></TABLE>

Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4

Initialize the form to fill the combo box

Private Sub UserForm_Initialize()
Sheets("Sheet1").Activate
Range("A4").Select
With Me.cboSubject
.AddItem "Maths"
.AddItem "English"
.AddItem "French"
.AddItem "German"
.AddItem "Art"

End With
End Sub

The OK button to find the match and then colour, To match the heading in cboSubject

Private Sub cmdOK_Click()
'How can I add the code to find the heading rather than refer to column 4
Dim i As Integer
i = 4
Application.ScreenUpdating = False
ActiveCell.Offset(0, i).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value >= 4 Then 'How do I get to look for 4 and 5, there will be greater values than 6
ActiveCell.Interior.Color = vbGreen
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a4").Select
Application.ScreenUpdating = True

End Sub

 

[pedie]

Maybe somthing like this....

[/FONT]
[FONT=Courier New]Dim Searchwhat As String
Dim myfound As Range
Searchwhat = InputBox("What do you want to search?")[/FONT]
[FONT=Courier New]If Searchwhat = "" Then Exit Sub
Set myfound = Range("A1:K1").Find(What:=Searchwhat, LookIn:=xlValues, LookAt:=xlPart)
    
If myfound Is Nothing Then
 MsgBox Searchwhat & " not found in col. 1"
 Exit Sub
 
 Else
 
 myfound.Select
 Do Until ActiveCell.Value = 4 Or ActiveCell.Value = 5
 ActiveCell.Offset(1, 0).Select
 Loop
 With Selection
 .Interior.Color = vbBlue
End With

 

[healey21]

Thank you Pedie, you have helped me complete the task. I had to adjust the code slightly but it is working now, I couldn't figure out how to get the find range.

A final version of the find code is shown below.

Dim Searchwhat As String
Dim myfound As Range
Application.ScreenUpdating = False
Searchwhat = Me.cboSubject.Value
If Searchwhat = "" Then Exit Sub
Set myfound = Range("A3:F3").Find(What:=Searchwhat, LookIn:=xlValues, LookAt:=xlPart)

If myfound Is Nothing Then
MsgBox Searchwhat & " not found in col. 1"
Exit Sub
Else
myfound.Select
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = 3 Or ActiveCell.Value = 4 Then
ActiveCell.Interior.Color = vbGreen
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a4").Select
End If
Application.ScreenUpdating = True

 

[pedie]

to edit the range just change the hilighted range...
Glad it helped...

[/FONT]
[FONT=Courier New]Set myfound = [B][COLOR=blue]Range("A1:K1")[/COLOR][/B].Find(What:=Searchwhat, LookIn:=xlValues, LookAt:=xlPart)[/FONT]
[FONT=Courier New]

 

[Norie]

You don't actually need to use Find for this.

The index of the selected item in the combobox will help you get the correct column.

For example French has the index 2, so to get the column it's in, D or column 4, just add 2 to the ListIndex of the combobox.

If Me.cboSubject.ListIndex <> -1 Then
 
      col = Me.cboSubject.ListIndex +2
 
End If

You now have the column of the selected subject in the variable col.

 

[healey21]

Sorry for delay in replying Norie and thank you for your contribution. My question would be how would I implement this into the following code?

If I also had a second table of data by the side of this one and had an additional combo box that was to look at the second set of data with another command button specific to that table how would that work?

Sample of 2 tables

Sheet1

<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 98px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD> </TD><TD>A</TD><TD>B</TD><TD>C</TD><TD>D</TD><TD>E</TD><TD>F</TD><TD>G</TD><TD>H</TD><TD>I</TD><TD>J</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD>Team Member</TD><TD style="BACKGROUND-COLOR: #ffffcc">Maths</TD><TD style="BACKGROUND-COLOR: #ffffcc">English</TD><TD style="BACKGROUND-COLOR: #ffffcc">French</TD><TD style="BACKGROUND-COLOR: #ffffcc">German</TD><TD style="BACKGROUND-COLOR: #ffffcc">Art</TD><TD style="BACKGROUND-COLOR: #ffffcc">Trains</TD><TD style="BACKGROUND-COLOR: #ffffcc">Boats</TD><TD style="BACKGROUND-COLOR: #ffffcc">Cars</TD><TD style="BACKGROUND-COLOR: #ffffcc">Buses</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD>John</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">5</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">3</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">5</TD><TD>Sarah</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">4</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">6</TD><TD>Anne</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">5</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">7</TD><TD>Bill</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">5</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">3</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">8</TD><TD>Gary</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD></TR></TBODY></TABLE>

Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4

The current code for the first combo box is:

Dim Searchwhat As String
Dim myfound As Range
Application.ScreenUpdating = False
Searchwhat = Me.cboSubject.Value
If Searchwhat = "" Then Exit Sub
Set myfound = Range("A3:f3").Find(What:=Searchwhat, LookIn:=xlValues, LookAt:=xlPart)

If myfound Is Nothing Then
MsgBox Searchwhat & " not found in col. 1"
Exit Sub
Else
myfound.Select
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = 3 Or ActiveCell.Value = 4 Then
ActiveCell.Interior.Color = vbGreen
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a4").Select
End If
Application.ScreenUpdating = True

When I have tried to adapt your suggestion I only receive the message box.

 

[Norie]

Sorry I don't quite follow.

That's one table as far as I can see, in fact isn't the first table with some more columns?

Anyway, this code will list all the subjects/headers from row 3 in the combobox.

When a selection is made in the combobox it will then colour green to allow the cells in that column with a 4 or 5 in it.

Option Explicit
 
Private Sub ComboBox1_Change()
Dim rngVal As Range

    If ComboBox1.ListIndex <> -1 Then
 
        Set rngVal = Cells(4, ComboBox1.ListIndex + 2)
 
        While rngVal.Value <> ""
 
            Select Case rngVal.Value
                Case 4, 5
                    rngVal.Interior.Color = vbGreen
                Case Else
                    rngVal.Interior.Color = xlAutomatic
            End Select
 
            Set rngVal = rngVal.Offset(1)

        Wend

    End If

End Sub

Private Sub UserForm_Initialize()
Dim rng As Range
Dim LastCol As Long
 
    LastCol = Cells(3, Columns.Count).End(xlToLeft).Column
 
    Set rng = Range("B3").Resize(, LastCol - 1)

    ComboBox1.List = Application.Transpose(rng.Value)

End Sub

 

[healey21]

Thank you Norie,

There will be 2 separate tables, although they seem as One (No extra Column between), if you noted one would be Maths to Art, the other would be transport so Trains to Buses. So on my userform I would use 2 combos, One for each.

I can see what you have done and will try and adapt it.

I am grateful for your time and guidance.

Thank you.

 

[Norie]

Can you explain the 2 separate tables?

How do you differentiate which column is in which table?

eg Are the columns set for each table?

Also are you going to highlight cell in the 2 tables in the same way?

 

[healey21]

Although they seem like one table, the first set of headings are Subjects and the other will be transport, they will have additional group headings above the sample with merged cells going across

<TABLE style="WIDTH: 240pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=320><COLGROUP><COL style="WIDTH: 48pt" span=5 width=64><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffffcc; WIDTH: 48pt; HEIGHT: 15pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 height=20 width=64>Maths</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffffcc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>English</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffffcc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>French</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffffcc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>German</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #ffffcc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>Art</TD></TR></TBODY></TABLE>

The other is types of transport

<TABLE style="WIDTH: 192pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=256><COLGROUP><COL style="WIDTH: 48pt" span=4 width=64><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #f2dddc; WIDTH: 48pt; HEIGHT: 15pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 height=20 width=64>Trains</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #f2dddc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>Boats</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #f2dddc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>Cars</TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: #f2dddc; WIDTH: 48pt; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" class=xl65 width=64>Buses</TD></TR></TBODY></TABLE>

I have been asked to provide separate Combo boxes for each, in the end there will be around 4 to 10 combos, as the table will get bigger but gets split into specific groups. So the users will see specific lists they are interested in, so separate ones in this case for Subjects and Transport, other categories will be added, eventually like Finance, Support, Travel, Countries, and some more. So I have been asked to create a userform with a number of combo boxes.

Would this be a better example? Excel Jeanie doesn't show separate colours clearly, as the transport and types are coloured differently.

Sheet1

<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 98px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD> </TD><TD>A</TD><TD>B</TD><TD>C</TD><TD>D</TD><TD>E</TD><TD>F</TD><TD>G</TD><TD>H</TD><TD>I</TD><TD>J</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">2</TD><TD> </TD><TD style="TEXT-ALIGN: left; BACKGROUND-COLOR: #00ccff" colSpan=5>Subjects</TD><TD style="TEXT-ALIGN: left; BACKGROUND-COLOR: #ffffcc" colSpan=4>Transport</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD>Team Member</TD><TD style="BACKGROUND-COLOR: #ffffcc">Maths</TD><TD style="BACKGROUND-COLOR: #ffffcc">English</TD><TD style="BACKGROUND-COLOR: #ffffcc">French</TD><TD style="BACKGROUND-COLOR: #ffffcc">German</TD><TD style="BACKGROUND-COLOR: #ffffcc">Art</TD><TD style="BACKGROUND-COLOR: #ffffcc">Trains</TD><TD style="BACKGROUND-COLOR: #ffffcc">Boats</TD><TD style="BACKGROUND-COLOR: #ffffcc">Cars</TD><TD style="BACKGROUND-COLOR: #ffffcc">Buses</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD>John</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">5</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">3</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">5</TD><TD>Sarah</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">4</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">6</TD><TD>Anne</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">5</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">7</TD><TD>Bill</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">5</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">7</TD><TD style="TEXT-ALIGN: right">3</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">8</TD><TD>Gary</TD><TD style="TEXT-ALIGN: right">4</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">1</TD><TD style="TEXT-ALIGN: right">2</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">6</TD><TD style="TEXT-ALIGN: right">3</TD><TD style="TEXT-ALIGN: right">4</TD></TR></TBODY></TABLE>

Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4