Cuestión : Hoja de trabajo de Excel que parte en los libros de trabajo múltiples

Hola, el

I tiene actual una hoja de balance del sobresalir con varias columnas en él.  Una de las columnas es cliente.  Quisiera partir hacia fuera a cada cliente en un libro de trabajo separado de modo que pueda enviar por correo electrónico cada libro de trabajo a cada cliente.  ¿Hay una manera simple de hacer esto?  Amaría ideal poder automatizar este function.

Thanks class= del

Respuesta : Hoja de trabajo de Excel que parte en los libros de trabajo múltiples

Intentar esto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Sub x ()
 
Amortiguar el rng como gama, WS como hoja de trabajo

Application.DisplayAlerts = falso

Con las hojas (“Sheet1”)
    Sheets.Add (). Nombre = “temp”
    . Gama (“A1”. Gama (“A” y Rows.Count). Extremo (xlUp))acción de .AdvancedFilter: =xlFilterCopy, CopyToRange: =Sheets (“temp”). Gama (“A1”), única: =True
     Para cada rng en las hojas (“temp”). Gama (“A2”, hojas (“temp”). Gama (“A2”). Extremo (xlDown))
        Fijar WS = Worksheets.Add ()
        WS. Nombre = rng
        .AutoFilterMode = falso
        . Campo de la gama (“A1”) .AutoFilter: =1, Criteria1: =rng
        .AutoFilter.Range.Copy WS. Gama (“A1”)
        WS. Movimiento
        ActiveWorkbook.Close SaveChanges: =True, nombre de fichero: = " C:\ " y rng y “.xls”
    Rng siguiente
    .AutoFilterMode = falso
    Hojas (“temp”). Cancelación
Extremo con
     
Application.DisplayAlerts = verdad

Submarino del extremo
Otras soluciones  
 
programming4us programming4us