Seleccionar o referenciar celdas de Excel mediante VBA
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