Buenas tardes a todos, primero que nada gracias por todos sus aportes pues he aprendido mucho de este foro, tengo la siguiente duda:

Estoy llenando tablas con datos que cargo de otros documentos mediante vba, para no hacer tan largo el tema al final tengo una tabla con artículos y normativas las cuales también estoy llenando mediante formulas, todo esto para agilizar unos informes que normalmente escribo manualmente, lo que estoy haciendo es que en esta tabla se incluyan los artículos de la normativa involucrados en unas columnas y las sección o especificación del artículo en otra para finalmente concatenar todo en un parrafo que va al final de mi informe, mi duda es como puedo realizar un macro o si me pueden orientar pues resultado de esta concatenación hay artículos que se repiten derivado de la tabla final que obtengo, por ejemplo cada artículo individual se concatena con su columna quedando algo así:

|Artículo  | Sección    |  Resultado

|  15         | Fracción II |  15.- Fracción II

Que al final de toda la tabla con unir cadenas mi resultado es algo así

5.- Primer parrafo; 7.- Segundo parrafo; 9.- Sección II parrafo 3; 10, 15.- Sección I; 3.- Tercer parrafo; 5.- Sección 1; 3.- Primer parrafo; 4, 5.- Sección 1; 3.- Tercer parrafo; 4

No se si me explico bien o no pero dejo un archivo explicando bien lo que intento hacer.

Gracias!

Archivo de ejemplo

Hola @Gerardo Mojica!!!

Convierte el archivo a extensión *.xlsm (para que puedas usar las macros) y agrega el código en el módulo de la hoja en la cual tienes la tabla. Completa un registro (columnas A:G) y fijate si te ayuda en tu búsqueda (primer punto de tu pedido).

Suerte!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

cfila = 0: cfila = ActiveCell.Row
If Not Intersect(Target, Range(Cells(cfila, 5), Cells(cfila, 7))) Is Nothing Then
    Cells(cfila, 8).Value = Cells(cfila, 2).Value & ".- " & Cells(cfila, 5).Value
    Cells(cfila, 9).Value = Cells(cfila, 3).Value & ".- " & Cells(cfila, 6).Value
    Cells(cfila, 10).Value = Cells(cfila, 4).Value & ".- " & Cells(cfila, 7).Value
End If

End Sub