Ask a question Report Reply to this topic

Return text with text colour

TheQ1991 2 Posts Saturday June 10, 2017Registration date June 10, 2017 Last seen - Jun 10, 2017 at 10:22 AM - Latest reply: TrowaD 2348 Posts Sunday September 12, 2010Registration dateModeratorStatus April 24, 2018 Last seen

- Jun 12, 2017 at 11:48 AM

Excel Ask a question Report Reply to this topic

Hi

Is there a way of doing the following for example?

In cell B1 for example, I would like whatever is in A1, but with the same text colour.

So if A1 is 'hello' in red, then B1 the will return 'hellos' in red

Thanks

Return text with text colour
Changing of printf()'s text colour in c (Solved) » Forum - Programming
If a cell contains any text then add a value [Solved] (Solved) » Forum - Excel
If cell = date return yes or no. (Solved) » Forum - Office software
Returning text from one of several columns » Forum - Excel
Compare two columns and return text string » Forum - Excel

4 replies

Reply to this topic

Report Respond to Mazzaropi

Mazzaropi 1826 Posts Monday August 16, 2010Registration dateContributorStatus April 15, 2018 Last seen - Jun 10, 2017 at 12:34 PM

Helpful

TheQ1991, Good afternoon.

I believe you need to use a VBA Excel programation to do what you want.

Report Respond to TheQ1991

TheQ1991 2 Posts Saturday June 10, 2017Registration date June 10, 2017 Last seen - Jun 10, 2017 at 08:48 PM

Thank you.

Any idea what the VBA code would be?

Report Respond to vcoolio

vcoolio 1159 Posts Thursday July 24, 2014Registration dateModeratorStatus March 28, 2018 Last seen - Updated by vcoolio on 10/06/17 at 09:19 PM

Helpful

Hello TheQ1991,

Try the following Worksheet_Change event code placed in the sheet module:-

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count > 1 Then Exit Sub
If Target.Value = vbNullString Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

        If Target.Value <> "" And Target.Font.ColorIndex = 3 Then
        Target.Offset(, 1).Value = Target.Value
        Target.Offset(, 1).Font.ColorIndex = 3
End If

End Sub

With the above code, if any cell in Column A is not empty and is formatted to red font, then the value in the adjacent cell in Column B will equal the value in the cell in Column A and in red font. Otherwise, nothing will happen.

To implement the code, right click on the sheet tab, select "view code" from the menu that appears and in the big white field that then appears, paste the above code.

I hope that this helps.

Cheerio,
vcoolio.

P.S. To execute the code:
Once you enter a value in any cell in Column A and then click away (or press enter or down arrow), the code will execute.

Report Respond to TrowaD

TrowaD 2348 Posts Sunday September 12, 2010Registration dateModeratorStatus April 24, 2018 Last seen - Jun 12, 2017 at 11:48 AM

Helpful

Hi TheQ1991,

Or a more general approach then vcoolio's code:

Sub RunMe()
For Each cell In Range("A:A")
    If cell.Value <> vbNullString Then
        cell.Copy cell.Offset(0, 1)
    End If
Next cell
End Sub

Whenever there is a value in column A, copy it to the adjacent with all formats applied.

This code needs to be placed in a standard module and run manually, if you choose to use it.

Best regards,
Trowa

Reply to this topic

Ask a question