Fonts

  • Thread starter Thread starter Gregg
  • Start date Start date
G

Gregg

I have "Arial" numbers in C2:C2000 and "MS Reference Special"
fractions:1/4,1/2,or 3/4 (these fractions are represented entirely vertically
in "MS Reference Special" with a horizontal dividing line) in D2:D2000. I
would like to concatenate these values in E2:E2000 retaining the individual
formatting. If it's possible with a worksheet formula fine; but I would also
like to be able to do this with a sub procedure if possible. Any ideas or
solutions more than welcome.
 
Try the below macro..with the default font (Arial) in ColE

Sub Macro2()
Dim lngRow As Long, lngLastRow As Long
lngLastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
For lngRow = 1 To lngLastRow
Range("E" & lngRow) = Range("C" & lngRow) & Range("D" & lngRow)
With Range("E" & lngRow).Characters(Start:=Len(Range("C" & lngRow)) + 1, _
Length:=Len(Range("D" & lngRow))).Font
..Name = "MS Reference Specialty"
..FontStyle = "Regular"
..Size = 10
End With
Next
End Sub

If this post helps click Yes
 
the upside is you've solved my problem. the downside is you did it so
quickly that
I feel quite a bit more useless than I did while posting the question, but
at least now maybe I'll be able to pick something up by "F8" ing through your
code.
Thanks a lot

Gregg
 
Back
Top