Re: Change color of entire row and column examle

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: packat (chariya_at_verizon.not)
Date: 12/26/04 

Date: Sun, 26 Dec 2004 23:30:20 GMT

Chip,
I tried what you suggested, but there is no change.

I also tried adding this code to another workbook that has a
working Work*** Change event.
And it does not work there either.
Thanks,
pac

Chip Pearson wrote:
> Ensure that events are enabled. In VBA, open the
> Immediate
> Windows (CTRL+G) and type the following and press Enter:
>
> Application.EnableEvents = True
>
>
>
> "packat" <chariya@verizon.not> wrote in message
> news:UfHzd.4203$Y57.1975@trnddc08...
>> Thanks Cip / Otto fopr a quick response.
>> I did put the code in the work*** code module. I also
>> created a bran new workbook with only one sheet,( sheet1)
>> and
>> put this code
>> in the sheet1 code module. Nothing happened.
>>
>> Somehow, Excel doesn't recognize the SelectionChange
>> event. I
>> am not sure if I did turn the event off in previous
>> workbook.
>> But there is nothingelse exists in this new file.
>>
>> pac
>>
>>
>>
>>
>>
>>
>> packat wrote:
>>> I am reading a book on Excel and VBA programming (for
>>> Excel
>>> 2000). There is one example in the book that I could
>>> not
>>> get to work.
>>> See the code below. This code is Workbook
>>> SelectionChange
>>> event, which is supposed to change the color of entire
>>> rows
>>> and columns intersecting the selected cell(s).
>>>
>>> I am also using Excel2000. Anyone spot any error in
>>> this
>>> code?
>>> Thanks,
>>> pac
>>>
>>> -------------
>>> Private Sub Worksheet_SelectionChange(ByVal target As
>>> Range)
>>> Rows.Interior.ColorIndex = 0
>>> target.EntireColumn.Interior.ColorIndex = 36
>>> target.EntireRow.Interior.ColorIndex = 37
>>> Debug.Print target
>>> End Sub
>>> -------------

Quantcast