Forum Discussion

HansVogelaar's avatar
HansVogelaar
MVP
Apr 30, 2021

TSmith98 

What is the problem you're having with the code?

It might help if you attached a copy of the workbook (without sensitive information) - it is hard to follow what the code does without seeing what it operates on.

TSmith98's avatar
TSmith98
Copper Contributor
Apr 30, 2021
Hello,

I have attached the file
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Apr 30, 2021

    TSmith98 

    I would change

    For i = 2 To MCLastRow
    If Cells(i, 2).Value = "SBUB10" Then                      'Code not recognising this 'Change to ending with 10
    ErrorLogWS.Range("c" & i).Value = 40
    ErrorLogWS.Range("D" & i).Value = 30
    ElseIf Cells(i, 2).Value = "SBUB20" Or Cells(i, 2).Value = "SBUB30" Then
    ErrorLogWS.Range("c" & i).Value = 30
    ErrorLogWS.Range("D" & i).Value = 40
    Else
    End If
Next i

    to

        For i = 2 To MCLastRow
        Select Case ErrorLogWS.Cells(i, 2).Value
            Case "SBUB10"                      'Code not recognising this 'Change to ending with 10
                ErrorLogWS.Range("c" & i).Value = 40
                ErrorLogWS.Range("D" & i).Value = 30
            Case "SBUB20", "SBUB30"
                ErrorLogWS.Range("c" & i).Value = 30
                ErrorLogWS.Range("D" & i).Value = 40
        End Select
    Next i

    This makes Cells(i, 2) explicitly refer to ErrorLogWS.

     

    If the code still doesn't want what you do, please provide detailed information about the problem.

    • TSmith98's avatar
      TSmith98
      Copper Contributor
      Apr 30, 2021
      Hey,

      Thank you for this, but that part is working.

      It is the section after that part that starts with:
      ''Code to find each semester and total credits'''
      where there are two do loops

Resources