Trabajar con la celda activa

La propiedad ActiveCell devuelve un objeto Range que representa la celda que está activa. Puede aplicar cualquiera de las propiedades o métodos de un objeto Range a la celda activa, como en el ejemplo siguiente. Aunque se pueden seleccionar una o más celdas en la hoja de cálculo, solo se puede aplicar ActiveCell a una de las celdas de la sección.

Sub SetValue() 
 Worksheets("Sheet1").Activate 
 ActiveCell.Value = 35 
End Sub

Nota Solo puede trabajar con la celda activa cuando la hoja de cálculo en la que se encuentra es la hoja activa.

Mover la celda activa

Use el método Range .Activate para designar cuál es la celda activa. Por ejemplo, el siguiente procedimiento convierte B5 en la celda activa y, a continuación, le da formato de negrita.

Sub SetActive_MakeBold() 
 Worksheets("Sheet1").Activate 
 Worksheets("Sheet1").Range("B5").Activate 
 ActiveCell.Font.Bold = True 
End Sub

Nota Para seleccionar un rango de celdas, use el método Select . Para activar sólo una celda, utilice el método Activate.

Use la propiedad Offset para pasar a la celda activa. El siguiente procedimiento inserta texto en la celda activa del rango seleccionado y, a continuación, mueve la celda activa una celda a la derecha, sin cambiar la selección.

Sub MoveActive() 
 Worksheets("Sheet1").Activate 
 Range("A1:D10").Select 
 ActiveCell.Value = "Monthly Totals" 
 ActiveCell.Offset(0, 1).Activate 
End Sub

Seleccionar las celdas que rodean la celda activa

La propiedad CurrentRegion devuelve un rango o "isla" de celdas limitadas por filas y columnas en blanco. En el siguiente ejemplo, la selección se amplía para incluir las celdas que contienen datos inmediatamente contiguas a la celda activa. A continuación, se asigna el estilo Moneda a este rango.

Sub Region() 
 Worksheets("Sheet1").Activate 
 ActiveCell.CurrentRegion.Select 
 Selection.Style = "Currency" 
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.