Array para crear y eliminar hojas a partir de un rango





array para crear y eliminar hojasArray para crear y eliminar hojas a partir de un rango: El caso es el siguiente, se necesita crear tantas hojas como datos exista en un rango, de igual forma se necesita eliminarlos luego de haberlos creado. Automatizar para este caso “Array para crear y eliminar hojas a partir de un rango” puede realizarse de diferentes formas, unas serán mas complejas y otras más simples, todo depende de cuanto sabemos de programación de macros, para el caso desde mi punto de vista es más sencillo y estructurado usar arrays vba ya que haremos que el código sea leído de forma limpia lo que se reflejará en mayor rapidez al momento de ejecutar la macro.

A continuación explico en que consiste la macro prepara para este ejemplo titulada  “Array para crear y eliminar hojas a partir de un rango”

  • Macro vba Excel para crear hojas a partir de un rango
Sub crear_hojas()
Dim MiMatriz As Variant
'z es la ultima fila de los datos
Z = Sheets("arrays").Range("d3").End(xlDown).Row
MiMatriz = Sheets("arrays").Range("d3:d" & Z)
'ubound sirve para indicar la ultima posicion de la matriz
For i = 1 To UBound(MiMatriz)
 Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MiMatriz(i, 1)
Next i
End Sub
  • Macro vba Excel para eliminar hojas a partir de un rango
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub eliminar_hojas_creadas()
Dim MiMatriz As Variant
'z es la ultima fila de los datos
Z = Sheets("arrays").Range("d3").End(xlDown).Row
MiMatriz = Sheets("arrays").Range("d3:d" & Z)
'ubound sirve para indicar la ultima posicion de la matriz
On Error Resume Next
Application.DisplayAlerts = False
For i = 1 To UBound(MiMatriz)
Sheets(MiMatriz(i, 1)).Delete
Next i
Application.DisplayAlerts = True
End Sub

A continuación puedes descargar la macro

Arrays Para Crear Y Eliminar Hojas.xls
Arrays Para Crear Y Eliminar Hojas.xls
Arrays para crear y eliminar hojas.xls
49.0 KiB
873 Downloads
Details


Deja tu comentario
Tu Comentario