macros_rangos

Trabajando con Rangos o Celdas

1- Formas de seleccionar una celda o un rango de celdas:

Range("B7").Select 'selecciona la celda B7

Range("B:B").Select 'selecciona toda la columna B

Range("A4:A10, D10, B5:B20").Select
'selecciona rangos discontinuos

Range("A"&variable).Select
'selecciona la celda cuya fila será el valor de la variable

Si definimos una variable que contiene la última fila a considerar:
rango=("B2"&":E"&variable)    , entonces la siguiente instrucción selecciona el rango B2:E hasta la fila indicada en la variable :

Range(rango).Select

Range("A:A, D:F").Select 'selecciona las columnas A, D, E y F

Range("2:2, 4:7").Select 'selecciona las filas 2 y desde 4 hasta la 7

2- Seleccionar celdas a cierta distancia de la celda activa:

Sheets(1).Range("A1").Offset(2,3).Select
'selecciona 2 filas hacia abajo y 3 col a derecha de A1 = D3

ActiveCell.Offset(-10,1).Select
'selecciona la celda que se encuentra 10 filas por encima y 1 columna a la derecha de la celda activa.

3- Formato de celdas:

Range("B2:D10").Select
'selecciona el rango y le aplica los siguientes formatos
With Selection
.Font.Bold=True                    'formato negrita     .Font.Italic=True                   'formato cursiva .Font.Underline=xlUnderlineStyleSingle      'subrayado simple
.Font.Color = RGB(255,0,0)
'color de fuente (para estos valores será rojo)   .HorizontalAlignment=xlCenter
'alineación central (Right=derecha, Left=izquierda)
End With

4- Guardar la dirección de una celda en una variable:

lugar= ActiveCell.Address 'guarda la referencia absoluta

lugar= ActiveCell.Address(False, False) 'guarda la referencia relativa

5- Copiar un comentario en otra celda:

ActiveCell.Offset(0,1).Value = ActiveCell.Comment.Text
'copia el comentario de la celda activa en la celda que se encuentra en la columna siguiente.

6-Seleccionar celdas y borrarlas:

Range(rango). Select o Cells.Select
Selection.ClearContents

7- Ampliar un rango seleccionado

Selection.Resize(10,4).Select ' (10 filas, 4 columnas)
' si el rango seleccionado fue A1:B5 ahora será: A1:D10

8- Combinar celdas selecccionadas:

Range("B1:E1").Select

Selection.Merge

9- Seleccionar el rango donde se encuenra la celda activa:

Range("B2").CurrentRegion.Select

10- Seleccionar hasta la última celda no vacía:

Range("A2", Range("A2").End(xlDown)).Select
'seleciona desde A2 hacia abajo

Range("A2", Range("A2").End(xlToRight)).Select
'selecciona desde A2 hacia la derecha

Range("D2", Range("D2").End(xlToLeft)).Select
'selecciona desde D2 hacia la izquierda

Range("A20", Range("A20").End(xlUp)).Select
'selecciona desde A20 hacia arriba

En cambio, para seleccionar solo la última celda con datos será:

Range("A2").End(xlDown).Select

Anterior Siguiente