Cell Content Removal
 

I was wondering if someone could help me with a macro where it would remove
cell contents if certain criteria is not met.
Weekly i create a new file to be distributed that I need to clean up up cell
contents that does not meet specific criteria.
The criteria I need to meet is the following, column name listed first, than
criteria, for all others I will need the cell contents removed for the column
name listed below.

Column Name and Criteria where cell contents are needed for three columns
within worksheet:
Year = 2008 or greater
Defect = "Yes"
Human Error = "Yes or "No"
Status = "Closed", or" Closed - No Action" or "Contionous"

If this criteria is not met above than remove cell contents in the following
columns: "Project", "Details", and "Cost"
I am thinking I need some type of dowhile loop, but not real fluent on VBA.
Any help would be greatly appreciated.

Cell Content Removal
 

You didn't specify the column so I made the code generic. Change the column
letters as required.

Sub RemoveData()

YearCol = "A"
DefectCol = "B"
HumanErrCol = "C"
StatusCol = "D"
ProjectCol = "E"
DetailsCol = "F"
CostCol = "G"

RowCount = 1
Do While Range("A" & RowCount) < ""
MyYear = Year(Range(YearCol & RowCount))
Defect = Range(DefectCol & RowCount)
HumanErr = Range(HumanErrCol & RowCount)
Status = Range(StatusCol & RowCount)
If (MyYear < 2008) Or _
(Defect < "YES") Or _
(HumanErr < "YES" And HumanErr < "No") Or _
(Status < "Closed" And Status < "Closed - No Action" And _
Status < "Contionous") Then


Range(ProjectCol & RowCount).ClearContents
Range(DetailsCol & RowCount).ClearContents
Range(CostCol & RowCount).ClearContents
End If
RowCount = RowCount + 1
Loop


End Sub


"Jen_T" wrote:

I was wondering if someone could help me with a macro where it would remove
cell contents if certain criteria is not met.
Weekly i create a new file to be distributed that I need to clean up up cell
contents that does not meet specific criteria.
The criteria I need to meet is the following, column name listed first, than
criteria, for all others I will need the cell contents removed for the column
name listed below.

Column Name and Criteria where cell contents are needed for three columns
within worksheet:
Year = 2008 or greater
Defect = "Yes"
Human Error = "Yes or "No"
Status = "Closed", or" Closed - No Action" or "Contionous"

If this criteria is not met above than remove cell contents in the following
columns: "Project", "Details", and "Cost"
I am thinking I need some type of dowhile loop, but not real fluent on VBA.
Any help would be greatly appreciated.