helpers
08-09-2012, 08:04 AM
I have a script that shows me a runtime error 9.
' Iterates through lookup array
For i = 1 To MAX_NUM_OF_LOOKUP
' Adds sheets
'Worksheets.Add().Name = lookup(1, i)
'For i = 1 To MAX_NUM_OF_LOOKUP
temp = 1
For j = 1 To MAX_NUM_OF_ROWS
If Worksheets(WORKSHEET_NAME).Cells(j, COLUMN_NUMBER).Value = lookup(2, i) Then
For k = 1 To MAX_NUM_OF_COLUMNS
Worksheets(lookup(1, i)).Cells(temp, k).Value = Worksheets(WORKSHEET_NAME).Cells(j, k).Value
Next k
temp = temp + 1
End If
Next j
Next i
End Sub
The red line is highlighted. Can someone help fix this please.
' Iterates through lookup array
For i = 1 To MAX_NUM_OF_LOOKUP
' Adds sheets
'Worksheets.Add().Name = lookup(1, i)
'For i = 1 To MAX_NUM_OF_LOOKUP
temp = 1
For j = 1 To MAX_NUM_OF_ROWS
If Worksheets(WORKSHEET_NAME).Cells(j, COLUMN_NUMBER).Value = lookup(2, i) Then
For k = 1 To MAX_NUM_OF_COLUMNS
Worksheets(lookup(1, i)).Cells(temp, k).Value = Worksheets(WORKSHEET_NAME).Cells(j, k).Value
Next k
temp = temp + 1
End If
Next j
Next i
End Sub
The red line is highlighted. Can someone help fix this please.