Color the Changed Line from A to AL with solid interior color 34

[Nlhicks]

This code will change the values and color them Red, however it is not applying the Light blue highlight to the entire line. Any suggestions?

   With wksWorkOn
            lngLastRow = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1).Row
             wksFrom.Range("J13").Value = .Range("A2:A685").SpecialCells(xlCellTypeVisible).Cells.Value
                 For lngLooper = 11 To 18
                    With .Cells(lngLastRow, lngLooper - 9)
                        If wksFrom.Cells(lngLooper, "C") <> wksFrom.Cells(lngLooper, "F") And wksFrom.Cells(lngLooper, "F") <> "" Then
                            .Font.Color = vbRed
                        'If binColour Then
                        With .Range("A" & lngLastRow & ":AL" & lngLastRow).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .ColorIndex = 34
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
                    .Value = wksFrom.Cells(lngLooper, "F").Value
                    Else
                        If wksFrom.Cells(lngLooper, "F") = "" Then
                            .Value = .Value
                        End If
                        End If
                    'End If
                    End With
                Next lngLooper
        End With

 

[Micron]

Nothing obvious to me. Did you step through your code and make sure that part was being executed?
Indentation is not right, so maybe I missed something.

 

[Micron]

Correction (I think but am not sure, still fixing indentation) - your With block is inside of an If block that is commented out (disabled).

 

[Nlhicks]

This is all that I am getting. The If blnColour Then was commented out by HaHo.

Great Plains+Great Plains 13.8kV

95​

CT (WAPA)

95​

CT (WAPA)

95​

CT (WAPA)

95​

CT( WAPA)

Great Plains

Great Plains

 

[Nlhicks]

So the math is working and the updates are getting updated but the line is remaining colorless

 

[Micron]

It doesn't look right to me. The disabled If then has an Else part which is not disabled thus it becomes part of the first If which probably is not good. I can't test it, so still suggest you step through it and watch what is happening. Maybe this will help you follow what I'm saying. Notes are within.

  With wksWorkOn
      lngLastRow = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1).Row
      wksFrom.Range("J13").Value = .Range("A2:A685").SpecialCells(xlCellTypeVisible).Cells.Value
      For lngLooper = 11 To 18
         With .Cells(lngLastRow, lngLooper - 9)
            If wksFrom.Cells(lngLooper, "C") <> wksFrom.Cells(lngLooper, "F") And wksFrom.Cells(lngLooper, "F") <> "" Then
               .Font.Color = vbRed
               'If binColour Then
                  With .Range("A" & lngLastRow & ":AL" & lngLastRow).Interior
                     .Pattern = xlSolid
                     .PatternColorIndex = xlAutomatic
                     .ColorIndex = 34
                     .TintAndShade = 0
                     .PatternTintAndShade = 0
                  End With
                  .Value = wksFrom.Cells(lngLooper, "F").Value
               Else '<<this was written for the second If (?) but becomes part of the first If so is misaligned here in that case
                  If wksFrom.Cells(lngLooper, "F") = "" Then
                     .Value = .Value
                  End If
               End If 'this would terminate the first If but is misaligned too
            'End If
         End With
      Next lngLooper
   End With

 

[Nlhicks]

Got it thank you

 

[Micron]

Here's another thought: with respect to .Range where you are trying to colour the row
With .Range("A" & lngLastRow & ":AL" & lngLastRow).Interior

what is its parent??
is it .Cells(lngLastRow, lngLooper - 9) because of the previous With .Cells(lngLastRow, lngLooper - 9)

If so then you're saying
wksWorkOn.Cells(lngLastRow, lngLooper - 9).Range("A" & lngLastRow & ":AL" & lngLastRow).Interior

which implies that a Cell object contains a Range object. I'm new to Excel vba (not Access) so I don't know if that's possible. Would have to check.