I
iamito
Hi
I need a UDF (user defined function) that extracts the visible cells
from a user defined range and gives a range of visible cells.
I found this UDF on the internet. But it gives me some errors when I
apply an AutoFilter to my table.
Where's the mistake?
Thanks in advance.
================================================
Function Vis(VisibleRange As Range) As Range
Dim Cell As Range
Application.Volatile
Set Vis = Nothing
For Each Cell In VisibleRange
If Not (Cell.EntireRow.Hidden Or Cell.EntireColumn.Hidden) Then
If Vis Is Nothing Then
Set Vis = Cell
Else
Set Vis = Union(Vis, Cell)
End If
End If
Next Cell
End Function
I need a UDF (user defined function) that extracts the visible cells
from a user defined range and gives a range of visible cells.
I found this UDF on the internet. But it gives me some errors when I
apply an AutoFilter to my table.
Where's the mistake?
Thanks in advance.
================================================
Function Vis(VisibleRange As Range) As Range
Dim Cell As Range
Application.Volatile
Set Vis = Nothing
For Each Cell In VisibleRange
If Not (Cell.EntireRow.Hidden Or Cell.EntireColumn.Hidden) Then
If Vis Is Nothing Then
Set Vis = Cell
Else
Set Vis = Union(Vis, Cell)
End If
End If
Next Cell
End Function