Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro repetir dados...
 
Notifications
Clear all

Macro repetir dados conforme o numero da coluna ao lado

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
961 Visualizações
RSS
 ROBERTOF
(@robertof)
Posts: 2
New Member
Topic starter
 

Olá,
estou com uma duvida, sobre o vba, como faria um macro para repetir as células de acordo com a quantidade da coluna ao lado,
Ex:

304576 |3
304577 |3
304578 |2
304579 |2

FICARIA:

304576
304576
304576
304577
304577
304577
304578
304578
304579
304579

 
Postado : 18/05/2017 2:22 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde ROBERTOF

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Baixe a planilha e veja se é isto que você deseja.

18_05_17_Copiar quantas vezes consta na coluna ao lado_Patropi.zip

Não se esqueça de clicar na mãozinha, que fica do lado da ferramenta Citar.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/05/2017 2:35 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub ReplicaDados()
 Dim c As Range
  For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
   Cells(Rows.Count, 4).End(3)(2).Resize(c.Offset(, 1).Value) = c.Value
  Next c
End Sub

obs. resultado a partir de 'D2'

Osvaldo

 
Postado : 18/05/2017 3:50 pm
 ROBERTOF
(@robertof)
Posts: 2
New Member
Topic starter
 

obrigado! :D

 
Postado : 19/05/2017 6:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Roberto

Pelo jeito você não leu os links que eu postei ( que vai faltar falta em próximos tópicos), pois nem usou a ferramenta para agradecer aos colaboradores.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/05/2017 7:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico