Cuestión : Agregar los datos adicionales

Hola los expertos, expertos de la necesidad del

I ayudan a reescribir la escritura atada para poder copiar datos del column_E (hoja del perseguidor de la tarea) y pegarlos en Column_E (hoja sumaria). La escritura que copiaba solamente datos del column_A a los expertos del

Hope de la D. podía ayudarme actualmente a crear esta característica. Atado también el libro de trabajo para los expertos perusal.


 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty transferTT2S " del class= " del id= " codeSnippet940613 del
class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Add-Info.xls el class= (86 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
xls
el class= de
del >
class= del

Respuesta : Agregar los datos adicionales

transferTT2S secundarios ()
Wss déviles como hoja de trabajo, WST como hoja de trabajo, r como gama, r2 como gama
Fijar los wss = las hojas (el “resumen”)
Fijar WST = las hojas (“TaskTracker”)
'quitar todos los datos existentes
'wss.UsedRange.Offset (1).ClearContents
' -- o --
'encontrar la fila vacía siguiente
Fijar r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Fijar r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Compensar (1).EntireRow.Cells (1)
r.Value = WST. [B3]. Valor
Fijar r2 = WST. [A: A]. Hallazgo (“horas totales”). Compensación (- 1)
Fijar r2 = la gama (r2, WST. [A7])
Fijar r2 = la unión (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
wss. Gama (wss. Células (r.Row, r.Column + 3), wss. Células (r.Row + r2.Rows.Count - 1, r.Column + 3)). Cortar los wss. Células (r.Row, r.Column + 4)
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = “[h]: milímetro: ss”
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Células (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Valor = “suma total”
Con r.Offset (r2.Rows.Count, 3)
    . Valor = “=SUM (D1: D” y r.Offset (0, 0). Fila + r2.Rows.Count - 1 y ") “
    .NumberFormat = “[h]: milímetro: ss”
Extremo con
Con r.Offset (r2.Rows.Count). Volver a clasificar según el tamaño (1, 4)
    . Confina (xlEdgeTop) .LineStyle = xlDouble
    . Confina (xlEdgeBottom) .LineStyle = xlDouble
Extremo con
Con r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
    .LineStyle = xlContinuous
    . Peso = xlThin
Extremo con

Amortiguar i, irow como de largo
wss. Gama (“A1”) .ClearOutline
irow = wss. Gama (“A2: A65536”) .SpecialCells (xlCellTypeLastCell). Fila - 1
Fijar r = los wss. Gama (“A2”)
Mientras que r.Row <� irow="">    determinado r = r.Offset (1)
    Gama (r, r.End (xlDown). Compensación (- 1)). Rows.Group
    Fijar r = r.End (el xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Submarino del extremo
Otras soluciones  
 
programming4us programming4us