Página 1 de 1
Associar valor de uma coluna a todos de outra coluna
Enviado: 23 Nov 2020 às 06:15
por 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
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 23 Nov 2020 às 09:45
por osvaldomp
Experimente. O resultado será lançado pelo código na coluna D de Modelos.
Código: Selecionar todosSub 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
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 23 Nov 2020 às 11:21
por rafarangel1512
Não queria a coluna junta, queria que separasse a coluna1 do "modelos" da coluna1 de "opcionais", poderá me ajudar?
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 23 Nov 2020 às 11:30
por osvaldomp
Disponibilize uma planilha com 3 ou 4 exemplos do resultado desejado.
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 07:28
por 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"
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 08:37
por 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 todosSub 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
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 09:29
por 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"?
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 10:02
por 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
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 11:31
por rafarangel1512
Sim exatamente esse !!
Re: Associar valor de uma coluna a todos de outra coluna
Enviado: 24 Nov 2020 às 11:57
por osvaldomp
Código: Selecionar todosSub 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