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