Macro to round down cells in a column

[Tom Allen]

Hi I have looked through various forum threads regarding my problem but I am unable to find anything that solves what I am looking to achieve.

I am looking to create a macro that rounds down all the values of column D.

So for example even if a value in a cell from column D is 6.98 it would round down to 6.

If anyone could provide assistance on this I would greatly appreciate it.

 

[SteveO59L]

Why do you need code?

 

[Tom Allen]

If there is a better way I would definitely use that, I'm all ears.

Currently I have data that I have imported from another workbook and now I need to round the values down in the same column.

 

[SteveO59L]

something like
=ROUNDDOWN(G8,0)

will round down the number in g8 (if 6.98 is in g8, the result would be 6)

 

[Tom Allen]

Thanks, yeah I managed to figure that formula out but I need the same results to be carried out via a macro.

 

[FormR]

You could give this a go, assumes the data starts on row 2.

Sub m()
With Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    .Cells = Evaluate("=INDEX(ROUNDDOWN(" & .Address & ",0),0)")
End With
End Sub

 

[Tom Allen]

Brilliant thanks, that worked perfectly.