Cómo utilizar el nombre de una hoja como variable en Microsoft Excel 2007

Escribe el código de Visual Basic en Excel.
Por jaime avelar

Paso 1

Haz clic en la pestaña "Programador" y luego en "Visual Basic" para iniciar el editor de VB. Haz clic en el menú "Insertar" y luego en "Módulos" para insertar un nuevo módulo de código.


Paso 2

Comienza un nuevo subprocedimiento como sigue:

Sub sheetNames()


Paso 3

Crea la variable "sheetName" para mantener un registro de los nombres de las hojas y dos variables que se utilizarán como contadores de la siguiente manera:

Dim sheetName As String Dim xCntr As Integer Dim shtCntr As Integer


Paso 4

Define el contenido de la variable “sheetName” con el nombre de la primera hoja de tu libro de excel, como sigue:

sheetName = "Sheet1"


Paso 5

Otorga al contador el valor de 1 que representa la primera hoja de cálculo:

shtCntr = 1


Paso 6

Utiliza el siguiente código para crear un bucle “For…Loop” a través de cada hoja en tu libro de excel y agrega el nombre de la hoja a A1 utilizando la variable “sheetName”:

For xCntr = 0 To 2

Worksheets(sheetName).Activate Range("A1").Select ActiveCell.FormulaR1C1 = sheetName Range("A2").Select shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

Next xCntr


Paso 7

Presiona “F5” para ejecutar el procedimiento. En cada hoja de cálculo A1 contendrá el nombre de la hoja.