Modificar Macro para que no agrupe datos y elimine los duplicados

asalinasc · el 29 de junio

Buen día foro, adjunto un archivo el cual se compone de dos hojas (Hoja1 tabla de datos) y (Hoja3) formato de consulta/reporte) en el cual entre otras la Columna A tiene un numero el cual se ordena consecutivamente, la columna E un numero de Parte y columna G numero de Certificado, lo que estoy batallando es para que tomando como referencia la columna A me aparezcan solo datos únicos y elimine los duplicados, ya que la referencia de la columna G (numero de certificado) si se agrupa en una celda, el link que se genera automáticamente en la columna J ya no me abre puesto que me toma la referencia del certificado todo agrupado y lo nombra con todas las referencias agrupadas.

en el archivo adjunto explico algunas cosas mas y pongo una pestaña del resultado que espero, puse como ejemplo solo una parte pero espero que toda la tabla tenga este resultado, ya no supe a que función de las macros modificar, por eso pido su valioso apoyo, las macros funcionan bien, pero quiero modificarlas a ver si es posible.

Para jalar los datos solo pongo la referencia en la Tarea (B8) y le doy clic a la carita sonriente (H1) y listo me extrae la informacion de la hoja1 y vincula el ceftificado en PDF de una ruta (hasta aquí todo bien las macros funcionan muy bien, pero ya NO se cual macro de las que contiene el archivo o que debo modificar para obtener lo que comento arriba.)

mil gracias de antemano.

saludos..

2.- RLM 2.rar

Dr Hyde · el 30 de junio

checa el archivo, creo que es lo que necesitas, solo da click sobre el boton

Copia de 2.- RLM 2 - copia.xlsm

asalinasc · el 30 de junio

Hola @Dr Hyde me funciona bien, en la hoja uno voy a estar pegando los mismos datos pero de diferente tarea (trabajo) y en la hoja Tres llamo (B8) coloco el nombre de la tarea y le doy a la carita feliz y se me llena el reporte, donde me salen los datos repetidos y agrupados en algunos casos donde se repite el # de certificado, después de eso con el botón que me generaste y las macros me queda perfecto, así como lo quería, para mi no es problema correr la carita feliz (paso1) y después el botón copiar (paso2) sin problema, lo único que no me jalan son los hipervinculos que se crean.

Con el botón de la carita feliz, si me funcionan los vínculos pero no todos, el detalle es que los nombres agrupados de los certificados, me salen todos en el nombre del PDF y por eso no abre.

tengo esta formula la pego en la columna J (link del certificado)

=HIPERVINCULO("\\Sweco_nt\Certificados Calidad\"&IZQUIERDA(G19,5)&"\"&G19&".pdf")

y si me genera los vínculos y me los abre el detalle es que tengo que pegarla en la celda J19 y arrastrarla, de manera que pueda imprimirlos uno por uno o ver la manera de imprimirlos todos de un jalón y evitar los duplicados. gracias de antemano por tu apoyo.

Dr Hyde · el 30 de junio

cambia el modulo hacerlinks por esta nueva version, siento no poder mandarte el archivo cada que trato de subirlo me pone hay un problema con su archivo y cancela la carga, esta macro ya deja convertida la celda en links.

Sub hacerlinks()
Set Datos = Range("datos")
filas = Datos.Rows.Count
blancos = WorksheetFunction.CountBlank(Datos.Columns(1))
resta = filas - blancos
Set Datos = Datos.Resize(resta, Datos.Columns.Count)

For i = 1 To Datos.Rows.Count
certificado = Datos.Cells(i, 7)
certi = Split(certificado, "-")
If certificado <> Empty Then
With Datos.Cells(i, 10)
.Formula = "=hyperlink(" & Datos.Cells(i, 10).Address & ")"
.Value = "\\Sweco_nt\Certificados Calidad\" & certi(0) & "\" & certificado & ".pdf"
End With

End If

Next i
Datos.Columns(10).EntireColumn.AutoFit
Range("informacion").EntireColumn.Delete

End Sub

asalinasc · el 1 de julio

Buen día @Dr Hyde, estoy todavía revisando los datos y digiriendo la macro, solo estoy verificando que la separación de los datos este bien y que no tenga algún detalle.

asalinasc · el 4 de julio

Buena tarde, una disculpa he andado algo estresada estos días buscándole, ya verifique los datos generados por la macro y todo bien, esto no lo considere en mi consulta inicial, pero al analizar la información quería ver si una referencia indicada en la columna para las COLADAS de la Hoja3 (como ejemplo, porque hay muchas celdas en en la misma situación de esta misma columna F) se pudiera eliminar la referencia repetida, no se si esto sea posible o que grado de dificultad tiene o se involucra, si no es posible bueno a ver como lo soluciono le he buscado muchas maneras pero me doy, ya no pude y pues se que el foro es como apoyo o guía para hacer algunas cosas, y NO que ustedes nos hagan el trabajo, el trabajo es de uno y ustedes amablemente apartan tiempo para apoyarnos o ayudarnos en muchas de nuestras dudas, según lo consideren necesario, pero créanme que por mas que le busco no encuentro, no ando perdida pero si algo estresada. de hecho voy a trabajar en este archivo, ver si es posible que se me impriman (hipervinculos (los PDF's) de uno solo jalo y no uno por uno como hasta ahora y que no se impriman los repetidos.(bueno esto que pongo solo es un comentario, realmente la ayuda inicial cumplió su meta, el apoyo se me dio y le agradezco al @Dr Hyde por su valioso tiempo,y si se considera necesario abro otro tema para los puntos que mencione antes y ver si es posible lo que comente.

mil gracias.

2.- RLM rev 2.rar

Dr Hyde · el 5 de julio

la macro que ocupas es muy similar a la primera que te envie, ya la integre junto a la otra, tambien te crea una lista unica de documentos por imprimir partiendo de esa base, lo que restaria definir con que se abriran eso documentos si con Acrobat reader, foxitreader o bien directamente en algun navegador, el problema es que en ocasiones los comandos de Excel para controlar otras aplicaciones son ignorados por estas por no ser compatibles.

Copia de 2.- RLM 2 - copia.rar

asalinasc · el 6 de julio

Mil gracias @Dr Hyde por tu conocimiento, realmente es lo que buscaba, en la lista de impresión ahí esta el resultado, este tema realmente es un dolor de cabeza, pero con tu ayuda fue menos complicado, solo para terminar con esto pido tu opinión, realmente me quedare con el código anterior, a menos que salvo tu mejor opinión tal vez cambie, pero no quiero darte mas lata, pero te comparto mi idea, después de realizar todo el proceso (Extraer datos con happy face + El botón de tu macro) puse una formula en la columna 0 donde me aparecen los hiperviculos creados, los cuales me abren con un solo clic, y no se tengo esta duda ¿es posible que desaparezcan los vinculos duplicados, sin eliminar fila?, lo se hacer de la manera tradicional, y con formato condicional etc. pero ¿existe la posibilidad de hacerlo con una macro y que solo aparezcan referencias únicas en esa misma columna O?, bueno realmente agradezco toda tu ayuda, sin ti no lo hubiera logrado, me interesa dar por solucionado ese tema, pero no sin antes tener tu opinión o si se puede hacer algo con las mismas macros que tenemos, marco con verde cuales serian los que se conservarían y con amarillo los que esperaría se eliminaran por duplicidad como ejemplo ya que pegue solo una partecita del archivo, ya que son como tres mil filas, y en algunos casos mas..

un abrazo y muchos saludos.

RLM 2 -2016 r02.xlsm

Dr Hyde · el 7 de julio

la ultima macro que te mande te crea en una hoja aparte un listado unicos de links

Sub lista_impresion()
Dim unicos As New Collection
Set Datos = Range("a18").CurrentRegion
Set Datos = Datos.Offset(1, 0).Resize(Datos.Rows.Count - 1, Datos.Columns.Count)

For Each link In Datos.Columns(10).Cells
lin = link
On Error Resume Next
If lin <> "" Then unicos.Add lin, CStr(lin)
On Error GoTo 0
Next link

On Error Resume Next
Sheets("lista impresion").Select

If Err.Number = 9 Then
Sheets.Add
ActiveSheet.Name = "lista impresion"
End If
On Error GoTo 0

Set enlaces = Range("c3").Resize(unicos.Count, 1)

a = 1
enlaces.Formula = "=hyperlink(" & enlaces.Cells(a, 1).Address & ")"

For Each link In unicos
enlaces.Cells(a, 1) = link
a = a + 1
Next link

With enlaces.Cells(0, 1)
.Value = unicos.Count & " documentos por imprimir"
.Font.Bold = True
End With
End Sub

asalinasc · el 8 de julio

@Dr Hyde buenos días, una vez mas muchas gracias por tu gran pero gran ayuda, realmente no hubiera logrado hacer lo que planeaba si no fuera por ti, le puse un botón a tu macro y me abre en otra hoja el listado único de documentos y ademas como un plus me indica la cantidad de documentos en-listados, realmente quedo mucho mejor de lo que esperaba o había visualizado, nuevamente muchas gracias y te pido disculpas por tardar en responder pero es que ando algo atareada con algunas cosas personales y otra es que me gusta esto de las macros y procuro poder entender lo mas que pueda, o por lo menos muero en el intento, ya que no se me da mucho, pero me gusta.

Se da por SOLUCIONADO este tema, no sin antes agradecerte a ti primeramente @Dr Hyde y a este gran grupo, esta gran familia que ayuda a los mas necesitados de manera incondicional, te mando un beso con mucho respeto y muchas gracias,

bye.

Sabrina