cruise
06-15-2012, 12:08 AM
While running this macro, I am getting error. Can anybody help me
Sub abc()
Dim score As Double
Dim grade As String
Dim i As Integer
For i = 5 To Sheet1.Range("N65536").End(xlUp).Row 'assuming you start at row 1
score = Sheet1.Cells(i, 14)
Select Case score
Case Is < 0.0001
grade = "Very Rare"
Case Is < 0.001
grade = "Rare"
Case Is < 0.01
grade = "Uncommon"
Case Is < 0.1
grade = "Common"
Case Else
grade = "Very Common"
End Select
Sheet1.Cells(i, 15) = grade
Next i
End Sub
Sub abc()
Dim score As Double
Dim grade As String
Dim i As Integer
For i = 5 To Sheet1.Range("N65536").End(xlUp).Row 'assuming you start at row 1
score = Sheet1.Cells(i, 14)
Select Case score
Case Is < 0.0001
grade = "Very Rare"
Case Is < 0.001
grade = "Rare"
Case Is < 0.01
grade = "Uncommon"
Case Is < 0.1
grade = "Common"
Case Else
grade = "Very Common"
End Select
Sheet1.Cells(i, 15) = grade
Next i
End Sub