Seleccionar o referenciar celdas de Excel mediante VBA

De Wikilibros, la colección de libros de texto de contenido libre.

Referenciar o seleccionar celdas cuando se programa macros con VBA, es indicarle a VBA sobre que celda, se debe buscar o realizar algún evento, es algo básico que debe saber si se intenta realizar una macro o bien modificar alguna macro que haya sido grabada con la grabadora de macros que trae incorporado Excel.

'Hacer referencia a la hoja que se encuentra en la posición 2 sin importar el nombre

Sheets(2).Select

'Hacer referencia a la hoja de la pestaña anterior a la activa

ActiveSheet.Previous.Select

'Hacer referencia a la hoja de la pestaña posterior a la activa

ActiveSheet.Next.Select

'Hacer referencia a una celda de otro libro

Application.Goto Workbooks("Libro1.xlsm").Sheets("Sheet1").Cells(7, 6)

'Hacer referencia a una hoja guardando en una variable el nombre de la hoja activa, previa a la activa y posterior a la activa Dim sheetnom As String 'Se guarda el nombre de la hoja activa, previa a la activa y posterior a la activa

sheetnom = ActiveSheet.Name sheetnom = ActiveSheet.Previous.Name
sheetnom = ActiveSheet.Next.Name

'Hacer referencia a una hoja guardando en una variable el número de hoja, actual, previa a la actual y siguiente

Dim sheetnumb As Byte
sheetnumb = ActiveSheet.Index
sheetnumb = ActiveSheet.Previous.Index
sheetnumb = ActiveSheet.Next.Index

'Selecciona la celda c8 de la hoja 1

Sheets("hoja1").Select Range("C8").Select

'Hacer referencia de otra forma a la misma celda c8

Cells(8, 3).Select

'También podemos hacer referencia a la celda C8 pero de la hoja 2

Sheets("hoja2").Select Cells(8, 3).Select

'Se puede seleccionar la celda c8 de la hoja activa mediante

ActiveSheet.Cells(8, 3).Select

'Selecciona el rango continuo c2 a d10

Range("C2:D10").Select

'Referencia de otra forma el rango c2:d10

Range(Cells(2, 3), Cells(10, 4)).Select

'Referenciar de otra forma el rango c2:c10

Range("C2", "D10").Select

'Seleccionar toda la columna B

Range("B:B").Select

'Seleccionar todas las columnas desde la columna A hasta la columna C

Range("A:C").Select

'Seleccionar toda la fila 4

Range("4:4").Select

'Seleccionar todas las filas desde la fila 1 hasta la fila 5

Range("1:5").Select

'Seleccionar la unión de dos o más rangos especificados, similar a seleccionar y tener apretado tecla ctrl

Application.Union(Range("A2: C5"), Range("F6: H12")).Select

'Seleccionar dos más columnas de columnas no contiguas de longitud variable

Set a = Range("A1", Range("A1").End(xlDown))
Set b = Range("E1", Range("E1").End(xlDown))
Union(a, b).Select

'Seleccionar un rango mayor al anteriormente seleccionado, el rango se amplía a 10 filas, 4 columnas

Range("D10").Select
Selection.Resize(10, 4).Select

'Seleccionar un rango mayor al anteriormente seleccionado, estableciendo la cantidad de fila y columnas adicionales a seleccionar

Range("C2:D10").Select
Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count + 4).Select

'Seleccionar desde la celda E2 hasta la última celda con datos hacia abajo, similar a ctrl + shift + flecha hacia abajo Range("E2", Range("E2").End(xlDown)).Select

'Otra forma de seleccionar
Range("E2:" & Range("E2").End(xlDown).Address).Select

'Seleccionar desde la celda E2 hasta la última celda con datos hacia la derecha, similar a ctrl + shift + flecha hacia la derecha Range("E2", Range("E2").End(xlToRight)).Select

'Otra forma de seleccionar Range("E2:" & 

Range("E2").End(xlToRight).Address).Select

'Seleccionar desde la celda E2 hasta la última celda con datos hacia la izquierda, similar a ctrl + shift + flecha hacia la izquierda Range("E2", Range("E2").End(xlToLeft)).Select

'Otra forma de seleccionar

Range("E2:" & Range("E2").End(xlToLeft).Address).Select

'Seleccionar desde la celda E2 hasta la primera celda con datos desde abajo, similar a ctrl + shift + flecha hacia arriba Range("E2", Range("E1048576").End(xlUp)).Select

'Otra forma de seleccionar

Range("E2:" & Range("E1048576").End(xlUp).Address).Select

'Seleccionar mediante variables y cells un rango hacia la derecha

Sheets("ApiladoVertical").Range((Cells(filaAV, 1)), Range((Cells(filaAV, 1)), Cells(filaAV, 1)).End(xlToRight)).Select

'Seleccionar la última celda con datos hacia abajo, similar a ctrl + flecha hacia abajo

Range("E2").End(xlDown).Select
'Seleccionar la última celda con datos hacia la derecha, similar a ctrl + flecha hacia la derecha Range("E2").End(xlToRight).Select

'Seleccionar la última celda con datos hacia la izquierda, similar a ctrl + flecha hacia la izquierda Range("E2").End(xlToLeft).Select

'Seleccionar desde la celda E1048576 la primera celda con datos hacia arriba, similar a ctrl + flecha hacia arriba Range("E1048576").End(xlUp).Select

'Hacer referencia a la ultima celda sin datos

ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

'Hacer referencia a la ultima columna sin datos

ActiveSheet.Range("a1").End(xlDown).Offset(0, 1).Select

'Hacer referencia a la dirección de la última celda hacia abajo con datos

Dim addr As String
Range("E2").End(xlDown).Select
'dirección en forma absoluta (Ej: $E$50)
addr = Selection.Cells(1, 1).Address
'dirección en forma relativa (Ej: B50)
addr = Selection.Cells(1, 1).Address(False, False)

'Hacer referencia a la dirección de la última celda hacia la derecha con datos

Dim addrc As String
Range("E2").End(xlToRight).Select
'dirección en forma absoluta (Ej: $E$50)
addrc = Selection.Cells(1, 1).Address
'dirección en forma relativa (Ej: B50)
addrc = Selection.Cells(1, 1).Address(False, False)

'Referenciar al numero de la ultima fila con datos continuos

Dim uf As String
Range("E2").End(xlDown).Select
uf = ActiveCell.Row

'Referenciar al numero de la ultima columna con datos continuos

Dim uc As String Range("E2").End(xlToRight).Select
uc = ActiveCell.Column

'Hacer referencia a la ultima fila con datos

uf = Sheets("hoja2").Range("A" & Rows.Count).End(xlUp).Row

'Referenciar a la ultima fila con datos de la columna A de otra forma

uf = Cells(1048576, 1).End(xlUp).Row

'Referenciar a la ultima columna con datos de la fila 1 de otra forma

uc = Cells(1, 16384).End(xlToLeft).Column

'Selecciona y combina las celdas selecciondas

Range("B1:E1").Select Selection.Merge

'Selecciona y descombina las celdas selecciondas

Range("B1:E1").Select Selection.UnMerge

'Selecciona un rango donde se encuentra la celda activa

Range("B2").CurrentRegion.Select

'Otra forma de selecciona un rango donde se encuentra la celda activa

ActiveSheet.Range("e2", ActiveSheet.Range("e2").End(xlDown).End(xlToRight)).Select

'Otra forma de selecciona un rango donde se encuentra la celda activa

ActiveSheet.Range("e2:" & ActiveSheet.Range("e2").End(xlDown).End(xlToRight).Address).Select

'Selecciona un rango donde se encuentra la celda activa, pero habiendo una fila sin datos en el rango

lastCol = ActiveSheet.Range("E2").End(xlToRight).Column
lastRow = ActiveSheet.Cells(E1048576, lastCol).End(xlUp).Row
ActiveSheet.Range("E2", ActiveSheet.Cells(lastRow, lastCol)).Select

'Selecciona la última celda con datos independientemente si existen celdas vacias en medio, es decir

'selecciona la ultima celda del rango formado entre la ultima columna con datos y la ultima fila con datos ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select

'Selecciona la última celda con datos independientemente si existen celdas vacias en medio, es decir

Dim addr1 As String
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select Selection.End(xlToLeft).Select addr1 = Selection.Cells(1, 1).Address(False, False)

'Hacer referencia a la ultima columna sin datos

'Selecciona la última sin datos independientemente si existen celdas vacias en medio, es decir

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select Selection.End(xlToLeft).Offset(1, 0).Select


'Hacer referencia a las siguientes filas de un rango con filtros

'Selecciona un columna con datos a partir de los datos, sin cabeceras
   Dim Rango as Range, i as Long, cell as Range
   With ActiveSheet
       Set Rango = .Range("A2", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
   End With
'Proceso con cada fila
   For Each cell In Rango
       i = cell.Row
       'Aqui colocar lo necesario 
   Next

'Determinar la primera fila de una selección Range("A1:A5").Select pf = Selection.Cells(1, 1).Row

'Determinar la última fila de una seleccíon Range("A1:A5").Select uf = Selection.Cells(Selection.Cells.Rows.Count, 1).Row

'Crear un objeto con las celdas visibles solamente copiarlo y pegarlo en otra hoja Set RG = Sheets("ARTI").Range("C21", Sheets("ARTI").Range("C21").End(xlDown)).SpecialCells(xlCellTypeVisible) RG.CurrentRegion.Copy Sheets("BY879VbDAYRA10iBTOMYIUYT").Range("a1").PasteSpecial

--Marcrodos (discusión) 04:40 7 nov 2013 (UTC)

Microsoft VBA Ejemplos de macros de Excel en VBA