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: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
Seleccin de rangos con variables:
Range("A" & variable).Select
rgo="B2:E" & variable
Range(rgo).Select
rgo = "B" & ini & ":E" & fini
Range(rgo).Select
Nota: observar que las variables NO llevan comillas
Atencin: al inicio de la seccin Macros se encuentran otras instrucciones de seleccin
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
[Link](-10,1).Select
'selecciona la celda que se encuentra 10 filas por encima y 1 columna a la derecha de la celda activa.
3- Ampliar un rango seleccionado
[Link](10,4).Select ' (10 filas, 4 columnas)
' si el rango seleccionado fue A1:B5 ahora ser: A1:D10
4- Seleccionar el rango donde se encuenra la celda activa:
Range("B2").[Link]
5- Guardar la direccin de una celda en una variable:
lugar= [Link]
'guarda la referencia absoluta, por ej: $E$2
lugar= [Link](False, False)
'guarda la referencia relativa, por ej: E2
6- Copiar un comentario en otra celda:
[Link](0,1).Value = [Link]
'copia el comentario de la celda activa en la celda que se encuentra en la columna siguiente.
7-Seleccionar celdas y borrarlas:
Range(rango). Select 'previamente se asign a la variable rango una ref
[Link] 'borra contenidos
[Link] 'borra todo (contenidos, formatos, etc)
Nota: La expresin Cells indica el total de celdas de una hoja. Entonces la instruccin:
[Link] borrar el contenido del total de celdas de la hoja activa.
8- Combinar - descombinar celdas selecccionadas:
Range("B1:E1").Select
[Link]
Nota: Para quitar la combinacin se utilizar: Unmerge
9- Seleccionar hasta la ltima celda no vaca:
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
10- Obtener la primer celda vaca, en col A:
Range("A65536").End(xlup).Row + 1
'o tambin: Range("A2").End(xlDown).Row + 1
Nota: Considerar la versin Excel para tomar el rango final.
Ejemplo1: introducir un nombre para cada hoja del libro activo. Esta rutina se coloca en un mdulo:
Sub nombraHojas()
Dim MiNombre As String
Dim hoja As Worksheet
'controla posible error al ingresar un nombre de hoja no vlido
On Error Resume Next
For Each hoja In Worksheets
MiNombre = InputBox("Ingrese nombre para esta hoja: ")
If MiNombre <> "" Then [Link] = MiNombre
Next hoja
End Sub
Ejemplo2: introducir valores para cada celda de un rango (se coloca en un mdulo)
Sub colocaValores()
Dim celdita as Range
For Each celdita in [Link]("A1:B10")
[Link] = InputBox("Ingrese valor: ")
Next celdita
End Sub
Ejemplo3: introducir los mismos valores en celdas de todas las hojas (se coloca en un mdulo)
Sub valoresHoja()
Dim hoja as Sheets
For Each hoja in Sheets
[Link]("E3").Value = Date
[Link]("F3").Value = Time
Next hoja
End Sub
OTRO TIPO DE BUCLES:
Ejemplo1: realizar una accin por cada valor que tome una variable i (se coloca en un mdulo)
Sub muestraNombre()
Dim i as Byte
Dim hoja as Worksheet
'se controla posible error de que no existan tantas hojas
On Error Resume Next
For i=1 to 5
Msgbox WorkSheets(i).Name
Next
End Sub
En este ejemplo se muestra el nombre de cada hoja, desde la nro 1 a la 5
Ejemplo2: realizar una accin mientras se cumpla una condicin (se coloca en un mdulo)
Sub recorreRango()
'Se recorre la col A a partir de la fila 2 hasta encontrar una celda vaca.
'El valor de cada celda se incrementa en 1
Range("A2").Select
'se controla posible error de que la celda contenga texto
On Error resume next
While [Link] <> ""
[Link] = [Link] + 1
'pasa a la fila siguiente
[Link](1,0).Select
Wend
End Sub
