Clear contents rows macro

[doriannjeshi]

Hi,

I need to Clear contents of the 1s in all the rows in colum A, activesheet

june	march
1
april	april
1
march	march
1
october	october
1
november	november
1
may	may
1
january	january
1
february	february
1
june	june
1
april	april
RESULT:
june	march
april	april
march	march
october	october
november	november
may	may
january	january
february	february
june	june
april	april

 

[Peter_SSs]

Based on that sample data, what about this?

Sub Clear_Rows()
  Columns("A").SpecialCells(xlConstants, xlNumbers).EntireRow.ClearContents
End Sub

Edit:
Or I may have misread or misinterpreted what you wrote. Did you mean to only clear column A?

Sub Clear_Rows()
  Columns("A").SpecialCells(xlConstants, xlNumbers).ClearContents
End Sub

 

[doriannjeshi]

Hi,
I need the whole rows that have 1 in column A to be cleared

 

[Peter_SSs]

So did the first code work how you wanted?

 

[doriannjeshi]

So did the first code work how you wanted?

No, it just deletes the row content in column A, I need the content of the entire row if possible

 

[MARK858]

You are running the 2nd code if it is only clearing column A

 

[doriannjeshi]

Yes, I was running the second code only
Thank you Peter!
And thank you Mark for pointing that out!

 

[Peter_SSs]

You're welcome. Glad it is sorted.