Tudo que estiver relacionado ao Excel básico, como somar, calcular média, colocar bordas, etc.
#60723
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
Você não está autorizado a ver ou baixar esse anexo.
#60728
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
#60734
Disponibilize uma planilha com 3 ou 4 exemplos do resultado desejado.
#60761
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, kiko agradeceu por isso
#60765
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
Editado pela última vez por osvaldomp em 24 Nov 2020 às 11:39, em um total de 1 vez.
#60769
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
rafarangel1512 agradeceu por isso

Coloque o número 1 em A1 e em A2 cole uma c[…]

Boa noite. Sou novo no VBA, veja se resolve o seu […]

Top, asism ficou bem melhor, Muito Obrigado

Erro em tempo de Execução...

Bom dia amigos, neste código abaixo esta da[…]

Boa tarde. Segue uma opção. At&ea[…]

Leitura de planilha fechada

Consegui explicar :) :shock: :?: :?: N&at[…]

Bom-dia! Numa pasta do servidor [ D:\Server\BemVi[…]

Enviando email outlook

Boa tarde! Estou usando o codigo abaixo e esta fun[…]