Cuestión : VBA: Datos de copiado en los nuevos libros de trabajo y salvar los archivos

(Véase el accesorio 1)

I el intentar escribir una macro para crear y para ahorrar automáticamente un nuevo libro de trabajo único para cada persona en mi hoja de balance. el

por ejemplo, en MacroQuestion.xls, querría: El
1. que las células selectas en A2 a C9 basaron en la columna A del hecho tiene el mismo nombre (Adán) de A2 a A9. Necesito la flexibilidad para que la fórmula sepa automáticamente para tomar todas las nuevas líneas en caso de que agregue líneas adicionales de costos. IE: No será siempre las filas 2 a 9 que enumeran los costos de Adán. Puede ser que sea las filas 3 a la copia A2 de 50.
2. a C9 en un nuevo libro de trabajo. El
3. excepto el nuevo libro de trabajo a la mesa como Adam.XLS.
4. hace automáticamente automáticamente un archivo separado para la otra gente también. ¡Así pues, funcionar con la macro una vez me daría un “Adam.xls, un Mark.xls, un Jenny.xls, y un Erin.xls” file.

Thank usted para su ayuda!

Erin class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : VBA: Datos de copiado en los nuevos libros de trabajo y salvar los archivos

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:
26:
27:

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

Application.DisplayAlerts = falso

Con 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))
        Si UCase ((rng, 5)) “ <> TOTAL correcto” entonces
            Fijar WS = Sheets.Add (después: =Sheets (Sheets.Count))
            WS. Nombre = rng
            .AutoFilterMode = falso
            . Campo de la gama (“A1”) .AutoFilter: =1, Criteria1: =rng y “*”
            .AutoFilter.Range.Copy cubre (rng. Texto). Gama (“A1”)
            Hojas (rng. Texto). Movimiento
            ActiveWorkbook.Close SaveChanges: =True, nombre de fichero: = " C:\Users\Stephen\Desktop\ " y rng y “.xls”
        Terminar si
    Rng siguiente
    .AutoFilterMode = falso
    Hojas (“temp”). Cancelación
Extremo con
     
Application.DisplayAlerts = verdad

Submarino del extremo
Otras soluciones  
 
programming4us programming4us