VBA Help!

[steveo0707]

The following is the code I have written for my worksheet. I am getting the program to do everything except for the last Case Parameters. It's not putting the © in the F column nor shading the cell green. I have also already tried making it an If statement and that did not work either.

Sub Scanning()
    Dim YELLOW As Variant
    Dim OFF_GREEN As Variant
    Dim GREEN As Variant
    Dim Row As Long
    ' DEFINE THE COLORS
    YELLOW = RGB(255, 255, 91)
    OFF_GREEN = RGB(196, 215, 155)
    GREEN = RGB(54, 248, 54)
    ' CYCLE THROUGH ROWS
    Row = 1 
          
    Do Until Range("E" & Row).Value = VBA.Constants.vbNullString
        ' CHECKING COLUMN E
        Select Case Range("E" & Row).Value
            Case "Working On"
                Range("A" & Row).Interior.Color = YELLOW
            Case "In Box"
                Range("A" & Row & ":B" & Row).Interior.Color = YELLOW
            Case "Crate Built"
                Range("F" & Row).Value = "©"
                Range("F" & Row).Interior.Color = GREEN
                
         End Select
        
               ' IF YOU ARE LOOKING FOR JUST A LETTER D IN COLUMN F
        If Range("F" & Row).Value = "D" Then Range("C" & Row).Interior.Color = OFF_GREEN
               
        Row = Row + 1
    Loop
End Sub

 

[steveo0707]

Still not getting anything on the Crate Built. I just don't get how it performs the first two cases but not the last one?

 

[Peter_SSs]

What are the answers to the questions in post #8 and #10?

 

[steveo0707]

True

 

[steveo0707]

#8 nothing happens

#10, I get True

 

[Fluff]

post#10 will not return return True it will return a number, whereas post#8 will return either true or false

 

[steveo0707]

I get 32

 

[steveo0707]

I just tried using #* and # 10 in different empty cells throughout the worksheet. I get True in some boxes and False in others. #10 I get 32 in some and #VALUE! in others.

 

[steveo0707]

also getting #REF! in other cells for #10

 

[Fluff]

You need to point both the formula at a cell that has "Crate Built"
What do they both return?

 

[steveo0707]

I just figured that out. I get True and 32