Utilizando Macros 3, mas ejemplos

UTILIZANDO MACROS EN VALORES DE CELDAS.

Hola nuevamente.
Esperando tengan un buen inicio de año 2016, mucho éxito son los deseos de appsjasr.

Retomando el tema de la enseñanza hoy seguiremos aprendiendo como utilizar las macros en Excel, en los 2 pasados artículos de la serie Utilizando Macros vimos varios ejemplo de como poder manipular las hojas utilizando macros, así también vimos un ejemplo de como agregar botones para luego después asignarles una macro, bien ahora dedicare un tiempo para explicarles como podemos asignar valores a través de una macro a una o varias celdas, es decir las formas que existen para hacerlo.

Para poder asignar valores en una celda determinada podemos hacerlo de las siguientes maneras:

En un archivo excel, generar un proyecto VBA e insertar un Modulo y en el insertar lo siguiente.

Ejemplo1:

Sub ValorCeldaA1()

'En esta macro estamos insertando el valor en la celda A1

    Range("A1").Value = "Valor insertado con macro"

End Sub

Sub ValorFIL1COL1()

'En esta macro insertamos el valor en la fila numero 1 y la columna numero 1,  nótese que la sintaxis es diferente.

        Cells(1, 1).Value = "Valor insertado con macro"

End Sub

En el ejemplo anterior los valores de las celdas se insertaran en el libro activo y en la hoja activa actuales, pero también es posible insertar un valor indicando la hoja en la que se desea insertar el archivo, así como también la el libro o archivo donde quieres que se inserte.

Cuando hablo de libro, hoja o celda activa nos referimos a la que tiene en uso al momento de ejecutar la macro.

Ejemplo especificando una especifica de un libro activo, esto lo iniciamos con el Objeto ActiveWorkbook que contiene el libro activo.

Sub InsertaValorHojaEspecifica()
'Insertando valor en una celda de una hoja especifica del libro activo.
'Aquí suponemos que hay una hoja que se llama "OtroValor"
    ActiveWorkbook.Sheets("OtroValor").Range("A2").Value = "9999999"
End Sub

Ejemplo especificando libro y hoja especifica que no necesariamente tienen que estar activo al ejecutar la macro.

Sub InsertaValorHojayLibroEspecifico()
'Insertando valor en una celda de una hoja especifica indicando el libro.
'Aquí supones que hay un archivo o libro que se llama "Libro2" y que ese libro tiene una hojas que se 'llama "Hoja1".
    Workbooks("Libro2").Sheets("Hoja1").Range("A1").Value = "7777999"
End Sub

Para utilizar estos ejemplos solo hay que adecuarlos con los nombre que correspondas a sus archivos.


Por hoy lo dejaremos hasta aquí.

Seguiremos posteando mas ejemplos de como manipular las hojas y archivo de Excel.


Artículos anteriores:
Utilizando Macros 1
Utilizando Macros 2


Espero sus comentarios.

Saludos Cordiales

JASR

*****Tranquilos que todo es correcto*****

Share this

AppsJasr