expand vba code to act the same for multiple rows without deleting all information in different rows based on a cell in a different rows value

Question

i am using this code in excel vba and it is working fine for this row however i am wanting to apply the code to work in the same way but for all the rows in the m column based on the specific rows value and not clear contents of all the rows in the other columns based on 1 cell in the m columns value, hope this makes sense

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("M4")) Is Nothing Then
        Range("N4:T4").ClearContents        
    End If

End Sub

What does "based on the specific rows value" mean? Can you elaborate? — BigBen, Nov 01 '19 at 19:17
I think you want to [loop through the cells](https://stackoverflow.com/questions/27000953/excel-vba-loop-through-cells-in-a-column-if-not-empty-print-cell-value-into) in column `M` — cybernetic.nomad, Nov 01 '19 at 19:18

score 0 · Accepted Answer · answered Nov 01 '19 at 19:23

Like this, using Offset and Resize on the Intersection of Target and column M.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("M:M")) Is Nothing Then
        Intersect(Target, Me.Range("M:M")).Offset(, 1).Resize(, 7).ClearContents
    End If

End Sub

expand vba code to act the same for multiple rows without deleting all information in different rows based on a cell in a different rows value

1 Answers1