Clear the contents of lines based on the partial content of the first column

[banik2008]

Hello all,

I have an Excel file which I use to manually enter information about a group of co-workers, which looks like this:

In the first column, from A12 to A26, I have a list of names. In the range E12 to Z26, I then manually enter the necessary information as needed.

What I would need is, when I click on a button at the end of the month, to run a macro clearing the content of a whole line in the range E12 to Z26, but only whenever a name in range A12 to A26 starts with "X-".

I don't know if I'm clear, so lets say in cell A20 I have the following name: "X- Fred", I would need the whole line from E20 to Z20 to be cleared (leaving A20 untouched).

Thanks in advance for any help.

 

[JackDanIce]

Attach the following code to a button and run:

Sub ClearRow()

Dim rng as Range

Application.ScreenUpdating = False

For Each rng in Range("A12:A26")
  If lcase(Left(rng,2))= "x-" Then rng.offset(,4).Resize(,22).ClearContents
Next rng

Application.ScreenUpdating = True

End Sub

 

[banik2008]

Works fine, thank you

 

[JackDanIce]

You're welcome