Clear Cell directly to right when cell to left changes value

p45cal · #1 08-04-2020, 05:05 AM

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

PrincessApril · #2 08-04-2020, 06:02 AM

Must be something about my sheet. Still no clear in I upon value change in H:

Before Change: Screenshot by Lightshot
After Change (I is Same): Screenshot by Lightshot

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Retaining the left side space in table cell	kumarjeyabalan	Word Tables	2	08-17-2019 03:14 AM
Clear all cell colors within a range starting at cell A8 and change row of active cell to yellow	FUGMAN	Excel Programming	7	02-05-2017 08:37 AM
If value of cell A Matches a value in a Range of cells (column) then add value of cell A to cell C	rick10r	Excel	1	07-05-2016 12:07 PM
Assign the value of a cell as a cell reference of another cell in Excel 2010 - How to?	bharathkumarst	Excel	7	10-13-2014 10:25 AM
How do I align image at ABSOLUTE top left of a table cell?	shnoozin	Outlook	0	07-22-2011 03:30 PM