repeat vba

[joncoll]

Hi I wrote this to concatenate cells but keep one of them bold. Is there a loop i can use to copy it down so that they all chaneg instead of writing it longhand?

Thanks,

KC

Public Sub test1()
Do
Range("J2").Select 'change the cell as you like
ActiveCell.Value = " " & Range("C2") & " " & Range("D2") & " " & Range("E2")
With ActiveCell.Characters(Start:=2, Length:=Len(Range("C2"))).Font
.Bold = True
End With
Range("K2").Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

 

[VoG]

Hi. Try this

Public Sub test1()
Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("J" & i)
        .Value = " " & Range("C" & i).Value & " " & Range("D" & i).Value & " " & Range("E" & i).Value
        .Characters(Start:=2, Length:=Len(Range("C" & i ))).Font.Bold = True
    End With
Next i
End Sub

 

[joncoll]

Thank you so much for this, enjoy the Tanqueray