Just learning the tricks of the trade!

[JJRudd]

Okay, I've, searched the entire board, read through a ton of questions, but I'm am too new at Excel to completely understand some of the answers and then adapt them to my situation.
This is a sample of what I have.
A B C D E F G ........Q
Name|position|Supv Name|Supv Began| hired |Last report|Proj next|
Bob | desk | Sammy | 2Feb03 |2 Feb 03| 5Feb05 |5Feb06 |

I have a formula that updates G whenever I update a date in F. It automatically bumps out G by a year. I'm wanting the program to automatically sort using column G, having the closest Projected date being on top. How can I make this happen? Each row needs to stay together. ie: A5-Q5 stays together. A6-Q6, etc. Any help would be appreciated.

 

[colbymack]

I am guessing that is not it since you said you don't get the message until you try to save. Maybe you can log an issue with Microsoft and see if they can tell you what it is. Sorry I am not of any help.

colbymack

 

[JJRudd]

Sorry, this may help you problem solvers out there.
When I try to save, the Debug screen pops up with this message:

Run-time error '1004':
Select method of Range class field

When I push end on this screen, everything saves just fine like I want it to. Like I said earlier, it's just annoying.

 

[just_jon]

I can't generate that error given the [ modified below ] code, using Win2K/O2K, and deleting the ref to DataOption1

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
    <SPAN style="color:#007F00">' Do nothing if no change to G4:G100</SPAN>
    <SPAN style="color:#00007F">If</SPAN> Intersect(Target, Range("G4:G100")) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
    Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>
    Range("A4:Z100").Sort Key1:=Range("G4"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
    Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>


</FONT>