asimplecode
03-01-2016, 11:21 AM
Looking for help on this code that is returing a run time error 424.
Sub IndexInfo()
'
' Loops through data and finds matches and then indexs information
'
Dim J As Integer
Dim P As Integer
Dim v As Integer
IRowL = Cells(Rows.Count, 1).End(xlUp).Row
Dim sht As Worksheet
Set Master = ThisWorkbook.Sheets("Master")
For J = 1 To IRowL
For v = 21 To 50
For P = 1 To IRowL
If cell.Value(11, J) = Master.cell.Value(1, P) And cell.Value(v, P) = Master.cell.Value(v, P) Then
cell.Value(30, J) = Master.cell.Range(2, P) And cell.Value(31, J) = Master.cell.Range(v, 1)
Else
End If
Next P
Next v
Next J
End Sub
Sub IndexInfo()
'
' Loops through data and finds matches and then indexs information
'
Dim J As Integer
Dim P As Integer
Dim v As Integer
IRowL = Cells(Rows.Count, 1).End(xlUp).Row
Dim sht As Worksheet
Set Master = ThisWorkbook.Sheets("Master")
For J = 1 To IRowL
For v = 21 To 50
For P = 1 To IRowL
If cell.Value(11, J) = Master.cell.Value(1, P) And cell.Value(v, P) = Master.cell.Value(v, P) Then
cell.Value(30, J) = Master.cell.Range(2, P) And cell.Value(31, J) = Master.cell.Range(v, 1)
Else
End If
Next P
Next v
Next J
End Sub