hello,

i have looked endlessly on a way to perform a simple task. PLEASE
HELP!

when i click on a cell in sheet 1, i would like to move to a certain
cell of sheet 2.

if i click on F4 in sheet 1, the i would like to select cell E2 in
sheet 2.
if i click on F5 in sheet 1, the i would like to select cell F2 in
sheet 2.
if i click on F6 in sheet 1, the i would like to select cell G2 in
sheet 2.

and so on.


THANKS IN ADVANCE!!!
Mike C.

sorry about the "the" it should read "then"

if i click on F4 in sheet 1, then i would like to select cell E2 in
sheet 2.
if i click on F5 in sheet 1, then i would like to select cell F2 in
sheet 2.
if i click on F6 in sheet 1, then i would like to select cell G2 in
sheet 2.

'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Address = "$F$4" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("E2").Select
ElseIf Target.Address = "$F$5" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("F2").Select
ElseIf Target.Address = "$F$6" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("G2").Select
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.




--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"tinkerbellsmyhoe" wrote in message
ups.com...
hello,

i have looked endlessly on a way to perform a simple task. PLEASE
HELP!

when i click on a cell in sheet 1, i would like to move to a certain
cell of sheet 2.

if i click on F4 in sheet 1, the i would like to select cell E2 in
sheet 2.
if i click on F5 in sheet 1, the i would like to select cell F2 in
sheet 2.
if i click on F6 in sheet 1, the i would like to select cell G2 in
sheet 2.

and so on.


THANKS IN ADVANCE!!!
Mike C.

right click on the sheet tab on sheet1 and select view code.

Put in code like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target.count 1 then exit sub
if Target.column = 6 and Target.row 3 and Target.row < 256 then
worksheets("sheet2").Select
worksheets("Sheet2").Cells(2,Target.row+1).Select
End If
End Sub

--
Regards,
Tom Ogilvy


"tinkerbellsmyhoe" wrote:

hello,

i have looked endlessly on a way to perform a simple task. PLEASE
HELP!

when i click on a cell in sheet 1, i would like to move to a certain
cell of sheet 2.

if i click on F4 in sheet 1, the i would like to select cell E2 in
sheet 2.
if i click on F5 in sheet 1, the i would like to select cell F2 in
sheet 2.
if i click on F6 in sheet 1, the i would like to select cell G2 in
sheet 2.

and so on.


THANKS IN ADVANCE!!!
Mike C.

right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row 1 Then _
Application.Goto Sheets("sheet2").Cells(2, Target.Row + 3)
End Sub

--
Don Guillett
SalesAid Software

"tinkerbellsmyhoe" wrote in message
ups.com...
hello,

i have looked endlessly on a way to perform a simple task. PLEASE
HELP!

when i click on a cell in sheet 1, i would like to move to a certain
cell of sheet 2.

if i click on F4 in sheet 1, the i would like to select cell E2 in
sheet 2.
if i click on F5 in sheet 1, the i would like to select cell F2 in
sheet 2.
if i click on F6 in sheet 1, the i would like to select cell G2 in
sheet 2.

and so on.


THANKS IN ADVANCE!!!
Mike C.

Thank you all for replying so quickly and such good information. i
thought this would be a macro type code so that i could apply it to
only the certain buttons or cells that i would like. i need to add a
piece of code so that it only occurs if the cell matches a certain
text. in my case it is if the text in the cell is an "F".

Thanks again in advance,
Mike C.

'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Value = "F" hen
If Target.Address = "$F$4" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("E2").Select
ElseIf Target.Address = "$F$5" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("F2").Select
ElseIf Target.Address = "$F$6" Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("G2").Select
End If
End If

ws_exit:
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"tinkerbellsmyhoe" wrote in message
oups.com...
Thank you all for replying so quickly and such good information. i
thought this would be a macro type code so that i could apply it to
only the certain buttons or cells that i would like. i need to add a
piece of code so that it only occurs if the cell matches a certain
text. in my case it is if the text in the cell is an "F".

Thanks again in advance,
Mike C.

Man. is there a good complete (CONSISE) book or online reference for
this stuff? this whole time i was trying to use cell.value instead of
target.value. i also tried target.cell and both were incorrect.

I appreciate your help so far....greatly!

thanks,
Mike

Hi Mike,
Since your specific interest at the moment is in Event macros

Event Macros, Worksheet Events and Workbook Events
http://www.mvps.org/dmcritchie/excel/event.htm

Application Events (Chip Pearson)
http://www.cpearson.com/excel/AppEvent.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"tinkerbellsmyhoe" wrote in message oups.com...
Man. is there a good complete (CONSISE) book or online reference for
this stuff? this whole time i was trying to use cell.value instead of
target.value. i also tried target.cell and both were incorrect.

I appreciate your help so far....greatly!

thanks,
Mike

try this modification
right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row 1 and ucase(target.value)="F" Then _
Application.Goto Sheets("sheet2").Cells(2, Target.Row + 3)
End Sub


--
Don Guillett
SalesAid Software

"tinkerbellsmyhoe" wrote in message
oups.com...
Thank you all for replying so quickly and such good information. i
thought this would be a macro type code so that i could apply it to
only the certain buttons or cells that i would like. i need to add a
piece of code so that it only occurs if the cell matches a certain
text. in my case it is if the text in the cell is an "F".

Thanks again in advance,
Mike C.

MAN! This is BS! I am an EE with some coding background and i cant
figure this out for my life. here is the code that i am using:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Column = 6 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(2, Target.Row + 1).Select

End If

If Target.Count 1 Then Exit Sub
If Target.Column = 7 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(13, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 8 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(24, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 9 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(35, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 10 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(46, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 11 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(57, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 12 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(68, Target.Row + 1).Select
End If
If Target.Count 1 Then Exit Sub
If Target.Column = 13 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(77, Target.Row + 1).Select
End If

End Sub

I would like to insert a piece of code into each if statement to change
the target cell + the next 10 rows in that column to a red font. then
change the font back to black (or default) after the selection changes.

i have once again given my best shot and the best i can get (once i get
passed the runtime errors), is for nothing to happen.


Thanks yet again!