Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: omgekeerde For

  1. #1
    Senior Member
    Geregistreerd
    13 december 2010
    Vraag is opgelost

    omgekeerde For

    Beste allen.

    In VBA gebruik ik nog wel eens de opdracht For

    For A = 2 to 1000
    if cells(A,1) = en dan de actie
    next

    Dit werkt dus vanaf regel 2 naar beneden tot 1000. Nu zou ik willen dat de opdracht vanaf regel 1000 start en dan naar boven gaat. Is dat mogelijk?

  2. #2
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    For a=1000 to 2 step -1

  3. #3
    Senior Member
    Geregistreerd
    13 december 2010
    bedankt

  4. #4
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Voor snelheid gebruik een array:

    Code:
    Sub M_snb()
      sn = [A1:A1000]
    
      for ubound(sn) to 2 step -1
        x0 = sn(j,1)
      next
    End Sub
    Voor flexibiliteit gebruik een array:
    Code:
    Sub M_snb()
      sn = sheet1.cells(1).currentregion
    
      for ubound(sn) to 2 step -1
         x0=sn(j,1)
      next
    End Sub
    Laatst aangepast door snb : 2 september 2021 om 10:12
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Beste snb

    Heb je code(s) even getest bij wijze van weer iets te kunnen bijleren
    en krijg foutmelding compileerfout-Syntaxisfout

    Wat is de oorzaak bij me ? test gedaan "For vervangen door "Mijn", maar fout blijft

    Alvast bedankt,

    Georgyboy
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Compileerfout - Syntaxisfout.jpg‎
Bekeken: 4
Grootte:  43,6 KB  

  6. #6
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Dankjewel. Ik was de variabele vergeten:

    Code:
    Sub M_snb()
      sn = [A1:A1000]
    
      for j = ubound(sn) to 2 step -1
        x0 = sn(j,1)
      next
    End Sub
    Code:
    Sub M_snb()
      sn = sheet1.cells(1).currentregion
    
      for  j = ubound(sn) to 2 step -1
         x0=sn(j,1)
      next
    End Sub
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren