Question : VBA : Données de copie dans de nouveaux cahiers de travail et sauver les dossiers

(Voir l'attachement 1)

I AM essayer d'écrire un macro automatiquement pour créer et sauver un nouveau cahier de travail unique pour chaque personne sur mon bilan. le

par exemple, dans MacroQuestion.xls, je voudrais : Le
1. les cellules que choisies dans A2 à C9 ont basé sur la colonne A de fait a le même nom (Adam) d'A2 à A9. J'ai besoin de la flexibilité pour que la formule sache automatiquement pour prendre toutes les nouvelles lignes au cas où j'ajouterais les lignes additionnelles des dépenses. IE : Ce ne sera pas toujours les rangées 2 9 qui énumèrent les dépenses d'Adam. Ce pourrait être les rangées 3 à la copie A2 de 50.
2. à C9 dans un nouveau cahier de travail. Le
3. automatiquement sauf le nouveau cahier de travail à l'ordinateur de bureau comme Adam.XLS.
4. font automatiquement un dossier séparé pour les autres gens aussi bien. Ainsi, le fonctionnement du macro par le passé me donnerait un « Adam.xls, un Mark.xls, un Jenny.xls, et un Erin.xls » file.

Thank vous pour votre aide !

Erin class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
de " description " de class= de
le class= de
de >
class= de

Réponse : VBA : Données de copie dans de nouveaux cahiers de travail et sauver les dossiers

Essayer ceci.
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 :

Substrater x ()
 
Obscurcir le rng comme gamme, WS comme feuille de travail

Application.DisplayAlerts = faux

Avec Sheet1
    Sheets.Add (). Nom = « temp »
    . Gamme (« A1 ». Gamme (« A » et Rows.Count). Extrémité (xlUp))action de .AdvancedFilter : =xlFilterCopy, CopyToRange : =Sheets (« temp »). Gamme (« A1 »), unique : =True
     Pour chaque rng en feuilles (« temp »). Gamme (« A2 », feuilles (« temp »). Gamme (« A2 »). Extrémité (xlDown))
        Si UCase (bon (rng, 5)) <> « TOTAL » puis
            Placer le WS = le Sheets.Add (ensuite : =Sheets (Sheets.Count))
            le WS. Nom = rng
            .AutoFilterMode = faux
            . Champ de la gamme (« A1 ») .AutoFilter : =1, Criteria1 : =rng et « * »
            .AutoFilter.Range.Copy couvre (rng. Texte). Gamme (« A1 »)
            Feuilles (rng. Texte). Mouvement
            ActiveWorkbook.Close SaveChanges : =True, nom de fichier : = " C:\Users\Stephen\Desktop\ " et rng et « .xls »
        Finir si
    Prochain rng
    .AutoFilterMode = faux
    Feuilles (« temp »). Suppression
Extrémité avec
     
Application.DisplayAlerts = rectifient

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us