How to assign a macro button to a specific column

[BettyBoop0916]

Hi there,

I have this macro:

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Worksheets("Data").Visible = True
Sheets("Data").Select
Sheets("Data").Range("C1:I6").Select
Selection.Copy
Sheets(Index).Select
Selection.Insert Shift:=xlDown
Worksheets("Data").Visible = False
ActiveSheet.Protect
End Sub

It is attached to a button, but I only want it to work if it falls under the first column in the worksheet.

How can I prohibt this macro from running if say they press the button while the cursor is selecting a cell in column 6?

As well, is there any way to assign this macro to a particular cell? Like putting the button in cell A1, then when that macro is inserted, starting in A6, etc.

Thanks!

 

[Marcelo Branco]

Maybe this

Insert as the first code-line

If ActiveCell.Column <> 1 Then Exit Sub

HTH

M.

 

[BettyBoop0916]

Works Perfectly! Thanks!

Now is there still a way to assign the button to a specific cell?

 

[wigi]

Hold down the Alt key, then you can let the border of the button snap to cell borders. Is this what you mean?

 

[Marcelo Branco]

Works Perfectly! Thanks!

Now is there still a way to assign the button to a specific cell?

You are welcome.

Not sure if i understood what you mean by "...assign the button to a specific cell?"

M.

 

[BettyBoop0916]

Well, that sorta helped with the pressing of ALT to snap it to the shape of the cell. But what I really mean is this:

What I want to achieve is, when I press the button in that cell, I want that cell to be selected, and then run the macro. Does that make sense?

Otherwise, if I put the macro in the cell, it doesn't recognize me selecting that cell because a button is overtop of it.

And I only want it to run if it is in column A, and and two cells up from the name "Purchases".

Thanks!

 

[Marcelo Branco]

Hi,

1st question: i dont know how to fix a button to a cell...

2nd question: where is Purchases? Which cell?

M.