Insertar dato en una celda

Vamos a hacer una macro muy sencilla que consiste en insertar un dato en una celda:

En el editor de Visual Basic va a digitar lo siguiente:

Sub Macro1()

Sheets(“Hoja1”).Cells(1,1)=20

End Sub

También puede escribir:

Sub Macro2()

Sheets(“Hoja1”).Range(“A1”)=20

End Sub

La instrucción quiere decir que en la hoja de calculo (Sheets) que se llama Hoja1 (Si en su ejemplo la hoja tiene otro nombre, debe poner el nombre que tenga), en la celda fila 1 columna 1 va a poner el numero 20.

En ambos casos se hará lo mismo, poner el numero 20 en la posición fila 1, columna 1 o en la celda A1.

Las macros en Excel trataran cada celda como una variable o conjunto de variables para el caso de los rangos, y se identificaran con el numero de la fila y el numero de la columna, por ejemplo, si va a poner  un dato  en  la celda C10, corresponderá a la fila 10, columna 3  (Cells(10 , 3)).

También se pude tomar la celda como un rango, en el mismo ejemplo anterior seria Cells(“C10”)

Si se hablara de un rango que va desde la celda A1 hasta la celda A10 seria cualquiera de estas formas:

Range(“A1:A10”)

Range(cells(1,1) , Cells(10,1)

Siempre haciendo referencia a la Hoja sobre la cual se esta trabajando, si se omite, la macro toma por defecto la hoja activa o usada en ese momento.

Para ejecutar la macro, ponemos un botón en la hoja de calculo, de la siguiente forma:

Click en Programador.

Después Insertar y después en Botón (control de formulario)

Y el cursor cambia para dibujar un cuadradito, se dibuja y se abre esta venta:

Se señala Macro1, click en Aceptar y queda listo el botón para llamar la macro 1