Code wont work - help please
in [Programming]
|
Prev: Cell.Text different from Cell.Value when dates are concerned..
Next: Computer that can solve Linear Programming problem?
From: Wes_A on 20 Apr 2010 09:47 My code: Appears to run through but does not produced the expected result, only offsets from current cell. Sheets("AUDIT_TRAIL_MONTHLY").Select On Error Resume Next Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False).Offset(0, 1).Activate
From: Mike H on 20 Apr 2010 10:05 Hi, What do you expect it to do? If it finds the value it will select the cell to the right and then end. -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Wes_A" wrote: > My code: > Appears to run through but does not produced the expected result, only > offsets from current cell. > > Sheets("AUDIT_TRAIL_MONTHLY").Select > On Error Resume Next > Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _ > LookAt:=xlWhole, SearchOrder:=xlByRows, _ > SearchDirection:=xlNext, _ > MatchCase:=False).Offset(0, 1).Activate
From: FSt1 on 20 Apr 2010 10:09 hi your code tells it to do that. remove the offset(0,1) from the find clause. regards FSt1 "Wes_A" wrote: > My code: > Appears to run through but does not produced the expected result, only > offsets from current cell. > > Sheets("AUDIT_TRAIL_MONTHLY").Select > On Error Resume Next > Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _ > LookAt:=xlWhole, SearchOrder:=xlByRows, _ > SearchDirection:=xlNext, _ > MatchCase:=False).Offset(0, 1).Activate
From: Don Guillett on 20 Apr 2010 10:12 Your code tested fine. Must be another problem. If desired, send your file to my address below. I will only look if: 1. You send a copy of this message on an inserted sheet 2. You give me the newsgroup and the subject line 3. You send a clear explanation of what you want 4. You send before/after examples and expected results. -- Don Guillett Microsoft MVP Excel SalesAid Software dguillett(a)gmail.com "Wes_A" <WesA(a)discussions.microsoft.com> wrote in message news:4BEDC56A-4D8E-4D45-8702-58D64496F9BC(a)microsoft.com... > My code: > Appears to run through but does not produced the expected result, only > offsets from current cell. > > Sheets("AUDIT_TRAIL_MONTHLY").Select > On Error Resume Next > Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _ > LookAt:=xlWhole, SearchOrder:=xlByRows, _ > SearchDirection:=xlNext, _ > MatchCase:=False).Offset(0, 1).Activate
From: Wes_A on 20 Apr 2010 10:28
What I mean is, it is not finding the matching data in the first place, sorry if I wasn't clear in my question. "Wes_A" wrote: > My code: > Appears to run through but does not produced the expected result, only > offsets from current cell. > > Sheets("AUDIT_TRAIL_MONTHLY").Select > On Error Resume Next > Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _ > LookAt:=xlWhole, SearchOrder:=xlByRows, _ > SearchDirection:=xlNext, _ > MatchCase:=False).Offset(0, 1).Activate |