Control Buttons, Macros, Fill Colors

Logit · #1 11-06-2017, 05:37 PM

.
This code is pasted in the Sheet Level module :

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'If the target cell is clear
     If Target.Interior.ColorIndex = xlNone Then

        'Then change the background to the specified color
        Target.Interior.ColorIndex = 6                          '6 is yellow

        'But if the target cell is already the specified color
        ElseIf Target.Interior.ColorIndex = 6 Then

        'Then change the background to the specified color
        'Target.Interior.ColorIndex = 3                         '3 is red

        'But if the target cell is already the specified color
        'ElseIf Target.Interior.ColorIndex = 3 Then

        'Then clear the background color
        Target.Interior.ColorIndex = xlNone

    End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Font and Fill Colors invisible in Excel 2007	tiger hunt	Excel	0	02-28-2017 02:19 AM
Contract Template - Employment fill-in and macros	tina_mariee	Word	1	02-11-2017 04:56 PM
Visual basic and Macros buttons are gray	atom3	PowerPoint	3	03-04-2016 11:46 AM
Need to put two highlight buttons on toolbar in different colors	davidmrt	Word	6	12-11-2011 05:54 AM
Create a toolbar of fill colors	itgoeson	PowerPoint	0	08-24-2010 01:26 PM