I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.

Bryan
I assumed that the names in sheet 1 are in Column A starting in A2. I
assumed that sheet 2 is named "Two". I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. I gather that you want to place a button in sheet 1 to make
this happen. Assign the following macro to that button. Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". HTH Otto
Sub JumpShade()
Dim TheName As String
Dim Sht2Row1 As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("Two").Select
Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Cells.Interior.ColorIndex = xlNone
Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End Sub
wrote in message
...
I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.

On 17 Nov, 18:21, "Otto Moehrbach"
wrote:
Bryan
* * I assumed that the names in sheet 1 are in Column A starting in A2. *I
assumed that sheet 2 is named "Two". *I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. *I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. *I gather that you want to place a button in sheet 1 to make
this happen. *Assign the following macro to that button. *Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". *HTH *Otto
Sub JumpShade()
* * Dim TheName As String
* * Dim Sht2Row1 As Range
* * Application.ScreenUpdating = False
* * TheName = Cells(ActiveCell.Row, 1).Value
* * Sheets("Two").Select
* * Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
* * Cells.Interior.ColorIndex = xlNone
* * Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
* * * * .EntireColumn.Interior.ColorIndex = 15
* * Application.ScreenUpdating = True
End wrote in message

...



I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.- Hide quoted text -

- Show quoted text -

Ummm not exactly. I haven't explained it well at now I read your
reply. On sheet1 which is called Home the names are from A6 down to
A255 on sheet2 which is called A the names go from E6 to IT6.

Here is the revised macro. The location of the names in the first sheet is
immaterial except that the names are in Column A (doesn't matter what rows).
HTH Otto
Sub JumpShade()
Dim TheName As String
Dim ShtANames As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("A").Select
Set ShtANames = Range("E6:IT6")
Cells.Interior.ColorIndex = xlNone
ShtANames.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End Sub
wrote in message
...
On 17 Nov, 18:21, "Otto Moehrbach"
wrote:
Bryan
I assumed that the names in sheet 1 are in Column A starting in A2. I
assumed that sheet 2 is named "Two". I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. I gather that you want to place a button in sheet 1 to make
this happen. Assign the following macro to that button. Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". HTH Otto
Sub JumpShade()
Dim TheName As String
Dim Sht2Row1 As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("Two").Select
Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Cells.Interior.ColorIndex = xlNone
Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End wrote in message

...



I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.- Hide quoted text -

- Show quoted text -

Ummm not exactly. I haven't explained it well at now I read your
reply. On sheet1 which is called Home the names are from A6 down to
A255 on sheet2 which is called A the names go from E6 to IT6.

On 17 Nov, 21:22, "Otto Moehrbach"
wrote:
Here is the revised macro. *The location of the names in the first sheet is
immaterial except that the names are in Column A (doesn't matter what rows).
HTH *Otto
Sub JumpShade()
* * Dim TheName As String
* * Dim ShtANames As Range
* * Application.ScreenUpdating = False
* * TheName = Cells(ActiveCell.Row, 1).Value
* * Sheets("A").Select
* * Set ShtANames = Range("E6:IT6")
* * Cells.Interior.ColorIndex = xlNone
* * ShtANames.Find(What:=TheName, Lookat:=xlWhole) _
* * * * .EntireColumn.Interior.ColorIndex = 15
* * Application.ScreenUpdating = True
End wrote in message

...
On 17 Nov, 18:21, "Otto Moehrbach"
wrote:





Bryan
I assumed that the names in sheet 1 are in Column A starting in A2. I
assumed that sheet 2 is named "Two". I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. I gather that you want to place a button in sheet 1 to make
this happen. Assign the following macro to that button. Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". HTH Otto
Sub JumpShade()
Dim TheName As String
Dim Sht2Row1 As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("Two").Select
Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Cells.Interior.ColorIndex = xlNone
Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End wrote in message

....

I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.- Hide quoted text -

- Show quoted text -

Ummm not exactly. I haven't explained it well at now I read your
reply. On sheet1 which is called Home the names are from A6 down to
A255 on sheet2 which is called A the names go from E6 to IT6.- Hide quoted text -

- Show quoted text -

Thanks Ootto, I will try it when I get home. Thanks again.

Bryan

On 17 Nov, 21:50, wrote:
On 17 Nov, 21:22, "Otto Moehrbach"
wrote:





Here is the revised macro. *The location of the names in the first sheet is
immaterial except that the names are in Column A (doesn't matter what rows).
HTH *Otto
Sub JumpShade()
* * Dim TheName As String
* * Dim ShtANames As Range
* * Application.ScreenUpdating = False
* * TheName = Cells(ActiveCell.Row, 1).Value
* * Sheets("A").Select
* * Set ShtANames = Range("E6:IT6")
* * Cells.Interior.ColorIndex = xlNone
* * ShtANames.Find(What:=TheName, Lookat:=xlWhole) _
* * * * .EntireColumn.Interior.ColorIndex = 15
* * Application.ScreenUpdating = True
End wrote in message

....
On 17 Nov, 18:21, "Otto Moehrbach"
wrote:

Bryan
I assumed that the names in sheet 1 are in Column A starting in A2. I
assumed that sheet 2 is named "Two". I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. I gather that you want to place a button in sheet 1 to make
this happen. Assign the following macro to that button. Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". HTH Otto
Sub JumpShade()
Dim TheName As String
Dim Sht2Row1 As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("Two").Select
Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Cells.Interior.ColorIndex = xlNone
Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End wrote in message

....

I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.- Hide quoted text -

- Show quoted text -

Ummm not exactly. I haven't explained it well at now I read your
reply. On sheet1 which is called Home the names are from A6 down to
A255 on sheet2 which is called A the names go from E6 to IT6.- Hide quoted text -

- Show quoted text -

Thanks Ootto, I will try it when I get home. Thanks again.

Bryan- Hide quoted text -

- Show quoted text -

Otto, thanks for the assistance. I have added the macro but nothing
happens at all. No errors messages, nothing happens. I've tried
putting the macro on each page in case I was doing it wrong, each time
the same result.

Bryan

Hi Bryan,
What you can do is to unprotect the cells where you want the information to
be entered and then protect the sheet. Although you can highlight the cells
where the information has to be entered. So if somebody wants to enter
information outside your parameters a message error will show up

" wrote:

I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.