Fusionar dos registros en otra hoja del libro

[gortega]

Hola, como siempre que me meto en una encrucijada con Excel, recurro a los expertos.

Necesito en primer lugar separar los registros de una hoja por el Tipo de tarea y copiar a cada hoja correspondiente los registros necesarios. Indicaros que existe únicamente dos tipos de Tareas. Eso creo que esto es fácil.

Luego tengo que fusionar la información según el Cód. Interno de Tarea, para quedarme únicamente con un único registro.

Adjunto archivo de ejemplo para que me ayudéis.

Como siempre muchas gracias.

Concatenar registro.xls

Concatenar registro.xls

[gortega]

Hola de nuevo. Voy investigando un poco sobre mi problema y he conseguido relizar las suma de los registros que son iguales por la condicion. La marco es:

Sub Sumarsi()

Application.ScreenUpdating = False

Dim uf As Long, uf2 As Long

Dim rangocriterio As Range

Dim rangosuma1 As Range

Dim rangosuma2 As Range

uf = Range("A" & Rows.Count).End(xlUp).Row

Set rangocriterio = Range("A4:A" & uf)

Set rangosuma1 = Range("D4:D" & uf)

Set rangosuma2 = Range("E4:E" & uf)

uf2 = Range("A" & Rows.Count).End(xlUp).Row

With Range("R4:R" & uf2)

.Formula = "=SUMIF(" & rangocriterio.Address & ", $A4 ," & rangosuma1.Address & ")"

.Formula = .Value

End With

With Range("S4:S" & uf2)

.Formula = "=SUMIF(" & rangocriterio.Address & ", $A4 ," & rangosuma2.Address & ")"

.Formula = .Value

End With

Set rangocriterio = Nothing

Set rangosuma1 = Nothing

Set rangosuma2 = Nothing

Application.ScreenUpdating = True

End Sub

Ahora me queda que unicamente se me quede un registro de los que a sumado. Sabeis como se puede hacer.

Muchas gracias por todo.

- - - - - Mensaje combinado - - - - -

Os subo el archivo actualizado, para que lo veáis.

A ver si se nos ocurre que solo aparezca una solo fila por condición.

Otra vez muchas gracias por todo.

Concatenar registro.xls

Concatenar registro.xls