If Else

[30percent]

Hi,

I have the following code. I think I have the syntax correct but somehow I got error message: Compile error: Else without If. Not sure why. Wonder if someone could help point out the problem?

finalRow = sht.Cells(sht.Rows.Count, "a").End(xlUp).Row
finalRow_minMax = sht_minMax.Cells(sht.Rows.Count, "a").End(xlUp).Row


For i = 2 To finalRow
    
    If Cells(i, 14).Value >= 0 Then
        Bucket = Cells(i, 14).Value
        Select Case Bucket
        Case 50
            Cells(i, 15).Value = Cells(i, 5).Value + 0.001
        Case 40
            Cells(i, 15).Value = Cells(i, 5).Value + 0.002
        Case 30
            Cells(i, 15).Value = Cells(i, 5).Value + 0.003
        Case 20
            Cells(i, 15).Value = Cells(i, 5).Value + 0.004
        Case 10
            Cells(i, 15).Value = Cells(i, 5).Value + 0.005
        Case 0
            Cells(i, 15).Value = Cells(i, 5).Value + 0.006
    Else
        Select Case Bucket
        Case -10
            Cells(i, 15).Value = Cells(i, 5).Value - 0.001
        Case -20
            Cells(i, 15).Value = Cells(i, 5).Value - 0.002
        Case -30
            Cells(i, 15).Value = Cells(i, 5).Value - 0.003
        Case -500
            Cells(i, 15).Value = Cells(i, 5).Value - 0.004
       End Select
    End If
    
Next

 

[Tetra201]

Try

finalRow = sht.Cells(sht.Rows.Count, "a").End(xlUp).Row
finalRow_minMax = sht_minMax.Cells(sht.Rows.Count, "a").End(xlUp).Row


For i = 2 To finalRow
    
    If Cells(i, 14).Value >= 0 Then
        Bucket = Cells(i, 14).Value
        Select Case Bucket
        Case 50
            Cells(i, 15).Value = Cells(i, 5).Value + 0.001
        Case 40
            Cells(i, 15).Value = Cells(i, 5).Value + 0.002
        Case 30
            Cells(i, 15).Value = Cells(i, 5).Value + 0.003
        Case 20
            Cells(i, 15).Value = Cells(i, 5).Value + 0.004
        Case 10
            Cells(i, 15).Value = Cells(i, 5).Value + 0.005
        Case 0
            Cells(i, 15).Value = Cells(i, 5).Value + 0.006
       [COLOR=#ff0000]End Select[/COLOR]
    Else
        Select Case Bucket
        Case -10
            Cells(i, 15).Value = Cells(i, 5).Value - 0.001
        Case -20
            Cells(i, 15).Value = Cells(i, 5).Value - 0.002
        Case -30
            Cells(i, 15).Value = Cells(i, 5).Value - 0.003
        Case -500
            Cells(i, 15).Value = Cells(i, 5).Value - 0.004
       End Select
    End If
    
Next

 

[Norie]

Do you need the If?

        Select Case Bucket
            Case 50
                Cells(i, 15).Value = Cells(i, 5).Value + 0.001
            Case 40
                Cells(i, 15).Value = Cells(i, 5).Value + 0.002
            Case 30
                Cells(i, 15).Value = Cells(i, 5).Value + 0.003
            Case 20
                Cells(i, 15).Value = Cells(i, 5).Value + 0.004
            Case 10
                Cells(i, 15).Value = Cells(i, 5).Value + 0.005
            Case 0
                Cells(i, 15).Value = Cells(i, 5).Value + 0.006
            Case -10
                Cells(i, 15).Value = Cells(i, 5).Value - 0.001
            Case -20
                Cells(i, 15).Value = Cells(i, 5).Value - 0.002
            Case -30
                Cells(i, 15).Value = Cells(i, 5).Value - 0.003
            Case -500
                Cells(i, 15).Value = Cells(i, 5).Value - 0.004
        End Select