Beste,
Ik heb een file waar ik in verschillende tabellen zoek, indien er een lege waarde in de tabel is moet de regel verborgen worden. Hier heb ik een formule voor toegevoegd
Helaas kom ik er niet helemaal uit.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
Cells.Select
Selection.EntireRow.Hidden = False
Dim rng As Range
Dim x As Integer
For Each c In Range("A5:A250")
If UCase(c.Value) = "X" Then
If x = 0 Then
Set rng = c
x = 1
Else
Set rng = Union(rng, c)
End If
End If
Next
rng.EntireRow.Hidden = True
Range("C6").Select
End If
End Sub
Ik heb een file waar ik in verschillende tabellen zoek, indien er een lege waarde in de tabel is moet de regel verborgen worden. Hier heb ik een formule voor toegevoegd
Helaas kom ik er niet helemaal uit.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
Cells.Select
Selection.EntireRow.Hidden = False
Dim rng As Range
Dim x As Integer
For Each c In Range("A5:A250")
If UCase(c.Value) = "X" Then
If x = 0 Then
Set rng = c
x = 1
Else
Set rng = Union(rng, c)
End If
End If
Next
rng.EntireRow.Hidden = True
Range("C6").Select
End If
End Sub