Student marking grid help really needed

[slim]

I have created a system that allows staff to enter students marks and perform various calculations.
The last part of the application requires the use of a marking matrix.
This is set up as follows

along the top are the following HA(High A), MA(Middle A), LA(Low A), HB, MB, LB etc
these are all in row 1

Down the side are the same headings in column A

So reading the grid if a student has a HA mark for on section and a LA mark for the other the matrix gives a score of 86.

There are 24 x 24 marks.

I have so far created the code below to select along the top and down the side (the MA in the code is just for testing but will eventually be a variable read from the students sheet)

What I can't work out is how to get the column and row details from the code to put into a range.select statement.

the two variable give both row and colmn I just want one from each to put into the range.

Can anyone help please

Dim makingmark

Sub matrix()
Worksheets("matrix").Select

Set designingmark = ActiveSheet.Rows("1:1").Find("MA")
If Not designingmark Is Nothing Then
Range(designingmark.Address).Select
End If

Set makingmark = ActiveSheet.Columns("A:A").Find("MA")
If Not makingmark Is Nothing Then
Range(makingmark.Address).Select
End If

Andy

[Jay Petrulis]

Hi,

Try the following ans see if they work for you.

Sub test()
Dim x, y, z

On Error GoTo ErrHandler
x = Application.Match("MA", ActiveSheet.Rows("1:1"), 0)
y = Application.Match("MA", ActiveSheet.Columns("A:A"), 0)
z = WorksheetFunction.Index(ActiveSheet.UsedRange, y, x)
MsgBox z
Exit Sub

ErrHandler:
MsgBox "Could not find a match!"
End Sub

Sub test2()

Dim x, y, z

On Error GoTo ErrHandler
x = Application.Match("MA", ActiveSheet.Rows("1:1"), 0)
y = Application.Match("MA", ActiveSheet.Columns("A:A"), 0)
Cells(y, x).Select
Exit Sub

ErrHandler:
MsgBox "Could not find a match!"

End Sub

The argument in the MATCH statements will obviously be made dynamic (input box, array, cell reference, etc.), so this is just an example.

Bye,
Jay

[ This Message was edited by: Jay Petrulis on 2002-05-14 09:40 ]