Thread: Problems copying filtered data
View Single Post
 
Old 09-05-2018, 03:09 PM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2016
Expert
  
Join Date: Apr 2014
Posts: 948
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default
Code:
Sub blah()
ActiveSheet.Range("B1").CurrentRegion.AutoFilter 1, "M"
ActiveSheet.AutoFilter.Range.Offset(1).Columns(2).Copy Range("E2")
ActiveSheet.ShowAllData
End Sub
?
Reply With Quote