Thread: Change Event to change cell in same row doesn't work if user clicks other row
View Single Post
 
Old 05-10-2021, 06:08 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
  
Join Date: Apr 2014
Posts: 956
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default
Surely this will do:?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)    ' 05/08/2021
If Target.Column < 4 Then
  If Not Intersect(Target, [Table3]) Is Nothing Then Range("V" & Target.Row).Value = "Active"
End If
End Sub
Reply With Quote