Pasar datos a una plantilla automáticamente

Los códigos que encuentres en otras consultas, especialmente cuando no están explicadas como para hacerles un seguimiento, no son tan fáciles de adaptar ya que fueron creadas para un ejemplo puntual.

Tampoco podemos resolverla si no nos indicas tus referencias o muestres la estructura de tus hojas en una imagen. Aquí se toman algunos datos de 2 hojas... debes indicarme cuáles son tus hojas, tus rangos a copiar y todo lo que puedas aportar para adaptar este código, o directamente desarrollarte uno nuevo a tu medida ;)

Si te resulta más cómodo enviarme directamente tus hojas explicando lo que necesitas informar, encontrarás mis correos en sección Contactos de mi sitio. Copia el de gmail por favor.

Hola,

No veo el correo que me comentas.

Te comento por aquí lo que necesito:

Tengo una hoja de informe tipo y necesito que al rellenar la hoja y dar generar informe se genere otra hoja con el nombre de una celda y todo los datos ya rellenados, asimismo, que esa hoja informe tipo quede en blanco y pueda volver a rellenar otro informe y volver ha realizar el mismo proceso. 

1. Relleno el informe 

2. Genero informe a partir de una celda que se llamará ¨Nombre del fichero¨

Espero haberme explicado bien.

Gracias de antemano.

Dejo imagen para que encuentres mi correo ;)

Si la nueva hoja será una copia del formulario, es decir con los datos en las mismas ubicaciones, lo mejor será que la macro realice una copia, la renombre y eventualmente, si hubiese fórmulas las deje como valores (para no dejarla vinculada a la plantilla).

Sub GeneraCopia()
'x Elsamatilde
Dim sino, hojaForm
'siempre es conveniente confirmar antes de crear/limpiar hojas
sino = MsgBox("¿Confirmas guardar copia de este formulario?", vbQuestion + vbYesNo, "Confirmar")
'si respondes que no se cancela y se queda en el formulario
If sino <> vbYes Then Exit Sub
'guarda el nombre de la planilla para regresar
    hojaForm = ActiveSheet.Name
'realiza una copia dejándola al final de las pestañas
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
'la copia pasa a ser la hoja activa y se le cambia el nombre por el contenido de una celda
    ActiveSheet.Name = [C8]     
'a las celdas que tienen fórmulas se las deja como valores
    With Range("C10:C17")    'AJUSTAR RANGOS .... esto es solo un ejemplo
        .Copy
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
    End With
'regresa a la hoja formulario
Sheets(hojaForm).Select
'se limpia el rango de valores.....NO limpiar celdas que puedan tener fórmula
'ver ejemplos de cómo seleccionar rangos
'opcional: seleccionar la primer celda para el llenado de un nuevo documento
[B5].Select
MsgBox "Fin del guardado."
End Sub

El código va explicado por lo que podrás ajustar todas las referencias a tu modelo. Como verás, no es posible en una imagen detectar las que tienen fórmula.

Por otro lado, tampoco queda claro si necesitas una copia de la hoja, o quieres pasar solo los campos y ubicarlos tipo hoja base... o quieres otro libro (mencionas nombre del fichero).

Sdos.

Elsa

* Los invito a visitar la sección Manuales de mi sitio... acabo de publicar el Manual 500Macros+365 (revisión y actualización completa del manual 500Macros incluyendo código apto para la versión Excel 365 + nuevos capítulos). Imperdible!

Hola, Elsa,

Gracias, por la macro, me ha servido muchísimo.

Ahora tengo otro problema y es en el paso 3. A parte de copiar el nombre de la hoja creada, necesitaría copiar otros 3 valores más, he usado el mismo código, pero no sale nada,

3- Se agrega el nombre de la nueva hoja a la lista en 'Hoja Control'
'previamente se verifica si esta hoja existe
On Error Resume Next
buscarHoja = Worksheets("Hoja Control").Name <> ""
If buscarHoja = False Then
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Hoja Control"
End If
Hoja4.Select 'vuelve a la hoja informe
'primer fila libre para agregar el nombre creado
x = Sheets("Hoja Control").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja Control").Range("A" & x) = [B21]
x = Sheets("Hoja Control").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja Control").Range("B" & x) = [B19]
x = Sheets("Hoja Control").Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja Control").Range("C" & x) = [C56]

Gracias de ante mano.