Question : Ajouter les données additionnelles

Salut les experts, experts en matière du besoin du

I aident à récrire le manuscrit joint pour pouvoir copier des données de column_E (feuille de traqueur de tâche) et les coller dans Column_E (feuille récapitulative). Actuellement le manuscrit copiant seulement des données de column_A aux experts en matière du

Hope de D. a pu m'aider à créer ce dispositif. Attaché aussi bien le cahier de travail pour les experts perusal.


 class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
>Sub " de l'id= " codeSnippet940613 de
class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
class= " fileInfo " de
le title= " de " nom de fichier de class= " de Add-Info.xls le class= (86 KBS)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
xls
le class= de
de >
class= de

Réponse : Ajouter les données additionnelles

transferTT2S secondaires ()
Faibles wss comme feuille de travail, WST comme feuille de travail, r comme gamme, r2 comme gamme
Placer les wss = les feuilles (le « résumé »)
Placer WST = feuilles (« TaskTracker »)
'enlever toutes les données existantes
'wss.UsedRange.Offset (1).ClearContents
' -- ou --
'trouver la prochaine rangée vide
Placer r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Placer r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Compenser (1).EntireRow.Cells (1)
r.Value = WST. [B3]. Valeur
Placer r2 = WST. [A : A]. Trouvaille (« heures totales »). Excentrage (- 1)
Placer r2 = gamme (r2, WST. [A7])
Placer r2 = union (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
wss. Gamme (wss. Cellules (r.Row, r.Column + 3), wss. Cellules (r.Row + r2.Rows.Count - 1, r.Column + 3)). Couper les wss. Cellules (r.Row, r.Column + 4)
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = « [h] : millimètre : solides solubles »
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Cellules (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Valeur = « total de somme »
Avec r.Offset (r2.Rows.Count, 3)
    . Valeur = « =SUM (D1 : D » et r.Offset (0, 0). Rangée + r2.Rows.Count - 1 et ") « 
    .NumberFormat = « [h] : millimètre : solides solubles »
Extrémité avec
Avec r.Offset (r2.Rows.Count). Remettre à la côte (1, 4)
    . Encadre (xlEdgeTop) .LineStyle = xlDouble
    . Encadre (xlEdgeBottom) .LineStyle = xlDouble
Extrémité avec
Avec r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
    .LineStyle = xlContinuous
    . Poids = xlThin
Extrémité avec

Obscurcir I, irow en tant que longtemps
wss. Gamme (« A1 ») .ClearOutline
irow = wss. Gamme (« A2 : A65536 ») .SpecialCells (xlCellTypeLastCell). Rangée - 1
Placer r = wss. Gamme (« A2 »)
Tandis que r.Row <� irow="">    réglé r = r.Offset (1)
    Gamme (r, r.End (xlDown). Excentrage (- 1)). Rows.Group
    Placer r = r.End (le xlDown)
Wend
wss. Outline.ShowLevels RowLevels : =1
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