need to have cell fill when I select the cell

TheMSsForum.com: The Microsoft Software Forum

I would like to have a cell either fill with a color or have an x inserted
or something. It doesn't matter what goes into the cell. I need to set up
a column with cells that when I click on them they change. I am trying to
get out of having to type the word yes in every cell. Whatever goes into
the cell represents the word yes.
Top

Re: need to have cell fill when I select the cell by Otto

Otto
Tue Apr 26 21:11:26 CDT 2005

Bob
This macro does what you want. I selected Column C as the column. If
you click on any cell in Column C, a "Yes" will be put into that cell if
that cell is blank, and the cell will be cleared if it is not blank
This is a sheet event macro and must be placed in the module for the
sheet in question. To do this, Right-click on the sheet tab, select View
Code, and paste this macro into that module. HTH Otto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
If Target = "" Then
Target = "Yes"
Else
Target = ""
End If
Application.EnableEvents = False
[A1].Select
Application.EnableEvents = True
End If
End Sub
"Bob" <rlabonte@verizon.net> wrote in message
news:eQgd9msSFHA.3184@TK2MSFTNGP14.phx.gbl...
>I would like to have a cell either fill with a color or have an x inserted
>or something. It doesn't matter what goes into the cell. I need to set up
>a column with cells that when I click on them they change. I am trying to
>get out of having to type the word yes in every cell. Whatever goes into
>the cell represents the word yes.
>


Top

Re: need to have cell fill when I select the cell by Bob

Bob
Tue Apr 26 21:16:19 CDT 2005

That is exactly what I was looking for. Thank you very much.
"Otto Moehrbach" <ottokmnop@comcast.net> wrote in message
news:e718r5sSFHA.3308@TK2MSFTNGP14.phx.gbl...
> Bob
> This macro does what you want. I selected Column C as the column. If
> you click on any cell in Column C, a "Yes" will be put into that cell if
> that cell is blank, and the cell will be cleared if it is not blank
> This is a sheet event macro and must be placed in the module for the
> sheet in question. To do this, Right-click on the sheet tab, select View
> Code, and paste this macro into that module. HTH Otto
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Count > 1 Then Exit Sub
> If Target.Column = 3 Then
> If Target = "" Then
> Target = "Yes"
> Else
> Target = ""
> End If
> Application.EnableEvents = False
> [A1].Select
> Application.EnableEvents = True
> End If
> End Sub
> "Bob" <rlabonte@verizon.net> wrote in message
> news:eQgd9msSFHA.3184@TK2MSFTNGP14.phx.gbl...
>>I would like to have a cell either fill with a color or have an x inserted
>>or something. It doesn't matter what goes into the cell. I need to set
>>up a column with cells that when I click on them they change. I am trying
>>to get out of having to type the word yes in every cell. Whatever goes
>>into the cell represents the word yes.
>>
>
>


Top