Results 1 to 5 of 5
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    WHILE NOT... (2000 sr 1)

    i would want to run the macro do until into column A are present a value...
    I have insert this controll

    While Not Sheets("RIEPILOGO").Range("A" + RIGA) = ""

    and a Wend into the bottom of script, but not work...

    please controll only the variuos steep...

    and a sequence of statement.
    Tks.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: WHILE NOT... (2000 sr 1)

    If you want to repeat the code until something is present in column A, you should omit Not:

    While Sheets("RIEPILOGO").Range("A" + RIGA) = ""

    but I don't see any code that fills column A.

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WHILE NOT... (2000 sr 1)

    sorry Hans...
    do until into column A the macro is present a blank cell...

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: WHILE NOT... (2000 sr 1)

    Do you get an error message, or does the code do something different from what you want, or does it do nothing at all?

    BTW, without indentation in the second part, the code is hard to read.

  5. #5
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WHILE NOT... (2000 sr 1)

    Fiiiiiiiiiiiiii,
    Tks and sorry solved:
    i have insert from the last operation a goto COPESUCC: in this mode the macro run do until into column A is present a blank cell.
    Tks and sorry.

    ==============
    COPESUCC:
    ==============

    While Not Sheets("RIEPILOGO").Range("A" + RIGA) = ""
    If Not Sess0.SCREEN.GETSTRING(8, 24, 4) = "COPE" Then
    MsgBox ("MASCHERA DI PARTENZA ERRATA - RICERCA INTERROTTA")
    Exit Sub
    End If

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •