Agregar una hoja al final de un nuevo libro

Hola escribo nuevamente, pues tengo dificultades nuevamente con mi macro, que copia los valores y formatos a un nuevo libro, yo realice las pruebas con tres hojas y hasta ahí corría sin problemas, pero sucede que no son tres las que tengo que copiar sino 8 y probé varias opciones pero la que anda más cerca es la siguiente instrucción ActiveWorkbook.Worksheets.Add
el problema es que este código inserta una hoja al principio y yo necesito que la inserte después de la hoja 3 del nuevo libro.
La macro hasta el momento esta así:
Sub CopiarHojas1()
Dim h1 As String
Dim h2 As String
Dim h3 As String
Dim h4 As String
h1 = "Factura1"
h2 = "Factura2"
h3 = "Factura3"
h4 = "Factura4"
    Cells.Select
    Sheets(Array(h1, h2, h3, h4)).Select
    Sheets(h1).Activate
    Selection.Copy
    Workbooks.Add
    ActiveWorkbook.Worksheets.Add 'Coloca la hoja al principio, yo necesito que la inserte al final
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")).Select
    Sheets("Hoja1").Activate
    Sheets("Hoja1").Name = h1
    Sheets("Hoja2").Activate
    Sheets("Hoja2").Name = h2
    Sheets("Hoja3").Activate
    Sheets("Hoja3").Name = h3
    Sheets("Hoja4").Activate
    Sheets("Hoja4").Name = h4
End Sub
Desde ya agradezco tu ayuda.
Saludos
Respuesta
1
Si deseas agregar una hoja nueva al libro debes utilizar : Sheets. Add
Tu tienes : Workbooks. Add y eso agrega un nuevo "libro"
Bueno creo que no me explique bien, pues la instrucción que tu me envías es para agregar hojas a un libro que ya esta abierto.
Mi problema es el siguiente, yo selecciono 8 hojas de un libro que tienen una serie de fórmulas, esas hojas las selecciono todas y las copio y las llevo a un libro nuevo y las pego solo los valores y el formato, el problema es que el nuevo libro por defecto tiene tres hojas y ahí la macro me da un error me dice que el tamaño de la copia no es el mismo donde voy a copiar. Por eso que la instrucción: ActiveWorkbook.Worksheets.Add me soluciona en parte el problema, pues me desordena las hojas en el nuevo libro ya que me coloca al principio del nuevo libro la hoja 4, espero haberme explicado mejor y me puedas ayudar.
Desde ya gracias.
Ok, para eso no es necesario formular nada, simplemente ve a las opciones de Excel y en el parámetro que indica "al crear nuevos libros" aparece una opción que indica :
"incluir este numero de hojas": por efecto segurametne tienes 4, solo cambia ese numero por 8 o als que necesites, de esta forma cada vez que crees un nuevo libro este ya vendrá con el numero de hojas que necesitas.
Si esa es una opción, pero no quisiera modificar Excel para resolver un problema puntual, de todas formas agradezco tu ayuda.
Si sabes de una forma de lograrlo por código me seria de gran utilidad.
Nuevamente mil gracias
Ok entonces, con esta linea estamos:
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Esto agrega una hoja al final de la última que tenga el libro
Bye

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Guardar varias hojas de Excel en un mismo PDF con cada nombre de cliente

Tengo hecha una macro que me convierte el excel en PDF (solo de una hoja) y me exporta cada PDF de cada cliente a la ruta que le tengo asignado. Necesito que me convierta la primera y segunda hoja del excel a PDF (el mismo PDF) y que se guarde cada...
1 respuesta

Macro para realizar busqueda en otra hoja,copiar una celda de la fila encontrada si cumple condicion

Tengo 3 hojas. La hoja 1 tenemos producto, destino, bodega y cantidad buscamos en la hoja 3 el distino de la hoja 1 Si esa bodega encontrada tiene stock(el stock se encuentra en la hoja 2) para cumplir lo pedido copiamos a la hoja 1 la bodega de la...
1 respuesta

En una macro se ha producido el error 9 en tiempo de ejecución subíndice fuera del intervalo ayuda

Herede una macro con problemas, e leído por varios foros y no he podido acertar con la solución, este el código Sub sinmail() Dim nbrpln As String Dim vendedor As String Dim archi, i As Integer vendedor = Range("k5") cliente = Range("d7") nbre =...
1 respuesta

¿Cómo combino dos macros que hacen lo que necesito?

Tengo que aplicar dos macros a muchos archivos en excel, Pero es laborioso estar haciendo manualmente algunos procesos para las macros. ¿Cómo fusiono estas dos macros? ¿Se requiere de hacer una nueva macro? Me refiero a las macros de las dos...
1 respuesta

Macro para eliminar y copiar filas en otra hoja

Aquí, haciendo incursiones con las macros pero esto es muy complejo. Agradecería mucho su ayuda. Tengo 2 hojas de excel en un libro. En la hoja 1 tengo miles de filas y datos repartidos en 10 columnas. En la hoja 2 cientos de filas y datos repartidos...
1 respuesta

Unir dos hojas en excel

As) necesito me ayuden en lo siguiente: tengo dos hojas de cálculo, en cada una de ellas hay varios datos con un campo en común. Deseo saber los campos que son iguales.
1 respuesta

Macro para pasar de renglón

Tengo un archivo de excel con más de 200 registros en la primer hoja, sin embargo, de cada registro, tengo que sacar en una hoja nueva 265 subregistros de un solo registro. Dicha macro ya la realice, el caso que lo que quiero es de que al apretarle...
1 respuesta

Macro para crear hojas con un nombre y copiar datos en ellas.

Necesito hacer una macro que copie datos e inserte hojas nuevas, apartir de la "Hoja1". En la "Hoja1" tengo una tabla de 14 columnas y 100 filas, La copia se debe de realizar según datos de la columna "A". Al ejecutar la macro, se buscan datos en la...
1 respuesta

¿Textbox No suma Decimales?

Hla, tengo un formulario con 4 textbox alineados en dos columnas de dos textbox c/u y un botón entre ellos, o que hace mi formulario es esto: Escribo un Valor en el Textbox1, presiono el botón que esta entre los dos textbox, el botón busca ese valor...
3 respuestas

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas