Clearing Adjacent cells data

[Don Fardie]

Hi ....New to VBA’s and I assume that what is needed to ClearCell content. I have data being added to cell ranges K16:K34. Based on theinput entered into those cells (selection is based of a Data Validation list)the information in the adjacent cells L16:L34, M16:M34, N16:N34 can then beselected (those too are Data Validation Lists, based on what was first enteredinto the K16:K34 cells. <o></o>
What I want to do if the cells are cleared or a newselection is selected in The K range cells, the adjacent cells to them will automaticallyclear the previous data. Any help is appreciated ….Thanks Don<o></o>

 

[Scott T]

try this change event
Right click on the tab you want the code to run on.
Select view code
Paste the code below into the VBA editor.
The file must be saved as a macro enabled file type such as .XLSM

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("K16:K34")) Is Nothing Then
    Range("L" & Target.Row & ":N" & Target.Row).ClearContents
End If
 Application.EnableEvents = True
End Sub

 

[Don Fardie]

You the Man Scott....worked like a charm. If I wanted to extend the column range to say clear to the R column, all I would do is change the :N" to :R"
Thanks again!!!

 

[Scott T]

You're Welcome.

Yes If you want to clear L to R then you would change the :N to an :R.

 

[Don Fardie]

Thanks Scott!!