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
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 : 11/04/2017 10:24 am