loop met rijen overslaan

[don42]

Hoi allemaal,

ik zoek een code waar rijen worden overgeslagen in een loop
voorbeeld
Cel a3 =7
cel e3 =14
cel i 3 =21
dus telkens 3 rijen verder een berekening maken kan iemand mij hier mee helpen

don

 

[ExcIT]

VBA code dus?

For lCount = 1 To 10 Step 2
    lNum = lNum + 1
Next lCount

Op deze wijze kun je van 1 tot 10 tellen maar telkens een stukje overslaan ( step 2 in dit geval )
Dit kun je ook gebruiken voor kolommen, zoals jij dat wilt, door op index te selecteren en niet op naam.

 

[sylvester-ponte]

zonder vba:

=ALS(REST((KOLOM()-1);4)=0;((KOLOM()-1)/4)*7+7;"")

zet deze formule in A3 en sleep hem op zij.

 

[don42]

bedankt voor de hulp
don ga het even testen

 

[zapatr]

@ExcIT, niks vergeten ?
Een andere macro:

Sub macro3()
Dim x as integer, y as integer
Rows(3).ClearContents
'Deze code is geschreven door Zapatr
y = 0
For x = 1 To 40 Step 4
    y = y + 7: Cells(3, x) = y
Next x
End Sub

 

[don42]

Ja met de laatste optie gaat het lukken
Iedereen bedankt