rijen verbergen

[mtb]

Hoi,

Heeft iemand een code die rij 2, rij 4 rij, rij 6 enz. verbergt?

Merry Christmas

 

[Wigi]

Rows(2).Hidden = True
Rows(4).Hidden = True
Rows(6).Hidden = True

Wigi

 

[mtb]

Wigi,

bedankt voor je snelle reactie, de rijen lopen door de rij 300, betekent dit dat ik voor elke rij die ik wil verbergen een regel aan moet maken zoals jij aangeeft in jouw voorbeeld.

Rows(2).Hidden = True
Rows(4).Hidden = True
Rows(6).Hidden = True

 

[Wigi]

bedankt voor je snelle reactie, de rijen lopen door de rij 300, betekent dit dat ik voor elke rij die ik wil verbergen een regel aan moet maken zoals jij aangeeft in jouw voorbeeld.

Uiteraard niet.

Een For... Next lus bvb. kan je gebruiken om een lus te maken van 2 tot 300 met stapgrootte 2. Zie helpfiles of dit forum.

Wigi

 

[mtb]

Wigi,

ik heb dit tot nu toe gefabriceerd, kom alleen niet uit de stappenteller, bij next wordt een fout gegeven

For i = 6 To 410
next 2
Rows.Hidden = True

 

[Wigi]

Dan klik je op het woord For en druk je F1. Kies For... Next statement en lees de uitleg.

 

[Hoornvan]

mtb,

Ik denk dat step 2 is en geen next 2

 

[mtb]

ik kom er nu niet uit, zal morgen wel even verder kijken, suggestie/oplossingen zijn in die tussentijd welkom

 

[Hoornvan]

mtb,

For i = 6 To 410 Step 2
next i
Rows.Hidden = True

Ik denk zo iets?

 

[Wigi]

Dit haal ik zo uit de helppagina's:

For counter = start To end [Step step]
     [B][statements][/B]
Next [counter]

The For…Next statement syntax has these parts:

counter (Required). Numeric variable used as a loop counter.
start (Required). Initial value of counter.
end (Required). Final value of counter.
step (Optional). Amount counter is changed each time through the loop.
statements (Optional). One or more statements between For and Next that are executed the specified number of times.

Dus eerst FOR, dan alles wat in de lus uitgevoerd moet worden (statements), dan NEXT.

Wigi

 

[Warme bakkertje]

Michel, omdat het Kerstmis is vandaag, een gebaar van goede wil

Sub Rijen_Verbergen()
Dim lRij As Long
Application.ScreenUpdating = False
For lRij = 6 To 410 Step 2
    Sheets("Blad1").Cells(lRij, 1).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Mvg

Rudi