P
Paulbill1
Hello all,
I am using an Excel 2003 sheet from a company. When ever I choose a
cell to answer a yes/no question, I get the following error.
"Runtime error 1004"
application-defined or object defined error"
When I hit debug, it shows me the place in the code causing the problem
(this is just part of the code)
' initialise tallies
noRed = 0
noYellow = 0
noGreen = 0
noNeutral = 0
For Each thisRow In Range(sheet & "_Descriptions").Cells
' for each question
' If level 3 set the score cell
If (thisRow.Cells(1, colDescription).Interior.Color = ilevel3) Then
' remember the cell
Set L3Cell = thisRow.Cells(1, colScore)
' Restore original colour in case it had been highlighted
L3Cell.Interior.Color = ilevel3
End If
With thisRow.Cells(1, colScore).Interior
' tally up cells in each of the three colours
If (.Color = iRed) Then
noRed = noRed + 1
' and set the Level3 score cell to highlight
L3Cell.Interior.Color = ihighlight
ElseIf (.Color = iYellow) Then
noYellow = noYellow + 1
ElseIf (.Color = iGreen) Then
noGreen = noGreen + 1
ElseIf (.Color = iNeutral) Then
noNeutral = noNeutral + 1
End If
End With
Next
' Put tallies in the sheet's tally cells
Range(sheet & "_Reject").Value = noRed
Range(sheet & "_Caution").Value = noYellow
Range(sheet & "_Accept").Value = noGreen
Range(sheet & "_Unanswered").Value = noNeutral <---- **it shows
error here**
End Sub
I do not know how to write macros, so I have no idea what is wrong. I
am just the end user. It does this everytime I try to answer a question
in the spreadsheet. The sheet tabulates a score as I answer each
question.
If I delete the offending line of code, the error goes away, but then I
have no idea how I have effected the macro.
any help would be greatly appreciated.
thanks
Paulbill
I am using an Excel 2003 sheet from a company. When ever I choose a
cell to answer a yes/no question, I get the following error.
"Runtime error 1004"
application-defined or object defined error"
When I hit debug, it shows me the place in the code causing the problem
(this is just part of the code)
' initialise tallies
noRed = 0
noYellow = 0
noGreen = 0
noNeutral = 0
For Each thisRow In Range(sheet & "_Descriptions").Cells
' for each question
' If level 3 set the score cell
If (thisRow.Cells(1, colDescription).Interior.Color = ilevel3) Then
' remember the cell
Set L3Cell = thisRow.Cells(1, colScore)
' Restore original colour in case it had been highlighted
L3Cell.Interior.Color = ilevel3
End If
With thisRow.Cells(1, colScore).Interior
' tally up cells in each of the three colours
If (.Color = iRed) Then
noRed = noRed + 1
' and set the Level3 score cell to highlight
L3Cell.Interior.Color = ihighlight
ElseIf (.Color = iYellow) Then
noYellow = noYellow + 1
ElseIf (.Color = iGreen) Then
noGreen = noGreen + 1
ElseIf (.Color = iNeutral) Then
noNeutral = noNeutral + 1
End If
End With
Next
' Put tallies in the sheet's tally cells
Range(sheet & "_Reject").Value = noRed
Range(sheet & "_Caution").Value = noYellow
Range(sheet & "_Accept").Value = noGreen
Range(sheet & "_Unanswered").Value = noNeutral <---- **it shows
error here**
End Sub
I do not know how to write macros, so I have no idea what is wrong. I
am just the end user. It does this everytime I try to answer a question
in the spreadsheet. The sheet tabulates a score as I answer each
question.
If I delete the offending line of code, the error goes away, but then I
have no idea how I have effected the macro.
any help would be greatly appreciated.
thanks
Paulbill