• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

omgekeerde For

Status
Niet open voor verdere reacties.
E

Egbert12345

Gebruiker
Lid geworden
13 dec 2010
Berichten
496
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?
 
For a=1000 to 2 step -1
 
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 bewerkt:
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
 

Bijlagen

  • Compileerfout - Syntaxisfout.jpg
    Compileerfout - Syntaxisfout.jpg
    43,6 KB · Weergaven: 9
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
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan