Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Fórmula automática ...
 
Notifications
Clear all

Fórmula automática + Ajuda em Loop

 
2024 - VBA & Macros
Post Recente por mengueh 8 anos atrás
8 Posts
2 Usuários
0 Reactions
1,221 Visualizações
RSS
 mengueh
(@mengueh)
Posts: 8
Active Member
Topic starter
 

Galera, estou otimizando minha tabela pra usar em uma matéria na faculdade, pois bem, cheguei em uma etapa onde eu preciso informar um valor e então, nessa quantidade informada, preencher duas vezes cada valor, por exemplo.

qtd informada: 10
então a listagem ficaria:
1
1
2
2
etc

E minha outra dúvida é como concatenar em um LOOP a variável contadora com a LETRA da coluna?

Grato.

 
Postado : 22/10/2016 9:54 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nao entendi.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/10/2016 10:01 am
 mengueh
(@mengueh)
Posts: 8
Active Member
Topic starter
 

Prudêncio,

QTD: 10.
A listagem que eu preciso que apareça é:
1
1
2
2
3
3
4
4
5
5
6
6
7
7
8
8
9
9
10
10

Isso de acordo com a quantidade que o usuário informou na célula acima.

 
Postado : 22/10/2016 10:04 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Cole esse codigo em um modulo

A quantidade deve ser digitada em A1


Sub Codigo()

Dim Codigo As Double
Dim Linha As Long


Codigo = Range("A1").Value
Linha = 2


For a = 1 To Codigo

Cells(Linha, 1).Value = a
Linha = Linha + 1
Cells(Linha, 1).Value = a
Linha = Linha + 1
Next

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/10/2016 10:13 am
 mengueh
(@mengueh)
Posts: 8
Active Member
Topic starter
 

Funcionou! Obrigado.

E agora pra eu concatenar, por exemplo,

a variável contadora a uma coluna
A1, A2, An..

 
Postado : 22/10/2016 10:21 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nao entendi como concatenar?

Faz um exemplo pratico do resultado

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/10/2016 10:24 am
 mengueh
(@mengueh)
Posts: 8
Active Member
Topic starter
 

Assim ó,

Coluna H c/ contador do loop.
H1, H2, H3.

Por exemplo, a quantidade é 5.
Vai ficar dai,

COLUNAH1, COLUNA H2, COLUNA H3, COLUNA H4, COLUNA H5.

 
Postado : 22/10/2016 11:27 am
 mengueh
(@mengueh)
Posts: 8
Active Member
Topic starter
 

Cells(i + 7, 14).Formula = Range("M" & (i + 7)) * 1000000#

Eis a resposta, obrigado a quem ajudou.

 
Postado : 22/10/2016 11:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico