Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / July 2006

Tip: Looking for answers? Try searching our database.

combine two cells into new cell with different font format

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Kux - 15 Jul 2006 14:23 GMT
Hello Everyone,
I guess it is an easy one, but I cannot solve it my own.
I have two cells for a reference list.
Cell A1 contains a name of an author, Cell B1 contains an article
title.

I want to combine both sells in C1 like A1&B1. The problem is that in
Cell C1 the authors name (from A1) should appear normal, while the
titel (from B1) should be in italics or bold (both in the same cell)

anybody idea how to do that.

thanks Kai
DS-NTE - 15 Jul 2006 15:03 GMT
AFAIK it can't be done.

knut
> Hello Everyone,
> I guess it is an easy one, but I cannot solve it my own.
[quoted text clipped - 9 lines]
>
> thanks Kai
RagDyeR - 15 Jul 2006 15:52 GMT
Can't be done.

BUT ... try this to add quotes to the title:

=A1&" "&""""&B1&""""

Signature

HTH,

RD
=====================================================
Please keep all correspondence within the Group, so all may benefit!
=====================================================

Hello Everyone,
I guess it is an easy one, but I cannot solve it my own.
I have two cells for a reference list.
Cell A1 contains a name of an author, Cell B1 contains an article
title.

I want to combine both sells in C1 like A1&B1. The problem is that in
Cell C1 the authors name (from A1) should appear normal, while the
titel (from B1) should be in italics or bold (both in the same cell)

anybody idea how to do that.

thanks Kai
Dave Peterson - 15 Jul 2006 16:08 GMT
You can't do it with a formula, but you could do it with a macro.

Option Explicit
Sub testme()

   Dim myRng As Range
   Dim myCell As Range
   Dim wks As Worksheet
   
   Set wks = Worksheets("Sheet1")
   With wks
       Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
   End With
   
   For Each myCell In myRng.Cells
       With myCell
           .Offset(0, 2).Value = .Value & " " & .Offset(0, 1).Value
           With .Offset(0, 2).Characters(Len(.Value) + 2, _
                       Len(.Offset(0, 2).Value))
               .Font.Bold = True
               .Font.Italic = True
           End With
       End With
   Next myCell
End Sub

This assumes your data is in sheet1, A2:Axxx, B2:Bxxx and the results go in
C2:Cxxx.

But if you do this (to make things look pretty), don't destroy the original
columns.

You'll find that having the data separated into fields will make
sorting/filter/summarizing much easier.

If you want, just hide those original columns.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

> Hello Everyone,
> I guess it is an easy one, but I cannot solve it my own.
[quoted text clipped - 9 lines]
>
> thanks Kai

Signature

Dave Peterson


Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.