none
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 

    Thanks
    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
        Next
    End Sub
    active cell is A1
      
    cell B4 is selected (selection change)  
      
    ____________
    Ashidacchi
    Sunday, June 11, 2017 2:30 AM