Este fórum está sendo desativado

[rafarangel1512]

Como posso fazer para associar os valores de cada linha da folha "Modelos" a todos os valores da coluna 1 da folha "Opcionais"?

Exemplo:
A segunda linha "2PU91DLNGK04A0D0" ter à frente todos os valores da coluna 1 da folha "Opcionais" - "NF04", "UB01", "UB09", etc

[osvaldomp]

Experimente. O resultado será lançado pelo código na coluna D de Modelos.

Código: Selecionar todos

Sub ConcatenaDados()
 Dim m As Long, k As Long
  With Sheets("Modelos")
   For m = 2 To .Cells(Rows.Count, 1).End(3).Row
    For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3).Row
     .Cells(Rows.Count, 4).End(3)(2) = .Cells(m, 1) & Sheets("Opcionais").Cells(k, 1)
    Next k
   Next m
  End With
End Sub

[rafarangel1512]

Não queria a coluna junta, queria que separasse a coluna1 do "modelos" da coluna1 de "opcionais", poderá me ajudar?

[osvaldomp]

Disponibilize uma planilha com 3 ou 4 exemplos do resultado desejado.

[rafarangel1512]

Como pode ver na ultima folha da planilha queria a linha 1 da coluna 1 de "modelos" com todos os elementos da coluna1 de "opcionais" e queria assim para todas as linhas da coluna1 de "modelos"

[osvaldomp]

Experimente o código abaixo no lugar do anterior.
O resultado será lançado pelo código nas colunas D:E de Modelos.

Código: Selecionar todos

Sub ReplicaDados()
 Dim m As Long, k As Long
  With Sheets("Modelos")
   .[D:E] = ""
   For m = 2 To .Cells(Rows.Count, 1).End(3).Row
    For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3).Row
    .Cells(Rows.Count, 4).End(3)(2).Resize(, 2) = Array(.Cells(m, 1), Sheets("Opcionais").Cells(k, 1))
    Next k
   Next m
  End With
End Sub

[rafarangel1512]

Só mais uma ajuda, seria possivel colocar todas as colunas da folha "opcionais" da mesma forma que colocou a primeira coluna ao lado da coluna1 da folha "modelos"?

[osvaldomp]

Para a primeira linha o resultado desejado seria esse abaixo, nas colunas D:J ?

#########D##############E#######F############G############H##########I###########J#######
2PU91DLNGK04A0D0#####NN01#####E#####Airbag passageiro#####NO#####180,26695#####199,19

[rafarangel1512]

Sim exatamente esse !!

[osvaldomp]

Código: Selecionar todos

Sub ReplicaDadosV2()
 Dim m As Long, k As Long
  With Sheets("Modelos")
   .[D:J] = ""
   For m = 2 To .Cells(Rows.Count, 1).End(3).Row
    For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3).Row
    .Cells(Rows.Count, 4).End(3)(2) = .Cells(m, 1)
    .Cells(Rows.Count, 5).End(3)(2).Resize(, 6) = Sheets("Opcionais").Cells(k, 1).Resize(, 6).Value
    Next k
   Next m
  End With
End Sub