Skip to main content

[archive] excel @find and @findnext

  • August 25, 2006
  • 6 replies
  • 0 views
D

[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 **

    6 replies

    D

    [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 **
    **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.
    D

    [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 **
    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 ***
    D

    [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 **
    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.
    D

    [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 **
    ** 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 ***
    1 Attachments
    D

    [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 **
    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
    D

    [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 **
    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

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement