Macro help needed

[parra1]

<?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>

 

[schielrn]

Is the filter already set on the range, if not maybe try:

Columns("A:C").Hidden = False
Range("A1:C1").AutoFilter
Range("A1:C1").AutoFilter Field:=3, Criteria1:="sml"
Range("A1:W7").Copy Destination:= Sheets("SML Data").Range("A347:W347")

Hope that helps.

EDIT: I Have no clude why it keeps splitting up my code tags? Has anyone else noticed this, this is the 2nd time within this week?

 

[Talesind]

cant see any yellow highlighted code. What error do you get and where?

The code seems fine, but you dont need the active scroll lines in there, and a good tip is to give your buttons contextual names e.g. instead of CommandButton_2, call it SML_Move or something.

 

[yytsunamiyy]

I dont see anything highlighted in yellow. I took the liberty of tightening your code a little.

I am assuming that Column A is completely filled with no empty cells and that you want to copy your data to sheet SML into the first empty row - in your code row 347 ...

Private Sub CommandButton2_Click()

    Columns("A:W").Select
    Selection.EntireColumn.Hidden = False
    Selection.AutoFilter Field:=3, Criteria1:="sml"
    Range(Cells(1,"A"),Cells(Cells(rows.count,1).end(xlup).row, "W").cells.specialcells(xlcelltypevisible).copy _
destination:=Sheets("SML Data").Cells(Cells(rows.count,1).end(xlup).row + 1, "A")

End Sub