Macros para asignar valores a una celda

Contenidos

1 Asignar un valor a la celda activa

2 Asignar valores a una celda específica

3 Asignar el mismo valor a un conjunto de celdas

4 Asignar valores a una celda en una hoja de trabajo específica

5 Asignar una fórmula a una celda específica

6 Asignar un valor a una hoja y a una celda específica utilizando la propiedad Cells

Asignar un valor a la celda activa

Sub AsignarValores1()

'Asignarle un valor a la celda activa

'

    ActiveCell.Value = "Hola, Mundo"

End Sub

Asignar valores a una celda específica

Sub AsignarValores2()

' Asignar un valor a una celda específica

    Range("B3").Value = 100

End Sub

Asignar el mismo valor a un conjunto de celdas

Sub AsignarValores3()

' Asignar el mismo valor a un conjunto de celdas

    Range("B1:B5").Value = 500

End Sub

Asignar valores a una celda en una hoja de trabajo específica

Sub AsignarValores4()

' Asignar un valor a una celda en una hoja de trabajo específica

    Worksheets("Hoja2").Range("B2").Value = 500

End Sub

Asignar una fórmula a una celda específica

Sub AsignarFormula()

' Asigna una fórmula a una celda específica

    Range("A1").FormulaLocal = Rnd()

End Sub

Asignar un valor a una hoja y a una celda específica utilizando la propiedad Cells

Sub Seleccionar()

' Seleccionar la celda (1, 1)

    Worksheets(1).Cells(1, 1).Value = 100

End Sub