Simple toggle Macro

[Piranha]

Hi,
These two codes do exactly what i want.

Sub one()
Range("A1").Select
End Sub

Sub two()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

I'm trying to put them into one code which i can attach to
a button. The result will be a toggle between the two when
the buttom is clicked.
I can get one or the other to work but not both. Have tried
different versions of this with no luck. What am i doing wrong?

Sub TopBottomToggle()
If Range("A1").Select = False Then
Range("A1").Select
Else
Range("A65536").End(xlUp).Offset(1, 0).Select
End If
End Sub

Thx
Dave

[Leith Ross]

Hello Piranha,

You needed to include the ActiveCell in your code to tell you which cell was selected in column "A". See the code below...

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[mangesh_yadav]

I suppose you are looking for something like this...

Sub TopBottomToggle()
If ActiveCell.Address <> "$A$1" Then
Range("A1").Select
Else
Range("A65536").End(xlUp).Offset(1, 0).Select
End If
End Sub


- Mangesh

[Piranha]

Hello Piranha,

You needed to include the ActiveCell in your code to tell you which cell was selected in column "A". See the code below...

Please Login or Register  to view this content.

Sincerely,
Leith Ross

I suppose you are looking for something like this...

Sub TopBottomToggle()
If ActiveCell.Address <> "$A$1" Then
Range("A1").Select
Else
Range("A65536").End(xlUp).Offset(1, 0).Select
End If
End Sub


- Mangesh

Leith and Mangesh

Thanks for your fast responce and the use of your time and brains.

Lieth, your code does exactly what i described in my question. My question
however was missing the fact, that the active cell before i click the button,
will be any where on the sheet. (my fault) I am going to use your code in another applcation

Mangesh, with your code the begining active cell can be anywhere. This is the one
i will use in the project i am working on now.

You guys are both great, thx a lot.
Dave

[mangesh_yadav]

Thanks for the feedback.

Mangesh