Thread: Clear Cell directly to right when cell to left changes value
View Single Post
 
Old 08-04-2020, 05:05 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
  
Join Date: Apr 2014
Posts: 866
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
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Set rng = Intersect(Target, Range("H6:H81"))
If Not rng Is Nothing Then
  For Each cll In rng.Cells
    cll.Offset(, 1).ClearContents
  Next cll
End If
End Sub
Reply With Quote