VBA to Delete values/ Formula from a column excluding certain values

[the3rdman77]

Hi All

I am a relative novice when it comes to VBA - I probably know enough to be spreadsheet dangerous.

All I am trying to do is clear the contents of cells in a column - All whole numbers but leave certain text+Numbers in a cell.

The data is fluid so changes each week - apart from the 1st row.

So in my example - I do not want to touch column A, In column B I want to delete all numbers but Leave the words Bas1, Bas2 Bas3 Bas4 in the cells they are in.

I have done a lot of searches and trials but not got what I need - Apologies if this is simple.

[Croweater]

Seems like the numbers are generated by formulas? Try this macro;

Please Login or Register  to view this content.

or...

Please Login or Register  to view this content.

[Marc L]

According to the attachment a VBA demonstration according to Excel basics for starters :

Sub Demo1() 
    With ActiveSheet.UsedRange.Columns(2) 
        .Value2 = Evaluate(Replace("IF(ISTEXT(#),#,"""")", "#", .Address)) 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[the3rdman77]

Seems like the numbers are generated by formulas? Try this macro;

Please Login or Register  to view this content.

or...

Please Login or Register  to view this content.

Thanks Croweater - Both work spot on.

[the3rdman77]

According to the attachment a VBA demonstration according to Excel basics for starters :

Sub Demo1() 
    With ActiveSheet.UsedRange.Columns(2) 
        .Value2 = Evaluate(Replace("IF(ISTEXT(#),#,"""")", "#", .Address)) 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Cheers Marc L - Works as well - Thank you