Hacer copias de una Hoja con los nombres de una lista.
Tengo un libro de excel con una hoja que contiene un listado de estudiantes llamada "LISTADO" y otra hoja con un ejemplo de una tabla de pagos llamada "MARÍA" (1ra estudiante en la lista). Lo que quiero es que la hoja con la tabla de pagos se copie en varias hojas que tengan los nombres de cada estudiante de la lista de la primera hoja. Es decir, una hoja con la etiqueta del nombre del estudiante y su respectiva tabla de pagos individual. Todo esto generarlo a partir de lo que tengo. No puedo hacerlo manualmente porque son muchos estudiantes y el listado cambiará constantemente.
2 Respuestas
...
Buenas, Patricia
Ya está en tu correo, la solución aplicada en el archivo.
H o l a : Puedes enviarme tu archivo con un par de ejemplos de lo que quieres generar.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Patricia Flores” y el título de esta pregunta.
¡Gracias!
Te anexo la macro
Sub GenerarHojas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("LISTADO")
Set h2 = Sheets("FORMATO")
Call BorrarHojas
'
f = 7
Do While h1.Cells(f, "C") <> ""
nombre = Left(h1.Cells(f, "C"), 30)
h2.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Range("B5") = nombre
ActiveSheet.Name = nombre
f = f + 1
Loop
h1.Select
Application.ScreenUpdating = False
MsgBox "Hojas generadas", vbInformation
End Sub
'
Sub BorrarHojas()
'Por.Dante Amor
Application.DisplayAlerts = False
For Each h In Sheets
Select Case UCase(h.Name)
Case "LISTADO", "FORMATO", "EJEMPLO"
Case Else: h.Delete
End Select
Next
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias