VBA delete cell in column I

[Pinaceous]

Good Day,

I would like to create a vba code that if I delete a cell in Column I that it will clear the contents of its adjacent cell in Column H.

For example, if I delete the contents of Cell I11 the vba code will clear the contents of Cell H11.

Continuing ...
if I delete the contents of Cell I12 the vba code will clear the contents of Cell H12.

if I delete the contents of Cell I13 the vba code will clear the contents of Cell H13.

until ...

if I delete the contents of Cell I180 the vba code will clear the contents of Cell H180.

Please let me know if there is a sub code for this.

Thank you!
pinaceous

 

[JoeMo]

This is sheet code for the worksheet of interest. When you delete the contents of a cell in col I, the contents of the adjacent cell in col H will be cleared. The code is written to handle the case of multiple cells in col H being selected by the user and then being cleared simultaneously by the user pressing the Delete key.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("I:I")) Is Nothing Then
    For Each c In Intersect(Target, Range("I:I"))
        If IsEmpty(c) Then
            Application.EnableEvents = False
            c.Offset(0, -1).ClearContents
        End If
    Next c
End If
Application.EnableEvents = True
End Sub

 

[Coding4Fun]

JoeMo provided a better answer.

 

[Pinaceous]

cell in Colum

This is sheet code for the worksheet of interest. When you delete the contents of a cell in col I, the contents of the adjacent cell in col H will be cleared. The code is written to handle the case of multiple cells in col H being selected by the user and then being cleared simultaneously by the user pressing the Delete key.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("I:I")) Is Nothing Then
    For Each c In Intersect(Target, Range("I:I"))
        If IsEmpty(c) Then
            Application.EnableEvents = False
            c.Offset(0, -1).ClearContents
        End If
    Next c
End If
Application.EnableEvents = True
End Sub

Thanks

JoeMo!​

 

[JoeMo]

Thanks

JoeMo!​

You are welcome - thanks for the reply.