rijen verbergen

[SUVERMO]

dag iedereen,

is het mogelijk om met een macro rijen te verbergen aan de hand van een formule, verdere info in bijgevoegde excel

 

[HSV]

Bv.

Sub hsv()
Dim s0 As String
Range("BS1").CurrentRegion.Columns("BS").Name = "b"
  s0 = Join(Filter([transpose(if(b=0,"A"&row(b),"~"))], "~", 0), ",")
   If Len(s0) > 0 Then Range(s0).EntireRow.Hidden = True
End Sub

 

[SUVERMO]

Bedankt Harry, dat was snel

ik ga dat nu proberen in Inzenderslijst maken SUVERMO.xls

 

[SUVERMO]

Harrry,

er ontbreekt toch iets.
de voorwaarde om een rij te verbergen
eerste en laatste rij niet verbergen
overige rijen verbergen als 1*de waarde van die rij in kolom BS + 3*de waarde van de vorige rij in kolom BS <>3

 

[HSV]

Voor de eerste en de laatste rij niet mits de laatste geen 0 maar leeg is.
De rest moet jezelf nog maar eens lezen en aanpassen, want ik kan er geen touw aan vast knopen.

Sub hsv()
Dim s0 As String
Range("BS1").CurrentRegion.Offset(1).Columns("BS").Name = "b"
  s0 = Join(Filter([transpose(if((b=0)*(b<>""),"A"&row(b),"~"))], "~", 0), ",")
   If Len(s0) > 0 Then Range(s0).EntireRow.Hidden = True
End Sub

 

[SUVERMO]

Harry, ik kom er niet uit.
de formule is aangepast, als de uitkomst op een rij = 3 dan deze rij verbergen, overige staat in excel

 

[VenA]

Voor het verbergen/zichtbaar maken van rijen is het autofilter uitgevonden.

 

[HSV]

Een autofilter was ook mijn eerste ingeving, maar als er geen koprij aanwezig is, is een autofilter niet geschikt en dus een waardeloos instrument.

Na de wijziging van de voorwaarden zou het wel kunnen.

 

[SUVERMO]

mij lukt het, ik heb weinig kennis van VBA

in de code moet er waarschijnlijk gewoon een 0 door een 3 vervangen worden, maar dewelke?

 

[HSV]

Per se met een macro?
De handmatige autofilter is geen optie?

 

[SUVERMO]

de autofilter is geen oplossing, want de volgorde van de rijen mag niet gewijzigd worden want dan zijn de formules niet meer juist.
het is mijn bedoeling de code geheel of gedeeltelijk te gebruiken in Inzenderslijst maken SUVERMO.xls

 

[HSV]

De volgorde van de rijen heeft er niets mee van doen.

Met een macro dan maar.

Sub hsv_2()
 Cells(1, 3).CurrentRegion.AutoFilter 70, "<>3"
End Sub

 

[SUVERMO]

Werkt prima, bedankt