VBA Activate Cell = color change

[Pinaceous]

Hi All,

I'm working with a column H11:H180; where if a value is entered into this column, I'd like the adjacent cell to turn red until a value is entered into that cell.

For example, if I enter a value into cell H11, the cell I11 will turn red until a value is entered here.

Likewise, if I enter in a value into cell H12, the cell I12 will turn red until a value is entered here and so on until cell H180 of that column.

Can you help me figure this out?

Thank you!
pinaceous

 

[Pinaceous]

Update to the post.



Right now, the code works perfectly where if an entry is typed into Column H, its corresponding Column I produces the red content.

Private Sub ColumnH_ChangeI(ByVal Target As Range)
  Dim Changed As Range, rw As Range

    
  Set Changed = Intersect(Target, Range("H11:I180"))
  If Not Changed Is Nothing Then
    Application.EnableEvents = False
    For Each rw In Intersect(Changed.EntireRow, Columns("H:I")).Rows
      With rw.Cells(1, 2)
        If Not IsEmpty(.Offset(, -1).Value) And IsEmpty(.Value) Then
          .Value = "Enter!"
     
          .Interior.Color = vbRed
          
        Else
          .Interior.Color = xlNone

          If .Value = "Enter!" Then .ClearContents
        End If
      End With
    Next rw
    Application.EnableEvents = True
  End If
End Sub

I would like the code to now do the reverse of what it is currently doing but I cannot figure it out. -->??



I would like the code when an entry is typed into Column I, its corresponding Column H will produce the red content?




Can someone help me?


Thanks!
Pinaceous