Excel VBA - Alterar uma lista

[iurilino]

Boa tarde pessoal!

 

Mais uma vez venho pedir a ajuda vocês aqui para o seguinte problema:

 

Eu tenho uma lista que tem REQ, INDEX e COLOR como coluna. O REQ é um código que é gerado automaticamente quando a pessoa preenche a lista, INDEX é a ordem de como ele vai inserindo a lista, COLOR é onde ele vai preencher a cor, que pode variar. 

 

Então, uma REQ pode ter várias COLOR. O que eu gostaria, em uma nova lista, fosse acrescentada uma nova coluna (PED), em que, para cada COLOR diferente, fosse acrescentado um novo número nessa coluna e as iguais ficariam no mesmo PED. Sei que não ficou muito claro, mas estou enviando um exemplo como anexo, se vocês puderem dar uma olhada, ficaria muito agradecido. Pois já tentei de tudo e não acho algo que possa me auxiliar. desde já agradeço.

 

EXEMPLO.xlsx

[Visitante]

A ordem das cores na coluna P é importante? Se sim, qual o critério que você utilizou para montar a lista?

[iurilino]

@osvaldomp Não é importante, so preciso que toda COLOR igual fique no mesmo PED, pode ficar embaralhado

[Visitante]

Veja se o código abaixo atende.

 

Sub OrganizaDados()
 Dim k As Long, x As Long, v As Long
  If [M8] <> "" Then Range("M8:P" & Cells(Rows.Count, 13).End(3).Row).Value = ""
  Range("D8:F" & Cells(Rows.Count, 4).End(3).Row).Copy [N8]
  Range("N8:P" & Cells(Rows.Count, 14).End(3).Row).Sort Key1:=[P8], Order1:=xlAscending
   k = 8
   Do
    x = Application.CountIf([P:P], Cells(k, 16))
    Cells(k, 13).Resize(x).Value = v + 1: v = v + 1
    k = k + x: If Cells(k, 16) = "" Then Exit Do
   Loop
End Sub

 

[iurilino]

@osvaldomp Cara, é exatamente isso que eu precisava, mt obrigado mesmo, você é *****