Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I currently have a script that looks like this...............
If ActiveCell.Address(False, False) = "K7" Then OpenCalendar .. .. .. .. .. .. If ActiveCell.Address(False, False) = "K70" Then OpenCalendar How do I enter for it to look at the range instead of having to type a line for each of the cells in the range? |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Note: you can use this if your range is not one area
If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then See also http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm wrote in message oups.com... I currently have a script that looks like this............... If ActiveCell.Address(False, False) = "K7" Then OpenCalendar . . . . . . If ActiveCell.Address(False, False) = "K70" Then OpenCalendar How do I enter for it to look at the range instead of having to type a line for each of the cells in the range? |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
This example is for the SelectionChange event
If you use it in a normal macro chnage target to ActiveCell -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Ron de Bruin" wrote in message ... Note: you can use this if your range is not one area If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then See also http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm wrote in message oups.com... I currently have a script that looks like this............... If ActiveCell.Address(False, False) = "K7" Then OpenCalendar . . . . . . If ActiveCell.Address(False, False) = "K70" Then OpenCalendar How do I enter for it to look at the range instead of having to type a line for each of the cells in the range? |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
On Jun 15, 11:46 am, "Ron de Bruin" wrote:
This example is for the SelectionChange event If you use it in a normal macro chnage target to ActiveCell -- Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm "Ron de Bruin" wrote in . .. Note: you can use this if your range is not one area If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then See also http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm wrote in ooglegroups.com... I currently have a script that looks like this............... If ActiveCell.Address(False, False) = "K7" Then OpenCalendar . . . . . . If ActiveCell.Address(False, False) = "K70" Then OpenCalendar How do I enter for it to look at the range instead of having to type a line for each of the cells in the range?- Hide quoted text - - Show quoted text - Great, thanks Ron. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Adjusting the range of a script | Excel Programming | |||
VB Script to insert row and calculate a range | Excel Programming | |||
sub script out of range problem | Excel Programming | |||
Script out of range error | Excel Programming | |||
Run Time Error 9, Script Out of Range | Excel Programming |