cuestasmejia
Bovino adolescente
- Desde
- 2 Sep 2007
- Mensajes
- 70
- Tema Autor
- #1
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
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