Macro agrupar datos repetido

[lozaoma]

CÓDIGO COLOR VALOR

AAAA AZUL 160

AAAA AZUL 5C0

AAAA AZUL 560

TTTT VERDE 5C0

SSSS NEGRO 560

TTTT VERDE 160

Hola. Necesito una macro que cuando coincidan el código los agrupe y su valor lo agregue en una misma celda. Es decir me fusione en una AAAA AZUL 160.- y para los que no se repiten queden igual,. La idea es que arroje la fusión en la mismas colummas. Que quede algo asi:

AAAA AZUL 160,5C0,560

TTTT VERDE 5C0,160

SSSS NEGRO 560

se podrá hacer algo como esto?

[Antoni]

Esta consulta no corresponde a este foro, has tenido suerte de que un macroniano pasara por aquí.

Sub Agrupar()

Dim x, Código, Kolor, fila

fila = 1 [COLOR=#008000]'Primera fila de datos[/COLOR]

x = fila

Application.ScreenUpdating = False

Range("D:D").Clear

Do

   fila = fila

   Do Until Range("A" & x) <> Código Or Range("B" & x) <> Kolor

      Range("D" & fila) = Range("D" & fila) & ", " & Range("C" & x)

      x = x + 1

   Loop

   If Código <> "" Then

      Range("D" & fila) = Código & " " & Kolor & Mid(Range("D" & fila), 2)

      fila = fila + 1

   End If

   Código = Range("A" & x)

   Kolor = Range("B" & x)

   If Range("A" & x) = "" Then Exit Do

Loop

End Sub

[/CODE]

Los datos se suponen en las columnas A, B y C y el resultado se obtiene en la columna D.

[lozaoma]

Hola mil gracias por re4sponderme, frnbacamente no se nada de estos temas y me da gusto existen foros tan padres como este , voy a provar el codigo y seguro me ayudara bastante mil gracias.