Macro para Sumar dos Datos

Vamos a realizar un ejercicio sencillo que consiste en digitar dos números en la hoja de calculo, sumarlos y mostrar el resultado en una celda, la macro tomará los números de las celdas donde se hayan digitados, los almacenará en un
par de variables, suma esos datos almacenándolos en una tercera variable, y por ultimo el resultado se pasara de la variable a la celda de la hoja de calculo.

En la hoja de calculo tendremos este formato:

En el editor de Visual Basic se escribirá la siguiente información:

Sub SumaDatos()

  Dim A as Integer

  Dim B as Integer

  Dim C as Integer

  A=Sheets("Hoja1").Cells(1,2)

  B=Sheets("Hoja1").Cells(2,2)

  C=A+B

  Sheets("Hoja1").Cells(3,2)=C

End Sub

Como se puede apreciar en la macro, primero se declaran las 3 variables como enteras, luego la variable A tomara el valor que haya en la celda fila 1 columna 2 de la hoja 1, de igual forma B tomara el valor que haya en la celda fila 2 columna 2, esos dos valores se suman y se almacenan en la variable C, y el valor almacenado en C se pasa a la celda fila 3 columna 2 de la hoja 1.

De esta forma se toman 2 valores de la hoja de calculo, se suman y se pone el resultado en una celda determinada.

Esta misma macro se pudo haber escrito con rangos, seria de la siguiente forma:

Sub SumaDatos()

  Dim A as Integer

  Dim B as Integer

  Dim C as Integer

  A=Sheets("Hoja1").Range("B1")

  B=Sheets("Hoja1").Range("B2")

  C=A+B

  Sheets("Hoja1").Range("B3")=C

End Sub

El resultado será el mismo, y para ejecutar la macro se puede poner un botón en al hoja de calculo.