Buttons to change font colour

[trevolly]

Good Evening all.

I’m wondering if anyone can help a beginner with Excel. At work we use an excel spreadsheet that we write a daily log on to. We basically type text in to text wrapped cells for each event that happens on the airfield I work at. I would like to be able to make some custom buttons that will change the font colour after you’ve typed the event in to the cell / log. This font colour change would be after I have typed the text in to the cell. For example if there was an emergency on the airfield we would type up what happened, then select the cell (not highlight all the text in the cell) and then press the custom made button which would turn all the text in the selected cell red (and maybe bold).

If anyone could help I’d be very grateful.

Regards.

 

[Rick Rothstein]

Assign this macro to the button...

Sub TurnSelectedCellRed()
  Selection.Font.Color = vbRed
End Sub

 

[JEC]

The macro recorder is your best friend

 

[trevolly]

Thank you v much I’ll give that a go.

 

[johnnyL]

Two subroutines, one that you run to add a button, the other one will execute when you click the button.

After button has been added, just select a cell that you want to change and then click the button.

Sub Add_Red_Text_Button_To_Active_Sheet()
'
    Dim WS  As Worksheet
    Dim oOLE As Excel.Button
'
    Set WS = Sheets(ActiveSheet.Name)                                                   ' <--- Change 'ActiveSheet.Name to another sheet name if desired
'
    Set oOLE = WS.Buttons.Add(Left:=350, Top:=35, Height:=18.75, Width:=150)     ' <--- Change settings to fit your needs
    oOLE.Caption = "Current Cell Red Text"
    oOLE.OnAction = "RedAndBold"
End Sub

Private Sub RedAndBold()
    With ActiveCell
    .Font.Color = vbRed
    .Font.Bold = True
    End With
End Sub