<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Afternoon all, I have a quick question with regards to a Macro I have written that doesn’t want to seem to work. To describe it I want to take data from one overall worksheet, filter it by “SML” then copy and paste that into a SML worksheet. <o></o>
<o></o>
The code I currently have is:<o></o>
<o></o>
Private Sub CommandButton2_Click()<o></o>
ActiveWindow.LargeScroll ToRight:=-1<o></o>
Columns("A:C").Select<o></o>
Selection.EntireColumn.Hidden = False<o></o>
Selection.AutoFilter Field:=3, Criteria1:="sml"<o></o>
Range("A1:W7").Select<o></o>
Selection.Copy<o></o>
Sheets("SML Data").Select<o></o>
Range("A347:W347").Select<o></o>
ActiveSheet.Paste<o></o>
ActiveWindow.SmallScroll ToRight:=11<o></o>
End Sub<o></o>
<o></o>
<o></o>
The bit highlighted in yellow is highlighted as an error section.<o></o>
<o></o>
Could anyone please help?<o></o>
<o></o>
Thank you in advance!<o></o>
Afternoon all, I have a quick question with regards to a Macro I have written that doesn’t want to seem to work. To describe it I want to take data from one overall worksheet, filter it by “SML” then copy and paste that into a SML worksheet. <o></o>
<o></o>
The code I currently have is:<o></o>
<o></o>
Private Sub CommandButton2_Click()<o></o>
ActiveWindow.LargeScroll ToRight:=-1<o></o>
Columns("A:C").Select<o></o>
Selection.EntireColumn.Hidden = False<o></o>
Selection.AutoFilter Field:=3, Criteria1:="sml"<o></o>
Range("A1:W7").Select<o></o>
Selection.Copy<o></o>
Sheets("SML Data").Select<o></o>
Range("A347:W347").Select<o></o>
ActiveSheet.Paste<o></o>
ActiveWindow.SmallScroll ToRight:=11<o></o>
End Sub<o></o>
<o></o>
<o></o>
The bit highlighted in yellow is highlighted as an error section.<o></o>
<o></o>
Could anyone please help?<o></o>
<o></o>
Thank you in advance!<o></o>