Cuestión : Escritura de la copia de la reescritura y de los datos de la goma

Hola los expertos, expertos de la necesidad del

I ayudan a agregar la función adicional en la escritura atada. Los nuevos datos de la copia y de la goma antes de la hoja del “importe total” en resumen y agrupan los datos según la fecha. He creado manualmente esto en la hoja sumaria para que los expertos consigan una mejor visión. Espero que los expertos puedan ayudarme a automatizar esta característica.


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:
>Sub notpretty transferTT2S " del class= " del id= " codeSnippet930845 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 CopyData.xls el class= (66 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 : Escritura de la copia de la reescritura y de los datos de la goma

No entiendo como allí mí ninguna diferencia significativa entre las dos versiones. Si el segundo trabaja el thehe primero debe haber trabajado.

De todas formas, para agregar su agrupar he agregado y he cambiado algo del código. También he atado el archivo (con un botón para funcionar con la macro)
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:

transferTT2S secundario ()
Wss déviles como hoja de trabajo, WST como hoja de trabajo, r como gama, r2 como gama
iRows déviles como de largo, StartRow como de largo
    Fijar los wss = las hojas (el “resumen”)
    Fijar WST = las hojas (“TaskTracker”)
    'Contar las filas que se copiarán (e insertado)
    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))
    iRows = r2.Rows.Count
    'encontrar la fila vacía siguiente
    Fijar r = los wss. Gama (“A” y gama (“A1”) .CurrentRegion.Rows.Count)
    StartRow = r.Row
    'Ahora insertar el número de filas. Seleccionar las filas primeras
    'como después insertando de nosotros necesitamos separarlas de agrupar anterior
    r.EntireRow.Resize.EntireRow.Resize (rowsize: =iRows). Selecto
    Selection.Insert
    Selection.Rows.Ungroup
    'ahora copiar los datos en las filas y el formato insertados
    Fijar r = r.Offset (- los iRows)
    r.Value = WST. [B3]. Valor
    r2.Copy
    r.Offset (, xlPasteValues 1).PasteSpecial
    r.Offset (, 2).Resize (r2.Rows.Count, 2).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
    Con r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
        .LineStyle = xlContinuous
        . Peso = xlThin
    Extremo con
    'Agrupar pasado los nuevos datos
    Filas (StartRow + 1 y “: ” Y StartRow + iRows - 1).Select
    Selection.Rows.Group

Submarino del extremo
Otras soluciones  
 
programming4us programming4us