Vraag : Voeg extra gegevens toe

Hallo helpen de Deskundigen,

I behoefteDeskundigen om het manuscript in bijlage te herschrijven gegevens van column_E (het blad van de Drijver van de Taak) kunnen kopiëren en het kleven in Column_E (Summier blad). Momenteel kon het manuscript die slechts gegevens van column_A kopiëren aan de Deskundigen/>
Hope van D.


" codeBody " 
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 transferTT2S ()
Schemerige wss als Aantekenvel, wst als Aantekenvel, r als Waaier, r2 als Waaier
Reeks wss = Bladen („Samenvatting“)
Vastgesteld wst = Bladen („TaskTracker“)
'verwijder alle bestaande gegevens
'wss.UsedRange.Offset (1) .ClearContents
' -- of --
'vind de volgende lege rij
Plaats r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1) .EntireRow.Cells (1)
r.EntireRow.Delete
Plaats r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Compenseer (1) .EntireRow.Cells (1)
r.Value = wst. [B3]. Waarde
Reeks r2 = wst. [A: A]. Vind („Totale Uren“). Compensatie (- 1)
Reeks r2 = Waaier (r2, wst. [A7])
Reeks r2 = Unie (r2, r2.Offset (, 3))
r2.Copy
r.Offset (, 1) .PasteSpecial xlPasteValues
r.Offset (, 2). Resize (r2.Rows.Count, 3) .NumberFormat = „[h]: mm: ss“
r.Offset (, 2). Resize (r2.Rows.Count, 2) .HorizontalAlignment = xlCenter
r.Offset (, 3). Waarde = r2.Rows (r2.Rows.Count). Cellen (1). Compensatie (1, 1). Waarde
r.Offset (r2.Rows.Count, 0). Waarde = het „Totaal van de Som“
Met r.Offset (r2.Rows.Count, 3)
    . Waarde = „=SUM (D1: D“ & r.Offset (0, 0). Rij + r2.Rows.Count - 1 &“) „
    .NumberFormat = „[h]: mm: ss“
Eind met
Met r.Offset (r2.Rows.Count). Resize (1, 4)
    . Grenzen (xlEdgeTop) .LineStyle = xlDouble
    . Grenzen (xlEdgeBottom) .LineStyle = xlDouble
Eind met
Met r.Rows (1). Kolommen (1). Resize (, 4). Grenzen (xlEdgeTop)
    .LineStyle = xlContinuous
    . Gewicht = xlThin
Eind met

Schemerige I, irow zoals lang
wss. Waaier („A1“) .ClearOutline
irow = wss. Waaier („A2: A65536“) .SpecialCells (xlCellTypeLastCell). Rij - 1
Vastgesteld r = wss. Waaier („A2“)
Terwijl r.Row < irow
    Vastgesteld r = r.Offset (1)
    Waaier (r, r.End (xlDown). Compensatie (- 1)). Rows.Group
    Vastgesteld r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Sub van het eind
Attachments:
van
Add-Info.xls (86 KB)  (de Details van het Type van Dossier)  
xls

Antwoord : Voeg extra gegevens toe

Sub transferTT2S ()
Schemerige wss als Aantekenvel, wst als Aantekenvel, r als Waaier, r2 als Waaier
Reeks wss = Bladen („Samenvatting“)
Vastgesteld wst = Bladen („TaskTracker“)
'verwijder alle bestaande gegevens
'wss.UsedRange.Offset (1) .ClearContents
' -- of --
'vind de volgende lege rij
Plaats r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1) .EntireRow.Cells (1)
r.EntireRow.Delete
Plaats r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Compenseer (1) .EntireRow.Cells (1)
r.Value = wst. [B3]. Waarde
Reeks r2 = wst. [A: A]. Vind („Totale Uren“). Compensatie (- 1)
Reeks r2 = Waaier (r2, wst. [A7])
Reeks r2 = Unie (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, 1) .PasteSpecial xlPasteValues
wss. Waaier (wss. Cellen (r.Row, r.Column + 3), wss. Cellen (r.Row + r2.Rows.Count - 1, r.Column + 3)). Besnoeiing wss. Cellen (r.Row, r.Column + 4)
r.Offset (, 2). Resize (r2.Rows.Count, 3) .NumberFormat = „[h]: mm: ss“
r.Offset (, 2). Resize (r2.Rows.Count, 2) .HorizontalAlignment = xlCenter
r.Offset (, 3). Waarde = r2.Rows (r2.Rows.Count). Cellen (1). Compensatie (1, 1). Waarde
r.Offset (r2.Rows.Count, 0). Waarde = het „Totaal van de Som“
Met r.Offset (r2.Rows.Count, 3)
    . Waarde = „=SUM (D1: D“ & r.Offset (0, 0). Rij + r2.Rows.Count - 1 &“) „
    .NumberFormat = „[h]: mm: ss“
Eind met
Met r.Offset (r2.Rows.Count). Resize (1, 4)
    . Grenzen (xlEdgeTop) .LineStyle = xlDouble
    . Grenzen (xlEdgeBottom) .LineStyle = xlDouble
Eind met
Met r.Rows (1). Kolommen (1). Resize (, 4). Grenzen (xlEdgeTop)
    .LineStyle = xlContinuous
    . Gewicht = xlThin
Eind met

Schemerige I, irow zoals lang
wss. Waaier („A1“) .ClearOutline
irow = wss. Waaier („A2: A65536“) .SpecialCells (xlCellTypeLastCell). Rij - 1
Vastgesteld r = wss. Waaier („A2“)
Terwijl Vastgestelde <� irow="">    r.Row r = r.Offset (1)
    Waaier (r, r.End (xlDown). Compensatie (- 1)). Rows.Group
    Vastgesteld r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Sub van het eind
Andere oplossingen  
 
programming4us programming4us