Excel - sr.

   
Vista:

sr.

Publicado por francisco molina (2 intervenciones) el 21/10/2007 15:20:00
Estimado senores tengo el siguiente problema que quiero resolver con macros

En la hoja 1 de Excel tengo 300 nombres de personas los cuales quiero que la macro salve cada uno de los nombres en archivos de excel diferentes, hasta llegar al ultimo me podrian ayudar.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sr.

Publicado por Fernando (231 intervenciones) el 22/10/2007 03:17:21
Hola, aquí te dejo un procedimiento que te puede ayudar a solucionar la situación.

Public Sub CrearLibros()
Dim Fila As Integer, MiLibro As New Workbook, Nombre As String
Fila = Hoja1.Range("A2").End(xlDown).Row
For i = 2 To Fila
Cells(i, 1).Activate
Nombre = Cells(i, 1).Value
Set MiLibro = Workbooks.Add
MiLibro.SaveAs Filename:=Workbooks(1).Path & "\" & Nombre
MiLibro.Activate
MiLibro.Sheets(1).Cells(1, 1).Value = Nombre
MiLibro.Save
MiLibro.Close
Next i
End Sub

Saludos,
Fernando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar