Highlighted
Absent Member.
Absent Member.
733 views

[archive] excel @find and @findnext

[Migrated content. Thread originally posted on 25 August 2006]

:mad:

**Estoy haciendo una busqueda en excel y me informa tipo no valido**
**I am making a search in excel and nonvalued type informs to me **


modify H-Range @Find (
by name What "ALIRIO"
by name After Ws-Excel-A
* by name LookIn W-Var-LookIn
* by name LookAt W-Var-LookAt
* by name SearchOrder W-Var-SearchOrder
* by name SearchDirection W-Var-SearchDirection
* by name MatchCase W-Var-MatchCase
* by name MatchByte W-Var-MatchByte
* by name SearchFormat W-Var-SearchFormat
)
Returning W-Var-Range


modify H-Range @FindNext (
by name After W-Var-After
)
Returning W-Var-Range

**that sera that I am making bad? thank you very much by the aid**
** que sera que estoy haciendo mal, muchas gracias por la ayuda **
0 Likes
6 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

**I am making a search in excel and nonvalued type informs to me **

modify H-Range  @Find (
          by name  What  "ALIRIO"
          by name  After Ws-Excel-A)
          Returning W-Var-Range

modify H-Range  @FindNext (
          by name  After  W-Var-After)
          Returning W-Var-Range

**that sera that I am making bad? thank you very much by the aid**


I could not find this code example of yours in the attached file, however, I found this:

200-Procesar.
*Acceso a la aplicacion
    CREATE  @Application    OF Excel  HANDLE  IN Aplica-Excel.
    MODIFY  Aplica-Excel    @Visible = 1
    MODIFY  Aplica-Excel    Workbooks::@_Open(Arch-Excel)
                GIVING   Book-Excel.
*Miro la hoja
    INQUIRE Book-Excel      Worksheets::Item(1) Sheet-Excel
*Code for Method
    modify H-Range  @Find (by name  What  "GALLO"
              by name  After Ws-Excel-A)
              Returning W-Var-Range


Which will not work. The reason is because H-Range is never given a value. H-Range is supposed to be a valid pointer of the Range class. (USAGE @RANGE).

I appreciate that you provided some source example, but I would advise you, especially when testing out things, limit your code to focus on the simple. When you embedd it direct into the big application, you are making it so much more difficult for yourself.

Hope this helps.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

El ejemplo es este
** The example is this **

WORKING-STORAGE SECTION.

77 H-Range handle of @Range.
77 W-Var-Range handle of @Range
77 W-Var-After PIC X(50).


*Code for Method
modify H-Range @Find (
by name What "GALLO"
by name After Ws-Excel-A
)
Returning W-Var-Range

** informa tipo dato no valido ** que tengo malo?? **
** it informs type he is not correct ** that I have bad ???

** favor una ayuda URGENTE ***
** please one helps URGENT ***
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

If you want help, you have to show a small, but full program that illustrates the problem. I cannot guess on what you are doing.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

** Este es el ejemplo **
** The example is this **

*Find
INQUIRE olWrkSh Cells IN Range-Excel
MODIFY Range-Excel Find(BY NAME @What="ALIRIO",
BY NAME @After=MY-Celda)
GIVING Range-Excel2

** please one helps URGENT ***
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

My-Celda has to be HANDLE OF RANGE, e.g:

           INQUIRE olWrkSh          Range("A1") IN MY-Celda.
           MODIFY  olRange          Find(
                   BY NAME What "Name" ,
                   BY NAME After MY-Celda)
                   GIVING other-range
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] excel @find and @findnext

Thank you, I work, but now he/she doesn't make the findnext, he stays in the same cell
he helps please and thank you he/she sends him the example
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.