Notifications
Clear all

Repetir valor textbox varias vezes

4 Posts
2 Usuários
0 Reactions
490 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde colegas.
Teria um código para meu exemplo abaixo:
A quantidade de vezes que eu digitar na textbox1 repetir para planilha o valor da textbox 2.

 
Postado : 11/04/2017 10:11 am
(@mprudencio)
Posts: 0
New Member
 

Insira esse codigo dentro do botao transferir


Dim Qtd As Long
Dim Ln As Long


Ln = 3
Qtd = TextBox1.Value


For a = 1 To Qtd

Cells(Ln, 1).Value = TextBox2.Value

Ln = Ln + 1


Next

 
Postado : 11/04/2017 10:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ou

Range("A1:A" & TEXBOX1.VALUE).Value = TEXTBOX2.VALUE
 
Postado : 11/04/2017 11:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pessoal.
As duas dicas serão muito úteis pra mim.

 
Postado : 11/04/2017 12:06 pm