Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Uso de Resize en Offset

| Sin comentarios

La función del comando Resize es ampliar el rango de selección. Se le da como parámetros la cantidad de filas y columnas extras  que se quieren seleccionar.

En este ejemplo se selecciona una tabla que se encuentra en la hoja 1

Sub sel()
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
End Sub

Utilizando el comando OFFSET se selecciona solo el contenido de la tabla, obviando los encabezados.Es decir se salta una fila.

Con el siguiente modulo se copia la tabla seleccionada, es decir los datos en si, sin encabezados, en la hoja 2.

Sub final()
Application.Run "Libro1.xlsx!sel"
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

Podría ampliarse el alcance de esta macro al dar como parámetro las celdas que se desean copiar o mejor dicho las columnas y unir solo las columnas requeridas para presentar un reporte en la hoja siguiente.

Elaborado por: Jacques Sovero

Deja una respuesta

Los campos requeridos estan marcados con *.