Connecting macros to buttons

[123Maximus]

Hello!

In Excel I have created some rectangles as buttons to which I want to connect macros.
Every time I click a 'button' it should send a certain word to an emty cell in column A (starting with A1).

I tried to record a macro and changed Range("A1") to "A" but it didn't work.

Sub Makro3()
'
' Macro3 Macro
' Sends the text Shoes
'
Range("A").Select
ActiveCell.FormulaR1C1 = "Shoes"
Range("A").Select
End Sub

My intention is to collect all the words in column A for further processing later.

Can anybody help me?

Thanks in advance and a Happy New Year!

 

[Snakehips]

123Maximus,

Maybe this is what you are wanting...

Sub Makro3()
'
' Macro3 Macro
' Sends the text Shoes
'Find next available row in column A
r = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & r) = "Shoes"
Range("A" & r).Select
End Sub

Hope that helps.

 

[My Aswer Is This]

Try this:

This script will paste the active cell value below the last filled row in column "A"

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveCell.Copy Destination:=Range("A" & Lastrow)
Application.ScreenUpdating = True
End Sub

 

[123Maximus]

Hello!
It worked!
I also created new 'buttons' with other words and put it after the first code (changing the name to Macro 4 and so on).

Thank you very much and a I wish you a Happy New Year!

 

[Snakehips]

I assumed you are wanting to send a specific word for a given button ?
M A I T has assumed you are sending the word from the active cell ?
One of us is wrong

If it is a specific word per button and that word is the text of that button then you could use the below for all buttons

Sub Makro3()
' Sends the text that is on the button ????
'Find next available row in column A
r = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & r) = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
Range("A" & r).Select
End Sub

 

[123Maximus]

Hello Tony!
Your first suggestion was what I was looking for, and it worked.
However, your second solution makes it much more easier to use because I have fifteen buttons to take care of.

Thanks once again!

/Håkan

 

[Snakehips]

Great. Thanks for the feedback.

 

[123Maximus]

Hello again!

What code do I need to send a number instead of a text from a button, so I can make simple calculations?
Does it work with negative values too?

Or, any suggestions how to create a "Undo button" e. g ctrl-Z to reverse wrong inputs.

This cash register are going to be used by 'technical idiots' so it has to be fool proof...

 

[Sektor]

The procedure receives whatever is in the text of that rectangular. So if there's number - you'll get number

 

[123Maximus]

Very strange!
I deleted everything and created the buttons once again, and now it works!

Thank you!