Previous Topic Next Topic

VBA macro-move to cell underneath the button

Solved/Closed
Alli - Feb 13, 2009 at 07:31 AM
 Liam - Aug 4, 2010 at 12:40 AM
Hello,
I want my VBA macro to move to the cell 'underneath' the particular button that is being pressed. (I have a series of buttons down the page, each will run the same macro / do the same thing, but starting from a different location each time - i.e. starting from where the button is). Any ideas?
Alison
Related:

2 responses

Answer 1 / 2
Ian
Mar 4, 2009 at 12:51 AM
put this code in a macro called by the button

Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Select
urTechMate
Apr 5, 2010 at 02:18 AM
Wow, the second solution works.Superb.Thanks a ton.
Liam
Aug 2, 2010 at 01:55 AM
This didnt work for me....
"Unable to get the Buttons property of the Worksheet class"
Liam
Aug 2, 2010 at 01:57 AM
What I need to do is increment the cell directly to the left of the cell where the button is located by 1. So I have a button in say cell H5, and I need the macro to increment G5 by 1 when the button is pressed. There are several buttons down the page in the H column. Each button calls the exact same Macro but has to increment the previous column by one depending on which row I click the button.
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 08:54 AM
Liam, then just decrease the colum by one (offset(

Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Offset(0, -1).Select
Liam
Aug 2, 2010 at 11:02 PM
Hi there

The same run-time error occurs
"Unable to get the Buttons property of the Worksheet class"

This is my Macro:


Sub Knockout()
'
' Knockout Macro
' Macro recorded 02/08/2010 by Admin
'
Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Offset(0, -1).Select

ActiveCell.Value = ActiveCell.Value + 1
'
End Sub

Is this wrong?
Answer 2 / 2
Helper
Feb 13, 2009 at 03:17 PM
Don't know if this answers your question.
If your button occupies the cells F4:G5, then code your macro to select the cell underneath.

Range("F6").select

Similar discussions

Activity status glitch
exorigen19 -
lvargas1121 -

Hello,
I've had no problems with insta until now. I can see the activity status of everyone except my closest friend. I asked her if she restricted and/or removed her activity status but she replied no to both (i verified both of these claims by making new accounts and consulting other people).

I've tried force stopping, deleting, etc but all to no avail. Is there a way to fix this glitch


2 responses
Date formatting in dd/mm/yyyy
nisha -
appu -

Hello,

I have got dates typed in the format following 01.08.98 and I want to change it to 01/08/1998 format. I tried applying the format we have in excel format cell date format but nothing is happening.

Please help me on this.

11 responses