Totaly noob trying to learn how to selest last sheet.

[agas]

Hello,

I have created and used macros using record option never tried to do something specific.
So i need some help pls

Rigth now i am trying to move open files to move in to a specific workbook. The workbooks name is always the same but the sheets i want to add in to it changes.

I want it to select the last sheet after i run this. And keep addind the next sheet after the one previously added.

Sub moveto()
ActiveSheet.Select
ActiveSheet.Move After:=Workbooks( _
"TK_LO_CAP_REP.xls").ActiveSheet
ActiveSheet.Next.Select
End Sub

This does what i want but it turns an error. Object variable or With block variable not set.

Something else

Is it possible to have a user input a data and make excel delete the other data ?

Like I have data in column A tim, zim, kim and i want to keep row that have tim in column A.

And is it possible to have users enter what they want to keep ? They type tim to keep tim or kim and zim to keep both.

Thanks in advance.
Alp

 

[Andrew Poulsom]

Try:

With Workbooks("TK_LO_CAP_REP.xls")
    ActiveSheet.Move After:=.Worksheet(.Worksheet.Count)
End With

Note that when you move a worksheet it becomes the ActiveSheet.

 

[agas]

I am getting "object doesnt support propert or method" when i try this.

 

[Andrew Poulsom]

Sorry, typo:

With Workbooks("TK_LO_CAP_REP.xls")
    ActiveSheet.Move After:=.Worksheets(.Worksheets.Count)
End With

 

[agas]

Eww. my mistake :S never cheked it.

And thanks a lot