Hacer referencia a las celdas en relación con otras celdas

Una manera común de trabajar con una celda relativa a otra es usar la propiedad Offset . El siguiente ejemplo asigna un formato de doble subrayado al contenido de la celda situada una fila más abajo y a tres columnas de la hoja de cálculo activa.

Sub Underline() 
 ActiveCell.Offset(1, 3).Font.Underline = xlDouble 
End Sub

Nota Puede registrar macros que usan la propiedad Offset para especificar referencias relativas en lugar de referencias absolutas. Para ello, en la ficha Programador, haga clic en Usar referencias relativas y, a continuación, haga clic en Grabar macro.

Para ejecutar un bucle en un rango de celdas, utilice en el rango una variable con la propiedad Cells. El siguiente ejemplo rellena las primeras 20 celdas de la tercera columna con valores entre 5 y 100, en incrementos de 5. La variable counter se utiliza como índice de fila para la propiedad Cells.

Sub CycleThrough() 
 Dim counter As Integer 
 For counter = 1 To 20 
 Worksheets("Sheet1").Cells(counter, 3).Value = counter * 5 
 Next counter 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.