¿Una macro excel para duplicar un archivo varias veces?
publicado
Tengo un archivo de excel que quiero darselo a cada alumno pero con su nombre en el nombre del archivo, ejemplo:
Plantilla (es el archivo de macro) y que cree
Plantilla Juan
Plantilla Ana
Plantilla Maria
tengo el listado de nombres en una hoja, el nombre del alumno tambien apareceria dentro de una hoja oculta para que nadie me presente archivo de otro.
Lo hice con el grabador pero de esta manera siempre hay problemas
Quisiera que este preparado para hacer archivos por igual cantidad a la de los alumnos, si en el listado hay 3 que haga tres archivos, si hay 10 que haga 10 archivos
Y que los grabe en la misma ubicación en donde esta el archivo con la macro que duplica
Tengo un archivo de excel que quiero darselo a cada alumno pero con su nombre en el nombre del archivo, ejemplo:
Plantilla (es el archivo de macro) y que cree
Plantilla Juan
Plantilla Ana
Plantilla Maria
tengo el listado de nombres en una hoja, el nombre del alumno tambien apareceria dentro de una hoja oculta para que nadie me presente archivo de otro.
Lo hice con el grabador pero de esta manera siempre hay problemas
Quisiera que este preparado para hacer archivos por igual cantidad a la de los alumnos, si en el listado hay 3 que haga tres archivos, si hay 10 que haga 10 archivos
Y que los grabe en la misma ubicación en donde esta el archivo con la macro que duplica
La macro con la grabadora es esta:
Sub replica1()
'
' replica1 Macro
'
Sheets("Hoja2").Select
Sheets("Hoja2").Copy
ActiveCell.Select
ActiveCell.FormulaR1C1 = "juan"
ActiveWorkbook.SaveAs Filename:="C:\Users\LABEXX\Desktop\archi… juan.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "alberto"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\LABEXX\Desktop\archivo alberto.xlsx", FileFormat:=xlOpenXMLWorkbook _
, CreateBackup:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "maria"
ActiveWorkbook.SaveAs Filename:="C:\Users\LABEXX\Desktop\archi… maria.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub