Añadir una hoja y copiar en ella otra hoja del mismo libro respetando formatos

[Antoni]

Hola:

Esta macro hace, simplemente, lo que dice el título del aporte.

Sub CopiarHoja()

Sheets.Add: Sheets("MiHoja").Cells.Copy: ActiveSheet.Paste

End Sub

[/CODE]

[German]

Hola antoni, ¿pero también copia los valores insertados en ella, o tan solo el formato?

Un saludo, Germán.

[Antoni]

Hola Agerman:

Copia absolutamente todo.

Salu2. Antoni.

[verzulsan]

Buenas Antoni y Agerman,

Aqui os dejo otra forma de hacer lo mismo pero sin macro explicada de la mano de German, Post Origen

verzulsan como dice Antoni no es para tanto jeje

Pero ya que estamos hablando de copiar y pegar, un truco muy simple pero util (al menos para mi por aquello de mi trabajo) es el siguiente:

Suponiendo que tienes la necesidad de copiar una hoja (claro ya conocemos el metodo normal) pero algo rapido es darle clic al tab (o etiqueta) de la hoja y presionas la tecla ctrl y con el raton giras a la derecha o izquierda (notaras que se ve el signo +) una vez observes ese signo suelta el raton y listo hoja copiada

poco a poco entre todos haremos muy bueno este parte del foro

Saludos estimados

Por cierto Antoni, ¿A ti te funciona la macro sin renombrar la hoja? yo tuve que renombrarla, o tambien ajustar tu macro a esto:

Sub CopiarHoja()

NombreHoja = ActiveSheet.Name

Sheets.Add: Sheets("" & NombreHoja & "").Cells.Copy: ActiveSheet.Paste

End Sub[/CODE]

Un saludo

[Antoni]

Hola Verzulsan:

A mi me funciona perfectamente tal como lo he subido, de hecho, hice el procedimiento con la grabadora.

Salu2. Antoni.

[verzulsan]

Hola Antoni,

Pues que raro que te funcione, acabo de hacer 9 pruebas, 3 en cada excel, excel 2000, 2003 y 2007, los tengo los 3 instalados, en cada uno lo he probado en la Hoja1, en ThisWorkbook, y en un modulo aparte. Solo me funciona si la hoja desde la que lo hago se llama "MiHoja". Si pudieras explicar como se hace te lo agradeceria.

Saludos

[Antoni]

Hola Verzulsan:

Vamos a centrarnos.

Evidentemente que hay que decirle la hoja que quieres copiar. "MiHoja", es solo un ejemplo.

Me despistó tu comentario acerca de "renombrar la hoja", y con el defecto de no leer atentamente, entendí que te referías a darle nombre a la hoja de destino.

La hoja destino se genera como "Hojan", siendo n el Nº de hoja que le toque.

Si quiere darle nombre a la hoja destino.

ActiveSheet.Name = "MiHojaNueva"[/CODE]

[Fleming]

Hola compañeros

Pero ¿ es práctica esta forma de copiar una hoja ?

Yo selecciono con el botón dcho. la pestaña de la hoja que quiero copiar, elijo "Mover o copiar" y "Crear una copia" y ¡ COPIADA !, con todos los formatos, colores, fórmulas....

He cronometrado y son 3 SEGUNDOS

Saludos

[mjrofra]

!Hola¡

no será más fácil (y más rápido) crear una copia de la hoja y ya, en lugar de crear una hoja nueva y luego copiar en ella los datos:

Sub CopiarHoja()


    Sheets("Hoja1").Copy after:=Sheets(Sheets.Count)


End Sub[/CODE]

[mjrofra]

...

Yo selecciono con el botón dcho. la pestaña de la hoja que quiero copiar, elijo "Mover o copiar" y "Crear una copia" y ¡ COPIADA !, con todos los formatos, colores, fórmulas.......

Hola Fleming, lo que tu describes manualmente es lo que hace la macro que acabo de sugerir .

Pero para hacerlo manualmente yo lo hago seleccionando la pestaña de la hoja y mientras mantengo presionado Ctrl la llevo a donde quiero una copia.

[Fleming]

Hola Mjrofra

Me gusta como lo haces (con Ctrl), que es también lo que aconseja Gerson (más arriba).

Pues, bueno, ya hemos ganado OTRO SEGUNDO (por lo menos)

Un saludo

[mjrofra]

Si es útil el truco de Ctrl, y se extiende en general... casi cualquier cosa que puedas 'arrastrar' con el ratón es susceptible de ser copiado usando Ctrl. Si seleccionas un celda por su borde (el recuadro negro) y la llevas a otro lado mientras mantienes presionado Ctrl harás un copia de la celda. Aplica igual para un rango de celdas, una imagen, un archivo en un carpeta, una hoja como en este caso, etc.

[verzulsan]

Buenas noches Mauricio, Fleming y Antoni , aqui trasnochando un poco antes de irme a la cama,

Vamos a centrarnos.

Evidentemente que hay que decirle la hoja que quieres copiar. "MiHoja", es solo un ejemplo.

Me despistó tu comentario acerca de "renombrar la hoja", y con el defecto de no leer atentamente, entendí que te referías a darle nombre a la hoja de destino.[/code]

Ok, una mala interpretacion por mi parte, ya estoy centrado, no pasa nada solo fue una confusion.

Pues pienso igual que tu Fleming, se pierde menos con el truco de gerson, y la macrito de Mauricio no esta mal, siempre encuentra la manera el genio este de gastar una linea menos de codigo

Sheets("Hoja1").Copy after:=Sheets(Sheets.Count)[/code]

Bueno, para dar las buenas noches, dejo aqui un chiste en excel para copiar una hoja con todos sus formatos, ¡No me he podido resistir! xDD, lo mejor es el final

Sub MegaCopiadoDeHoja_xD()

    Dim HojaActual As String

    Dim HojaNueva As String

    HojaActual = ActiveSheet.Name

    Sheets.Add

    HojaNueva = ActiveSheet.Name

    For i = 1 To 65536 'xD

        For j = 1 To 256

            Sheets("" & HojaActual & "").Select

            Sheets("" & HojaActual & "").Cells(i, j).Select

            Selection.Copy

            Sheets("" & HojaNueva & "").Select

            Sheets("" & HojaNueva & "").Cells(i, j).Select

            ActiveSheet.Paste

        Next j

    Next i

    Application.DisplayAlerts = False

    Sheets("" & HojaNueva & "").Delete

    Application.DisplayAlerts = True

End Sub[/CODE]

Saludos y buenas noches

[Antoni]

Hola:

Jamás hubiera imaginado que esto iba a dar tanto juego.

Para Fleming:

A ver como pones tu solución en una macro.

Para Mauricio:

Definitivamente, tu solución es la mejor.

Para Versulzan:

No te quepa duda que tu "solución" la ha usado alguien.

Para todos:

Hay una solución que te va a llevar 0 segundos:

Procura que la hoja la copie otro,...,ja,ja,ja...

Gracias a todos por el entusiasmo, y dado el éxito de este aporte, mañana enviaré otro:

"Como rellenar una celda de color verde"

Hasta la próxima y saludos a todos. Antoni.

[lizethor]

Un gran Saludo

Estoy muy agradecida por tu informacion, he navegado durante mucho, tratando de encontrar esta respuesta; leyendo todas las intervenciones a mi parecer son acertadas, la opcion que plantea mjrofra es valida para mi, el unico inconveniente en mi caso es que copia todo lo de la hoja, hasta los botones; pero lo interesante es que no aparece error en los nombres repetidos y genera automaticamente una hoja con el mismo nombre y en "consecutivo"; por esta razon quise que mi formato tambien generara un consecutivo con el nombre que yo quisiera asignarle; y por suerte encontre otro codigo que complemento un poquito el tuyo y lo quise compartir a quien pueda interesarle; tambien mi intervencion es un mero agradecimiento por compartir conocimientos con el mundo en este medio, Gracias.

Private Sub Guardar_Click()


Sheets.Add after:=Sheets(Sheets.Count): Sheets("Original").Cells.Copy: ActiveSheet.Paste

ActiveSheet.Name = Sheets(1).Range("C5").Value

Application.CutCopyMode = False


End Sub


[/CODE]

En el codigo "...Range("C5").Value ", es la celda donde coloco el nombre o consecutivo que quiero que lleve el nombre de la hoja.

[Gerson Pineda]

Hola a todos!

Antoni de eso se trata este apartado jejeje imaginate todo lo que a generado tu aporte, aunque a decir verdad el que mas he utilizado es el que menciona mjrofra, vale decir que manualmente es practico (como dice Fleming), pero hay ocasiones donde estas obligado a llamarlo desde vba (bueno en mi caso realice un proyecto, donde el cual no cabia la forma de hacerlo manual, por lo que tenia que adaptarce automaticamente por medio de la macro, y luego al final ver el resultado deseado)

Tambien notar que:

Sub CopiarHoja()
 Sheets("Hoja1").Copy after:=Sheets(Sheets.Count) 
End Sub[/PHP]

after es sinonimo de copiar a la derecha (o despues.... de otra hoja), por lo que se puede optar por before...

[PHP]Sub CopiarHoja()

Sheets("Hoja1").Copy before:=Sheets(Sheets.Count)
End Sub[/PHP]

....que copiara o movera la hoja hacia la izquierda (o antes... de otra hoja)

Logicamente me refiero en el hecho de que exista mas de una hoja!

Espero sirva de algo mi explicacion:cool:

Saludos desde Honduras

[Antoni]

Espero sirva de algo mi explicacion

Seguro que sirve.

Saludos. Antoni

PD:

Logicamente me refiero en el hecho de que exista mas de una hoja

Y aunque solo exista una, también puede estar a la derecha(After) o a la izquierda(Before).

[Gerson Pineda]

jeje "Logicamente me refiero en el hecho de que exista mas de una hoja" en que estaba pensando cuando escribi esto y es correcto lo que apuntas, sino como es posible de que exista un libro sin una hoja???, aunque por mi lado no creo que sean los años jajaja

Saludos a todos