macro to format data label, and add comma and percentage

**ammartino44** · 04-06-2015, 02:31 PM

Hello. I have data labels in a chart. I would like to create a macro that takes the column to the right of each data label value and adds that as a % after the data label number.

For example, I have 20,000 in N4 (data label), I would like the macro to add a comma and then select the column to the right which in this case is a percentage. So it would be 20,000, +10% in all of the data labels. Thanks!!

**meus** · 04-07-2015, 01:31 AM

Attach Workbok first and describe in brief what youu want to do..

**alansidman** · 04-07-2015, 05:37 AM

Is this what you are looking for?

Option Explicit

Sub mart()
    Dim lr As Long
    lr = Range("N" & Rows.Count).End(xlUp).Row
    Dim i As Long
    
    For i = 4 To lr
    Range("N" & i).Value = Range("N" & i) & ", +" & Range("O" & i).Value
    Next i

End Sub