parscon
01-09-2014, 06:25 AM
I have this VBA code and it will clean the row that it doesn't start with a number and also i need to add _ and TD that mean also do not clean the row that start with _ or 'TD' also.
Could you please help me on this subject .
Thank you very much
Sub CleanRowifnotnumeric()
'clean a row if it doesn't start with a number
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.Range("A1:D1").Resize(ActiveSheet.UsedRange.Count, 1)
For Each cell In rng
If IsNumeric(Left(cell.Value, 1)) = False Then cell.Rows.ClearContents
Next cell
End Sub
Could you please help me on this subject .
Thank you very much
Sub CleanRowifnotnumeric()
'clean a row if it doesn't start with a number
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.Range("A1:D1").Resize(ActiveSheet.UsedRange.Count, 1)
For Each cell In rng
If IsNumeric(Left(cell.Value, 1)) = False Then cell.Rows.ClearContents
Next cell
End Sub