Excel Trabajar con Rango

Publicado: 1 de agosto de 2012 en Actualidad

Trabajando con Rangos o Celdas

En esta sección aparecerán algunas de las instrucciones ‘básicas’ para utilizar con CELDAS o RANGOS. Una vez copiada en el Editor, colocar el cursor sobre la palabra en negrita y presionar F1 para acceder a la Ayuda Excel. Allí se encontrarán más explicaciones y ejemplos para esa instrucción.

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

De igual manera puede establecerse el rango de inicio:

rango = "B" & ini & ":E" & fini

Range(rango).Select

*- Nótese que las variables NO llevan comillas

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

Nota: al inicio de la sección Macros se encuentran otras instrucciones de selección

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- Asignar Formato a celdas o rangos:

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, por ej: $E$2

lugar= ActiveCell.Address(False, False)

‘guarda la referencia relativa, por ej: E2

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 ‘previamente se asignó a la variable rango una ref

Selection.ClearContents

La expresión Cells.Clearcontents borrará el contenido del total de celdas de la hoja activa

Utilizando solamente Clear se borrarán formatos también.

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

Para quitar la combinación: Unmerge

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

Nota: Esta instrucción dará error si la celda A3 se encuentra vacía. Es preferible en ese caso realizar la búsqueda de ‘abajo hacia arriba’, con:

Range("A65536").End(xlup).Select

11- Obtener la primer celda vacía, en col A:

Range("A2").End(xlDown).Row + 1 ‘o

Range("A65536").End(xlup).Row + 1

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s