J
JB
Hi, hopefully someone out there can help with this one!
I am using the small macro below to perform an advanced filter on a
list.
I'm using a combo box to select the value and run the macro and
everything works fine. The data copies across to the copy to the new
range perfectly....Except for one thing!
My list has one column which are all Hyperlinks. When the filter
copies this data to the new location the Hyperlink is lost. The
formatting is preserved, ie: it is still blue and underlined, but the
link has disapeared.
If i change the filter from xlFilterCopy to xlFilterInPlace it works
fine, but i need to filter and move the data.
Any suggestions??
Sub AdvFilter
Range("A5579").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("F8:I8"), Unique:=False
End Sub
Cheers,
JB
I am using the small macro below to perform an advanced filter on a
list.
I'm using a combo box to select the value and run the macro and
everything works fine. The data copies across to the copy to the new
range perfectly....Except for one thing!
My list has one column which are all Hyperlinks. When the filter
copies this data to the new location the Hyperlink is lost. The
formatting is preserved, ie: it is still blue and underlined, but the
link has disapeared.
If i change the filter from xlFilterCopy to xlFilterInPlace it works
fine, but i need to filter and move the data.
Any suggestions??
Sub AdvFilter
Range("A5579").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("F8:I8"), Unique:=False
End Sub
Cheers,
JB