Trying to get this small vba code to work the right way, but cant figure it out

[zone709]

As you may see its probably not the best way efficient, but it works almost the way I want it to except. At the end of macro I need it to leave me on workbook

Workbooks("FIle Zed Upload For Time Macro 2.xlsm").Activate

Which for some reason it doesn't now. If I play it slow motion then it does. So I'm confused on where the issue is.

Sub MoveCopy()
    Sheets("Name Correction").Copy Before:=Workbooks( _
    "FIle Zed Upload For Time Macro 2.xlsm").Sheets(1)
    Windows("FIle Zed Upload For Time Macro 2.xlsm").Activate
    Sheets("Name Correction").Move After:=Sheets(4)
    Workbooks("FIle Zed Upload For Time Macro 2.xlsm").Activate
End Sub

 

[philaugust2004]

try activating the sheet in the workbook you want

 

[zone709]

try activating the sheet in the workbook you want

It sounds like maybe something i did already or maybe not. Can you be more specific thanks

 

[philaugust2004]

Something like
Workbooks("your workbook").sheets("your sheet").activate

 

[zone709]

Something like
Workbooks("your workbook").sheets("your sheet").activate

ok ill try it in a little and let you know. I don't think i tried that combined

 

[zone709]

Ok I figured it out. I recorded what I was doing again and going by sheet .Select it works and leaves me on the sheet I need. Even though I shouldn't be using .Select on this below this works.

Sub MoveCopy()
Sheets("Name Correction").Select
Sheets("Name Correction").Copy Before:=Workbooks( _
        "FIle Zed Upload For Time Macro 2.xlsm").Sheets(1)
        Sheets("Name Correction").Move After:=Sheets(4)
        Sheets("Name Correction").Select
End Sub

And this will leave me on --->FIle Zed Upload For Time Macro 2.xlsm

Reason no clue, but you might see this and be like O.

 

[zone709]

Hi I'm back maybe one more thing that may help figure out whats wrong. So the last code worked at home last night on Excel 2010. I am trying it now on 2016 at work and again it wont leave me on the sheet I need. Does this ring a bell of what my issue might be?

 

[JLGWhiz]

Hi I'm back maybe one more thing that may help figure out whats wrong. So the last code worked at home last night on Excel 2010. I am trying it now on 2016 at work and again it wont leave me on the sheet I need. Does this ring a bell of what my issue might be?

When you refer to going through your code "in slow motion", do you mean using the F8 function key or the stepping icon on the tool bar to step through the code? Stepping through the code should identify the problem if it is caused by other code. It should also allow you to see where in your code there is lack of response to command in the code.

 

[zone709]

HI,
I step threw the code using the stepping icon red dots.
If I go threw it in slow motion it works. If I run this small piece at once. Then it doesn't leave me on the sheet I need it to.

Sub MoveCopy()
    Sheets("Name Correction").Select
    Sheets("Name Correction").Copy Before:=Workbooks( _
    "FIle Zed Upload For Time Macro 2.xlsm").Sheets(1)   '<-- Sheet I need to end on.
    Windows("FIle Zed Upload For Time Macro 2.xlsm").Activate
    Sheets("Name Correction").Select
    Sheets("Name Correction").Move After:=Sheets(4)
End Sub

When I run this in one shot doesn't leave me there. If I do it in slow motion then it does. The option ill have to go to now is close the first sheet and then it will leave me on this. Then open again when needed, but I don't want to give up to find out why its not working this way. I'm curious and I shouldn't have to close first sheet ot leave me on here you know.

 

[zone709]

So I was looking at another post on here that had same issue. It ended that everyone had no more options to help. So I am not alone. What I did for now is removed this from code above.

"FIle Zed Upload For Time Macro 2.xlsm").Sheets(1)

and made a new Sub to run after this sub to leave me on the sheet I need which works for whatever reason.

Sub Act()
Windows("FIle Zed Upload For Time Macro 2.xlsm").Activate
Sheets(1).Activate
End Sub

 

[zone709]

Hi so I'm back at it all day right. So it looks like the "Time" book is not the active sheet at that moment of code. Its the one I want to be active, but for some reason it wont view it on my screen. So I made the "Time" Active and then made the one I want active and it works. Look at code now for whatever reason this is I have no idea.

Sub MoveCopy()
    Sheets("Name Correction").Copy Before:=Workbooks( _
    "File Zed Upload For Time Macro 2.xlsm").Sheets(1)
    Sheets("Name Correction").Move After:=Sheets(4)
    Sheets(1).Activate
    Windows("Time").Activate     ' I have to activate
    Windows("FIle Zed Upload For Time Macro 2.xlsm").Activate  'Then activate this and then it shows this book in view as active' Not a clue why
End Sub