ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   determine activecell and move to it after running ohter sub... (https://www.excelbanter.com/excel-programming/424664-determine-activecell-move-after-running-ohter-sub.html)

SpeeD

determine activecell and move to it after running ohter sub...
 
Hi.

I need to determine the activecell at some point and move to it after other
sub as run. how can i do this? i´ve tried the following without success...

r = ActiveCell.Row
c = ActiveCell.Column


Run "Formatar_fundo_original"
Range(c & r).Select

Thanks
SpeeD

Nigel[_2_]

determine activecell and move to it after running ohter sub...
 
Try using

Cells(r,c).Select



--

Regards,
Nigel




"SpeeD" wrote in message
...
Hi.

I need to determine the activecell at some point and move to it after
other
sub as run. how can i do this? i´ve tried the following without success...

r = ActiveCell.Row
c = ActiveCell.Column


Run "Formatar_fundo_original"
Range(c & r).Select

Thanks
SpeeD



Don Guillett

determine activecell and move to it after running ohter sub...
 

try this idea

Sub gobacktocell()
Dim myadd As String
mysht = ActiveSheet.Name
myrng = ActiveCell.Address
Application.Goto Sheets("sheet4").Range("a1")
MsgBox "hi"
Application.Goto Sheets(mysht).Range(myrng)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"SpeeD" wrote in message
...
Hi.

I need to determine the activecell at some point and move to it after
other
sub as run. how can i do this? i´ve tried the following without success...

r = ActiveCell.Row
c = ActiveCell.Column


Run "Formatar_fundo_original"
Range(c & r).Select

Thanks
SpeeD



SpeeD

determine activecell and move to it after running ohter sub...
 
Thnsks Nigel!

Works great!

SpeeD

"Nigel" wrote:

Try using

Cells(r,c).Select



--

Regards,
Nigel




"SpeeD" wrote in message
...
Hi.

I need to determine the activecell at some point and move to it after
other
sub as run. how can i do this? i´ve tried the following without success...

r = ActiveCell.Row
c = ActiveCell.Column


Run "Formatar_fundo_original"
Range(c & r).Select

Thanks
SpeeD





All times are GMT +1. The time now is 06:55 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com