MULTIPLY TEXT by 1: vba for multiplying text cells by 1 but do not return #VALUE!

[itr674]

Using this code to get rid of extra character but then need to multiply by 1 to calculate dates correctly...I'm still actively working it...

Public Sub Remove()
Dim oCell As Range
Range("B8:BU172").Select
For Each oCell In Selection
oCell.Value = Application.WorksheetFunction.Clean(oCell.Value)
oCell.NumberFormat = "yyyy mmm dd"
Next oCell
End Sub

 

[Rick Rothstein]

Using this code to get rid of extra character but then need to multiply by 1 to calculate dates correctly...I'm still actively working it...

Public Sub Remove()
Dim oCell As Range
Range("B8:BU172").Select
For Each oCell In Selection
oCell.Value = Val(Application.WorksheetFunction.Clean(oCell.Value))
oCell.NumberFormat = "yyyy mmm dd"
Next oCell
End Sub

Excel's CLEAN function is a text function, so it returns text to the cell. See if adding what I show in red above makes the code work the way you want.

 

[itr674]

That code turns all cells to dates, so that seems not to work...

 

[itr674]

The problem is some cells have N/A and then some cells are empty, well except for "return" character and spaces...I'm am still working it between other things...all this multi tasking is crazy...

 

[Rick Rothstein]

The problem is some cells have N/A and then some cells are empty, well except for "return" character and spaces...I'm am still working it between other things...all this multi tasking is crazy...

What do you want placed in the cells for the non-date values?