Código VBA (acciones con rangos de Excel)

Presentamos una selección de ejemplos de código en VBA listo para ejecutar mediante cualquier macro o por medio de un evento de algún objeto (Excel, un libro, una hoja o un rango).

En este artículo, ofrecemos líneas de código ejecutable para realizar acciones con rangos en Excel. Concretamente veremos formas de SELECCIONAR, BORRAR y ESCRIBIR EN CELDAS con VBA.

El texto en verde que a veces se puede ver entre el código, es el que debe personalizar el usuario, si procede.

SELECCIONAR RANGOS EN EXCEL CON VBA

1) Seleccionar una celda.

Sub SeleccionarCeldaA1()

   Range("A1").Select

End Sub

2) Selecionar una celda que está 2 filas más arriba y una columna más a la derecha que la celda actualmente seleccionada.

Sub CambiarSeleccionCelda()

   ActiveCell.Offset(-2, 1).Select

End Sub

3) Selecionar toda la columna A.

Sub SeleccionarColumnaA()

   Range("A:A").Select

End Sub

4) Selecionar toda la fila 1.

Sub SeleccionarFila1()

   Range("1:1").Select

End Sub

5) Selecionar rangos distintos.

Sub SeleccionarRangosDistintos()
   Range("A1:A4,B5,C4:D4").Select

End Sub

EDICIÓN DE RANGOS EN EXCEL CON VBA

6) Borrar contenido de un rango.

Sub BorrarContenidoRango()
   Selection.ClearContents

End Sub

7) Borrar fila seleccionada.

Sub BorrarFila()
   Selection.EntireRow.Delete

End Sub

8) Borrar columna seleccionada.

Sub BorrarFila()
   Selection.EntireColumn.Delete

End Sub

9) Introducir el valor 1000 en la celda A1 de la hoja activa (si lo que se introduce es texto, debe ir entre comillas y si lo que se introduce es un número seguido de un texto, deben ir separados por el símbolo &).

Sub IntroducirValor()
   Range("A1") = 1000

End Sub

10) Introducir el valor 1000 en la celda A1 de la hoja2 (si lo que se introduce es texto, debe ir entre comillas y si lo que se introduce es un número seguido de un texto, deben ir separados por el símbolo &).

Sub IntroducirValor()
   Sheets("Hoja2").Range("A1") = 1000

End Sub

  José Manuel Pomares Medrano