ayuda, suma con enter en inventario de excel

[cuestasmejia]

Q tal bakunos, tengo un sistema de inventarios en excel que suma y resta las entradas y salidas con un boton, pero ahora quiero que lo haga presionando enter, este es el codigo que utilizo actualmente para ir sumando cada vez que presiono el boton
Sub BotónC()

Range("a2").Select
claveentrada = ActiveCell.FormulaR1C1 + 4
celdaentrada = "c" & claveentrada
Range("c2").Select
entradaproducto = ActiveCell.FormulaR1C1
Range(celdaentrada).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(entradaproducto)
Range("c2").Select
ActiveCell.FormulaR1C1 = ""
End Sub

 

[cuestasmejia]

Q tal bakunos, tengo un sistema de inventarios en excel que suma y resta las entradas y salidas con un boton, pero ahora quiero que lo haga presionando enter, este es el codigo que utilizo actualmente para ir sumando cada vez que presiono el boton, les agradeceria mucho si me ayudan.

Sub BotónC()

Range("a2").Select
claveentrada = ActiveCell.FormulaR1C1 + 4
celdaentrada = "c" & claveentrada
Range("c2").Select
entradaproducto = ActiveCell.FormulaR1C1
Range(celdaentrada).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(entradaproducto)
Range("c2").Select
ActiveCell.FormulaR1C1 = ""
End Sub

 

[Lucasman]

Puedes meter el código en la opción cuando haya un cambio en la hoja y cuando aprietes enter lo va a realizar