Multiply columns to 1

[LeanneBG]

Hi Experts!

I have been trying to figure out how to multiply 3 columns (column C, F and I) by 1 and paste as values -- up until last row but excluding the header since the header is text and will generate an error if i do this.

I tried recording the process of how i do it but i'm getting a numerous line items of code. I believe there's a shorter way to do it. Appreciate if anyone can suggest a shorter way. Thanks in advanceE

 

[LeanneBG]

If it is that your values are Date/Time stored as text, then you might also try this method. This assumes that your dates are in D/M/Y format. If they would be M/D/Y format then change the FieldInfo array to Array(1, 3)

Sub Convert_Values()
  Dim Col As Variant

  For Each Col In Split("C F I")  '<-List your columns here with spaces
    Columns(Col).TextToColumns DataType:=xlDelimited, Space:=False, Other:=False, FieldInfo:=Array(1, 4)
  Next Col
End Sub

IT WORKS!! Thanks everyone!! :D

 

[Peter_SSs]

IT WORKS!! Thanks everyone!! :D

You're welcome. Thanks for the follow-up.