Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change event and ranges
An area on my worksheet is used to build a VLookup table of holidays. I have
a button that will re-sort the table. I have the code bleow that will change the color of the cell with the date when it is entered. Also the button changes text & color based on if a new sort will be needed... I am getting a type mismatch error when I select an area (that intersects one of my date cells). How can I handle this to prevent errors? or how do I test for erasing an area and only go into the change color code when I am processing the cell(s) of an area that intersect? Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Application.Intersect(Target, ActiveSheet.Range("e6:e50")) If Not isect Is Nothing Then If Len(Target.Value) 0 Then Target.Interior.ColorIndex = 3 'Cell background red Set_SortButton ("Red") Target.Select Else Target.Interior.ColorIndex = xlColorIndexNone End If End If End Sub -- Regards, John |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Referring to Ranges in Change-Event Macro? | Excel Discussion (Misc queries) | |||
MsgBox in Enter event causes combobox not to run Change event | Excel Programming | |||
Change event and calculate event | Excel Programming | |||
is there any event like worhsheet_change for ranges? | Excel Programming | |||
change event/after update event?? | Excel Programming |