How do you stay on the active sheet in active cell?

[lbass]

Every time I make a small step forward I get stumped.

VBA
Finds an account number
looks to the right to see if entry already made
if so moves down a row checks account number
if it is not the same then it inserts a row

Selects sheets so all 57 sheets gets the same row inserted

Active cell is now on the first sheet

no longer on the sheet I need to stay on.

I tried to search but don't know what to search for at least I got no hits.

Thanks you guys are really great.

 

[SIXTH SENSE]

hi!
save the current sheet name and cell before doing the search.
Something like
sub searchx()
shtname=activesheet.name
curcell=activecell.address
'run your code here
'at the end
worksheets(shtname).Select
range(curcell).select


end sub

 

[lbass]

I took that step

I changed searchx to LockLocation

Then where run your code here I inserted end sub

Then after at the end I inserted ReturnLocation()

tried putting LockLocation
More Code
then ReturnLocation

And it didn't work Messed up again didn't I

 

[SIXTH SENSE]

Hi!
care to post your code?

 

[lbass]

Sure how is the best way to do this?

Cut and Paste?

You've got two left feet here.

 

[SIXTH SENSE]

Hi!
make the variable Shtname and curcell global.
Declare it in the top most of your code
Dim Shtname as string
Dim Currcell as string!
i guess this is what you miss.

 

[SIXTH SENSE]

Its quite nice to use VBHtml maker (download below) to post code. but its fine to copy paste.

 

[lbass]

That did it

Thanks so much

It's tough enough thinking with your feet

Especially hard (I think) when they are both left

Thank you Thank You

 

[Smitty]

Post your code anyway, but:

I changed searchx to LockLocation

Then where run your code here I inserted end sub

Then after at the end I inserted ReturnLocation()

tried putting LockLocation
More Code
then ReturnLocation

End Sub means END SUB, so all of the code after that isn't recognized as viable and won't run. Put "End Sub" at the END of your code and maybe it'll work.

HTH,

Smitty

 

[SIXTH SENSE]

That did it

Thanks so much

It's tough enough thinking with your feet

Especially hard (I think) when they are both left

Thank you Thank You

I was so happy that Im not alone having both feet left!