Return text with font colour RRS feed

  • Question

  • 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 'hello' in red 

    Sunday, June 11, 2017 12:52 AM

All replies

  • Hi,

    If source column can be determined like column 1 - 10, you can make code like this:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim myRow As Integer
        For myRow = 1 To 100
            Cells(myRow, 2).Font.Color = Cells(myRow, 1).Font.Color
    End Sub
    active cell is A1
    cell B4 is selected (selection change)  
    Sunday, June 11, 2017 2:30 AM