vejes

PROGRAMACION VB PARA EXCEL

'Hacer referencia a todas las hojas del libro activo
ActiveWorkbook.Sheets.Select

'Hacer referencia a la hoja2
Sheets("Hoja2").Select

'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 lahoja 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 yposterior 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 b8 dela 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 d10Range("C2:D10").Select

'Selecciona todas las celdas de la hoja
Cells.Select

'Copiar todas las celdas de la hoja1 a la hoja2
Sheets("hoja1").Cells.Copy Destination:=Sheets("hoja1").Range("A1")
                                                                                    
'Referencia de otra forma el rango c2:d10
Range(Cells(2, 3), Cells(10, 4)).Select

'Referenciar  de otra forma el rango c2:c10Range("C2", "D10").Select

'Seleccionar toda la columna  B
Range("A:A").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

'Fijarse porque no funciona
'Selecciona el rango discontinuo c5 a g5; a6; f3 a h3 yc24
Range("C5:G5,A6,F3:H3,C24").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...