Create Button in selected cell

[jrisebo]

I want someway to select a cell, and then create a button in said cell. I want it to be the same size as the selected cell.

 

[GlennUK]

How about more info about what you are trying to achieve?

 

[jrisebo]

I want to be able to create 7 different buttons, but have them all be the same size, and all lined up.

 

[VoG]

Try this for one button in the selected cell

Sub AddButton()
Dim btn As Object
With ActiveCell
    Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
End With
End Sub

 

[jrisebo]

Thanks that worked. I just did each cell as needed. Cool!

 

[jrisebo]

Thanks that worked. I just did each cell as needed. Cool!

 

[jrisebo]

Oops, So how do I now add a if statement to the VBA for the button?

I want to have it check a cell for a condition, then hyperlink to another tab if true, and do nothing if false.

e.g. =IF(anch1="a",HYPERLINK('VII. A Headed studs'!J85)),IF(anch2="b",HYPERLINK('VII. B Headed studs'!J85)),......

Not sure how to finish that.

 

[GlennUK]

Are you saying that all you need are formulas to do hyperlinking, and no buttons, in fact?

 

[jrisebo]

No, I want there to be a button, so when you press it, it checks the 'if' statements, and then does what it should. Perhaps the buttons can be linked to a cell, instead of VBA where I can do the if statement.

 

[GlennUK]

And how does this formula perform?

=IF(anch1="a",HYPERLINK("#'VII. A Headed studs'!J85","a link"),IF(anch2="b",HYPERLINK(#"'VII. B Headed studs'!J85","b link"),""),"")

that's just an example, as you still haven't described in full what it is you are aiming to do, and so all I can do is guess.