When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

If you keep the concatenation a formula, then you can't do this.

Sheila wrote:

When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

--

Dave Peterson

But if you are prepared to use VBA then try this:

Sub tryme()

Range("G12") = Range("A12") & Range("B12") & Range("C12") & Range("D12") &
Range("E12")
mystart = Len(Range("A12")) + Len(Range("B12")) + 1
mylen = Len(Range("C12"))
Range("G12").Activate
With ActiveCell.Characters(Start:=mystart, Length:=mylen).Font
.ColorIndex = 3
End With
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Dave Peterson" wrote in message
...
If you keep the concatenation a formula, then you can't do this.

Sheila wrote:

When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

--

Dave Peterson

WOW ! Okay, I'll give it a shot (this will be my first time). Will let you
know.
Thank you very much.

"Bernard Liengme" wrote:

But if you are prepared to use VBA then try this:

Sub tryme()

Range("G12") = Range("A12") & Range("B12") & Range("C12") & Range("D12") &
Range("E12")
mystart = Len(Range("A12")) + Len(Range("B12")) + 1
mylen = Len(Range("C12"))
Range("G12").Activate
With ActiveCell.Characters(Start:=mystart, Length:=mylen).Font
.ColorIndex = 3
End With
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Dave Peterson" wrote in message
...
If you keep the concatenation a formula, then you can't do this.

Sheila wrote:

When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

--

Dave Peterson

Bernard:

I tried the formula, without success. This is what I did:

I'm working with March and April tabs. Below is the code I entered in cell
"D39" on the April tab. Cell "AN35" on the April tab is the one I want to be
red.

February tab, red for "AN33"
March tab, red for "AN34"
April tab, red for "AN35" etc.


Sub tryme()

Range("D39") = Range("Mar!D39) & Range ("AN35") & Range("Mar!F36") & Range
& Range("AN25") & Range("Mar!AE36") & Range("AN26") & Range("Mar!AG36") &
Range ("AN27") & Range("Mar!F37") & Range("AN25") & Range("Mar!AE37") &
Range("AN26") & Range("Mar!AG37") & Range("AN27") & Range("Mar!F38") &
Range("AN25") & Range("Mar!AE38") & Range("AN26") & Range("Mar!AG38").&
Range("AN27")
mystart = Len(Range("MarD39")) + 1
mylen = Len(Range("AN35"))
Range("D39").Activate
With ActiveCell.Characters(Start:=mystart, Length:=mylen).Font
.ColorIndex = 3
End With
End Sub


I entered the above formula, and nothing happened that I can tell.

Thanks so much for your help.




"Sheila" wrote:

WOW ! Okay, I'll give it a shot (this will be my first time). Will let you
know.
Thank you very much.

"Bernard Liengme" wrote:

But if you are prepared to use VBA then try this:

Sub tryme()

Range("G12") = Range("A12") & Range("B12") & Range("C12") & Range("D12") &
Range("E12")
mystart = Len(Range("A12")) + Len(Range("B12")) + 1
mylen = Len(Range("C12"))
Range("G12").Activate
With ActiveCell.Characters(Start:=mystart, Length:=mylen).Font
.ColorIndex = 3
End With
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Dave Peterson" wrote in message
...
If you keep the concatenation a formula, then you can't do this.

Sheila wrote:

When concatenating cells 1-5, to appear in cell 6, how do I get cell 3 to
appear red (with all others black) in cell 6?

--

Dave Peterson