View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Phrank Phrank is offline
external usenet poster
 
Posts: 153
Default Selective selecting of multiple tabs

That works great!! Thank you so much!

For Garry, the reason I want it in an event is because I and others
periodically forget to select both tabs, which leads to extra work.
I'm just as likely to forget to right click and run this from a menu
item as I am to actually select both tabs. ...unless you were
thinking of something else. The automation of the procedure is what
I'm after, and Jim's fixing of my code seems to do the trick.

Thanks!

Frank

On Fri, 15 Apr 2011 20:05:33 -0700, "Jim Cone"
wrote:

It is good practice to use Option Explicit and declare all variables.
In worksheet event code "Target" is the active cell.
Qualify all ranges with the parent sheet (and the workbook if there is more than one).
The following code is untested but should be close to what you want...
'---
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myActiveCell As String
Dim myFormula As String

myActiveCell = Target(1).Address(False, False)
myFormula = Sheets("CTD").Range(myActiveCell).FormulaR1C1
If InStr(1, myFormula, "=IF(ISERROR", vbTextCompare) Then
Sheets("Data Entry").Select
Else
Sheets(Array("Data Entry", "CTD")).Select
End If
End Sub
'---
Jim Cone
Portland, Oregon USA .
http://www.mediafire.com/PrimitiveSoftware .
(Determine Colors (excel add-in) - in the free folder)




"Phrank"
wrote in message
.. .
I tried the Worksheet_Change event, and that's no good because it
initiated the macro every time I even selected a cell. There are only
two sheets in each workbook. ...well, there's actually a 3rd worksheet
(Notes) with notes as to what to do under certain circumstances. This
3rd sheet is helpful, too, with my code, because if for some reason
someone wants to access the CTD sheet, all they need to do is click on
the Notes tab to deselect the other two tabs, then the can select the
CTD tab alone. That part works well. I just need it to be able to
look at the analagous cell in the 2nd tab and press on with the macro.
For some reason, it's working when tested outside of the
Worksheet_SelectionChange event, but not working inside the event.
Thanks.
Frank