Generar varios archivos a partir de uno
Hola, cómo puedo generar varios archivos excel a partir de uno. El archivo matriz tiene varias columnas y debiera crear un archivo excel cada vez que cambia un dato de la segunda columna, que corresponde a un código de cliente.
1 Respuesta
Respuesta de vkinki
1
Para que cuando canvies un dato de la segunda columna aparezca el cuadro de dialogo de guardar como deberías poner el siguiente codigo, a traves de herramientas-macro-editor de visualbasic, y en el apartado Thisworkbook copiar el siguiente codigo;
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Then
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub
Cada vez que modifiques algo de la segunda columna aparecerá guardar como.
Si quieres que automaticamente se guarde en un nombre de archivo determinado, como por ejemplo, que coja el valor de alguna casilla para guardar-lo, en la linea de código deberias quitar;
Application.Dialogs(xlDialogSaveAs).Show
Y poner;
nombre=range("A2").value
Activeworkbook.saveas "C:\Mis documentos\"+nombre
Donde coge el nombre de la casilla A2 y lo guarda en un archivo en mis documentos. No se si era esto realmente lo que querías, ya que en tu pregunta no me ha quedado muy claro, pero si tienes dudas vuelve a preguntarme.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Then
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub
Cada vez que modifiques algo de la segunda columna aparecerá guardar como.
Si quieres que automaticamente se guarde en un nombre de archivo determinado, como por ejemplo, que coja el valor de alguna casilla para guardar-lo, en la linea de código deberias quitar;
Application.Dialogs(xlDialogSaveAs).Show
Y poner;
nombre=range("A2").value
Activeworkbook.saveas "C:\Mis documentos\"+nombre
Donde coge el nombre de la casilla A2 y lo guarda en un archivo en mis documentos. No se si era esto realmente lo que querías, ya que en tu pregunta no me ha quedado muy claro, pero si tienes dudas vuelve a preguntarme.
