Ayuda con tablas filtradas

[Angel Manuel]

Hola buenas a todos. Hace unos cuantos días estoy intentando trabajar con datos filtrados porque necesito que los datos filtrados en la columna A (No. Pre Factura) quisiera que se concatenaran, he probado varias formas, pero por desconocimiento no he logrado nada, cuando lo intento me concatena todos los datos estén visibles o no. Lo mismo con las columnas G, I, K, M, O, Q (COD1, COD2, COD3, COD4, COD5, COD6) que busco la forma de unir todos los códigos iguales y que me sume sus respectivas cantidades probando con tablas dinámicas, con la función subtotales, pero igual no lo he logrado. Les agradecería si me ayudaran a resolver mi problema. Gracias

Dejo aquí el documento mi problema está en la Hoja 2.

trabajo.xlsm

[jbattiato]

trabajo-rev2.xlsmHola Angel Manuel

Te comento primero que es dificil concatenar la columna A, porque el numero es un formato, asi que cree una columna adicional con los valores (tambien se puede hacer con vba sin necesidad de la columna adiiconal pero se me hizo mas sencillo, te dejo esto a ti)

Ahi te paso el codigo, para ello primero le dí formato de tabla a tu tabla, para que me sea mas sencillo trabajar con el codigo en vba. 

Puedes ver el codigo que utilice alli mismo, este codigo le dedidque poco tiempo, pero te dejo la punta del ovillo para que puedas seguir tu, el codigo te escribe en la celda D164 el codigo concatenado, y en las de mas abajo te suma los valores de los codigo para los codigos 1, 2 y 3 (te dejo a ti agregar el 4to)

Atencion: Si vas a manejar muchos tipos de codigo (y variados), vas a tener que modificar el condicional medicalte el cual suma (Select Case).

 

Pero en definitiva, y lo mas importante, ahi te dejo el codigo funcionando para que sume y concatene con una tabla filtrada. Le queda trabajo por hacer para que mejorarlo, pero se tu puedes hacerlo.

 

Quedo pendiente si te surge alguna duda. Saludos.