Al over andere rij versmallen

[plainme]

Amici,

Vraagje, ( of wat had je dan gedacht )
Bestaat er een formule of is er een opmaak om vanaf rij 4 al over andere rij deze smaller te maken ( rijhoogte 2)
maw 4 - 6 - 8 - 10 -12 - ......
ik heb een tabel met 5800 rijen.

Graag jullie raad, advies, oplossing, ...

Alvast bedankt

Mvg
Marc

 

[Conseclusie]

Dat kan met een eenvoudig macrootje:

Sub RijenSmaller()
For Rij = 4 To 5800 Step 2
    Rows(Rij).RowHeight = 2
Next Rij
End Sub

 

[plainme]

Super Conseclusie.
Dat werkt heel snel
Misschien nog een vraagje .....
is er de mogelijkheid dat er eerst gekeken wordt of er tekst in een van de volgende kolommen staat?
Van kolom B tot kolom N
Wanneer volledig leeg mag deze dan de RijHoogte aanpassen naar 2

Alvast bedankt


Mvg
Marc

 

[Conseclusie]

Geen probleem:

Sub RijenSmaller()
For Rij = 2 To 5800 Step 2
    If WorksheetFunction.CountA(Range("B" & Rij & ":N" & Rij)) = 0 Then
        Rows(Rij).RowHeight = 2
    End If
Next Rij
End Sub

 

[plainme]

Beste Conseclusie,

Super werkt perfect.
Weer wat bijgeleerd zie in tijden van Corona :shocked:

Heel vriendelijk bedankt en hierbij zal de vraag worden afgesloten.

Hartelijke dank

Mvg
Marc

 

[snb]

Waarom gebruik je geen autofilter of advancedfilter ?

 

[plainme]

Waarom gebruik je geen autofilter of advancedfilter ?

 

[plainme]

Misschien bij gebrek aan kennis
Maar het is opgelost met de aangereikte van Conseclusie.