Question : Tri pour exceler le cahier de travail à différentes feuilles

J'ai un livre de travail d'exceler, la première feuille s'appelle Master, les 12 autres feuilles suis janvier-décembre.  Le premier colum 'A " sur le maître s'appelle le nom d'emplacement, et la deuxième colonne « b » s'appelle installent la date.  J'ai besoin des noms et installe des dates pour révéler les mois sheets.

Ex de respecetd que j'ai 100 emplacements énumérés avec la diverse date janvier comment j'obtiens tous les emplacements et installe des dates faites en janvier pour peupler janvier sheet class= de

Réponse : Tri pour exceler le cahier de travail à différentes feuilles

Une solution de rechange pourrait être d'avoir un macro n'importe quoi de pareil un pour mettre à jour les feuilles mensuelles pendant que les données sont incorporées dans la feuille principale.

Si vous avez déjà beaucoup de données à transférer vous pouvez employer la boucle (qu'est commenté dehors) pour transférer toutes les données existantes. Remplacer ActiveCell.Row - 1 avec I et l'enlever 'avant pour et après.

Ce code est dans le dossier témoin.

Respect,
Brusque
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :

Worksheet_Change secondaire privé (cible de ByVal comme gamme)

    Obscurcir I en tant que longtemps, LastRow en tant que longtemps, lRow en tant que longtemps
    Obscurcir Ws1 comme feuille de travail, Ws2 comme feuille de travail
    Obscurcir l'iMonth comme corde
    Sinon intersecter (gamme (« B : B »), cible) n'est rien alors
        Placer Ws1 = feuilles de travail (le « maître »)
        LastRow = Ws1.Range (« A65536 »). Extrémité (xlUp). Rangée
        'Pour I = 2 à LastRow
            iMonth = format (feuilles de travail (« maître »). Cellules (ActiveCell.Row - 1, 2), « mmm »)
            Sur l'erreur ErrorHandler GoTo
            Placer Ws2 = feuilles de travail (l'iMonth)
            'trouver la première rangée vide en feuille de mois
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Excentrage (1, 0). Rangée
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Après I
    Finir si
    Le sous-marin de sortie 'évitent le traiteur des erreurs
ErrorHandler :
   La 'feuille de mois n'existe pas !
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