Unidad 5. Programación usando objetos del Excel (XIII)

Ejemplo 03

Obtener la suma de un rango de celdas de la hoja "Datos" y dejar el resultado en otra celda. Se recomienda grabar esta macro en un libro diferente al que se va a abrir.

En este ejemplo se usa el libro Ej03.xls y los datos de la hoja Totales. La macro se puede grabar en cualquier libro 

Sub Ej03()

Libro = InputBox("Ingresa el nombre del libro")

Hoja = InputBox("Ingresa el nombre de la hoja")

'

' La siguiente instrucción abre la hoja del libro deseado

'

Workbooks.Open (Libro)

Sheets(Hoja).Activate

'

' La siguiente instruccioón ingresa una fórmula en F3

'

Range("F3") = "=Sum(B3:E3)"

'

' Como la celda active es aquella que contiene la fórmula, se copia

'

Selection.Copy

'

' Ahora se selecciona el rango destino y se pega en dicha selección

'

Range("F4:F14").Select

ActiveSheet.Paste

Application.CutCopyMode = False

'

' A continuación ingresa en B15 una formula, lo copia y lo pega en otro rango

'

Range("B15") = "=Sum(B3:B14)"

Range("B15").Copy

Range("C15:E15").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

 Cursos Informática Gratuitos