Posteado por: marcos perezi | marzo 16, 2013

Macro para crear hojas con Excel

En alguna ocasion se presentó un pequeño ejercicio con Excel, la idea era generar varias hojas, con el mismo nombre pero seguia de un guion y un numero que la identificaba:

MIHOJA-1
MIHOJA-2
MIHOJA-3
MIHOJA-4
MIHOJA-5

Cuando esta tarea se realiza de forma manual es posible si son pocas hojas, pero presentarse la situacion con 50, 100 hojas, etc tomará un tiempo, el mismo que puede ser automaizado con una Macro

MIHOJA-1
MIHOJA-n

Aqui vá la solucion:

1- forma: Se generarán en forma descendente:

Sub crearnhojas(n As Integer)
Dim nombreHoja As String
nombreHoja = “MIHOJA-”
Dim hoja As Worksheet
For i = 1 To n
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja & i
Next
End Sub

2-forma:Se generarán en forma ascendente:

Sub crearnhojas(n As Integer)
Dim nombreHoja As String
nombreHoja = “MIHOJA-”
Dim hoja As Worksheet
For i = n To 1 Step -1
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja & i
Next
End Sub


Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

A %d blogueros les gusta esto: