Automatisch verbergen van rijen (Variabel)

[Wilfrie]

Beste medeforum leden,

Ik heb een klein vraagje omtrent het automatisch verbergen van rijen.
Natuurlijk heb ik eerst het forum bekeken of er vergelijkbare zaken op staan en heb het e.e.a. kunnen vinden.
Helaas heb ik niet gevonden dan het verbergen van de rijen variabel kan.
Als ik de onderstaande string gebruik en regel 3 en 4 bevatten bijvoorbeeld wel waardes zal hij deze hierdoor ook verbergen.

Private Sub Worksheet_Activate()
Rows("2:100").Hidden = WorksheetFunction.Sum(Sheets("P1_4 vs YL AV. on Effect").Range("I2:I100")) = 0
End Sub

Oftewel het verbergen van de regel moet variabel gebeuren over de regels heen.

Alvast bedankt.

Groet,
Wilfrie

 

[Ginger]

Je zal in een lus regel voor regel moeten testen en bepalen of die verborgen moet worden of niet. Overigens kan een gewoon filter hier ook op worden toegepast lijkt mij.

 

[emields]

Als je het forum bekeken hebt zal je wel gezien hebben dat het gewenst is een voorbeeldbestand te plaatsen.

 

[HSV]

Bv.

Sub hsv()
on error resume next
 Range("I2:I100").SpecialCells(2).EntireRow.Hidden = True
End Sub

Of:

Sub hsv_2()
Dim s0 As String
 Sheets("P1_4 vs YL AV. on Effect").Range("I2:I100").Name = "temp"
 s0 = Join(Filter([transpose(if(temp<>"","A"&row(temp),"~"))], "~", 0), ",")
 If Len(s0) > 0 Then Range(s0).EntireRow.Hidden = True
End Sub

 

[Wilfrie]

Hoi HSV,

Allereerst mijn excuses voor mijn late reactie maar hij werkt, top!.

Groet,
Wilfrie