Grabar serie de copias de un archivo valor de una celda.

Ignacio Bussy · el 2 de diciembre

Buenas! estoy intentando armar una macro que me genere una serie de copias de un archivo, variando solamente el nombre del archivo (dado por el valor de una celda) y el contenido de una celda (dado por el valor de otra celda)

la cosa sería mas o menos así:

tengo una plantilla, llamémosla "archivo 1" de la cual deseo muliples copias en formato .xls llamadas "archivo 1 - 01-12-13", "archivo 1 - o2-12-13", "archivo 1 o3-12-13" y asi sucesivamente hasta completar los 31 archivos del mes, uno por día. Las fechas para las cuales la macro debe generar el archivo pueden estar definidas por un rango (01-12-13 - 31-12-13) o por una lista de fechas (no hay restriccion respecto a eso). además, la fecha correspondiente a cada archivo debe ser pegada en una celda fija en cada archivo (ej: en la celda A1 del archivo "archivo 1 01-12-13" debe decir 01-12-13)

la ubicación donde se guardan los archivos es fija, y puede ser la misma donde se encuentra la plantilla original.

alguien me podría ayudar?? se me ocurre que no es muy complicada, pero no logro terminar de idearla.

intenté subir el archivo pero me dice que es muy grande (pesa 143Kb).. no me parece tan grande.. jaja

espero alguna respuesta!!

graciassss!!!

Armando Montes · el 3 de diciembre

Hola Ignacio, algo asi:

Sub HojaDia()

    Dim r As Range

    For Each r In Columns(1).SpecialCells(2)

        Sheets.Add().Name = "archivo 1 - " & r.Value

    Next

End Sub[/CODE]

Armando Montes · el 3 de diciembre

Me falto lo de la celda A1:

Sub HojaDia()

    Dim r As Range

    For Each r In Columns(1).SpecialCells(2)

        Sheets.Add after:=Sheets(Sheets.Count)

        ActiveSheet.Name = "archivo 1 - " & r.Value

        [a1] = r.Value

    Next

End Sub[/CODE]