🔴 Ejercicios con la propiedad Rows y Columns, aquí nosotros podemos Seleccionar, insertar, eliminar y desplazarnos entre las celdas, filas y rangos con la propiedad Fila y Columna. Te muestro a continuación una serie de casos y ejemplos del uso de la propiedad Rows y Columns.
Propiedad Row y Column de VBA
✅ En este apartado veremos algunos ejercicios y casos diferentes para el uso de la Propiedad Rows y la Propiedad Columns de los Objetos Range o también podríamos utilizar el Objeto Cells.
Entendamos lo siguiente:
Rows = Filas
Columns = Columnas
Propiedad Rows
✅ Nos permite seleccionar filas, insertar filas, nos permite eliminar filas y también podremos movernos dentro de estas filas.
Propiedad Columns
✅ Permite movernos en las columnas, permite agregar columnas, permite eliminar columnas, entre otras.
Seleccionar Filas y Columnas
Ejercicio 1 Propiedad Rows y Select
Sub PropiedadRowsColumns()
Range(“A1”).Rows(3).Select
End Sub
Ejercicio 2 Propiedad Rows y Select
Sub PropiedadRowsColumns()
Range(“A1”).Rows(3).Select
End Sub
Ejercicio 3 Propiedad Rows y Select
Sub PropiedadRowsColumns()
Range(“A3:B10”).Rows(3).Select
End Sub
Ejercicio 4 Propiedad Columns y Select
Sub PropiedadRowsColumns()
Range(“A1”).Columns(3).Select
End Sub
Ejercicio 5 Propiedad Columns y Select
Sub PropiedadRowsColumns()
Range(“A3:D10”).Columns(2).Select
End Sub
Referencia a una hoja con WorkSheets y Sheets
Diferencias entre WorkSheets y Sheets
Ejercicio 6
En el siguiente ejercicio Sheet va seleccionar la Hoja1 y Rows la fila 3.
Sub PropiedadRowsColumns()
Sheets(“A1”).Rows(3).Select
End Sub
Ejercicio 7
En el siguiente ejercicio Sheet va seleccionar la Hoja1 y Comlumns seleccionará la columna 3.
Sub PropiedadRowsColumns()
Sheets(“Hoja1”).Columns(3).Select
End Sub
Insertar Filas y Columnas
Ejercicio 8
Vamos a insertar una celda.
Sub PropiedadRowsColumns()
Range(“A1”).Rows(3).Insert
End Sub
Ejercicio 9
Vamos a insertar una fila en Hoja1.
Sub PropiedadRowsColumns()
Sheets(“Hoja1”).Rows(4).Insert
End Sub
Ejercicio 10
Vamos a insertar una columna.
Sub PropiedadRowsColumns()
Sheets(“Hoja1”).Columns(4).Insert
End Sub
Ejercicio 11
Insertar una columna con Rango específico.
Sub PropiedadRowsColumns()
Range(“A3:D10”).Columns(2).Insert
End Sub
Eliminar Filas y Columnas
Ejercicio 12
Vamos a eliminar una celda.
Sub PropiedadRowsColumns()
Range(“A1”).Rows(3).Delete
End Sub
Ejercicio 13
Vamos a eliminar una fila.
Sub PropiedadRowsColumns()
Sheets(“Hoja1”).Rows(4).Delete
End Sub
Ejercicio 14
Vamos a eliminar una columna seleccionando un rango:
Sub PropiedadRowsColumns()
Range(“B3:D10”).Columns(2).Delete
End Sub
TIP cómo ir al último registro
Debemos saber cual es nuestro último dato para poner nuestros últimos registros, es decir pondremos nuestros datos en las últimas filas.
Podemos usar:
Sheets (“Hoja1”) es estático
ActiveSheet hoja abierta
Usaremos ActiveSheet
Sub PropiedadRowsColumns()
fila = ActiveSheet.Cells.(Rows.Count,“B” )End(xlUp).Row
Cells(fila + 1, “B” ).Value = “Miguel”
End Sub
