macro for format painter

[tlindeman]

I am not quite sure how to do this. I have monthly data in columns A:B, what I want is if cell A3 has data I would like it to copy and paste special fromat from cell A2. Or jsut format the cell GREy, either way would be acceptable. Is this possible, if so what is the code for it?

Thank you
Tony

 

[klarowe]

Do you want the background color to be grey or the font to be grey?

 

[klarowe]

For background to be grey, copy/past this code in the Sheet code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$3" Then
        If Sheet2.Range("A3") <> "" Then
            With Sheet2.Range("A3")
                .Value = Sheet2.Range("A2")
                .Interior.ColorIndex = 16
                .Interior.Pattern = xlSolid
            End With
        Else: End If
    Else: End If
End Sub

For font color to be grey, copy/past this code into sheet code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$3" Then
        If Sheet2.Range("A3") <> "" Then
            With Sheet2.Range("A3")
                .Value = Sheet2.Range("A2")
                .Font.ColorIndex = 16
            End With
        Else: End If
    Else: End If
End Sub

The code will automatically run if Cell A3 is selected. Make sure to change "sheet2" to your actual sheet name.

 

[tlindeman]

perfect , thank you