Salvar dados do textbox para planilha

[Guest Michelle Souza]

Olá gente é um prazer está aki fazendo uma pergunta, sempre peguei carona já com as outras perguntas, mais essa aki está me tirando do sério, fiz um Userform com 7 textbox que no botão adicionar, passa todos os dados escritos para a planilha de A1:A7, bom até ai tá tud legal, o negocio é que preciso adicionar mais dados que vão usar linhas posteriormente, mais quando lanço outros dados, eles ficam no mesmo lugar do primeiro, ou seja, um fica salvando em cima do outro, o que faço pra salvar um abaixo do outro? obrigado

[João.Neto]

Michelle, você pode usar o código abaixo como exemplo:

Private Sub CommandButton1_Click()

Dim intLinha As Integer

intLinha = ThisWorkbook.Worksheets("Plan1").Range("A65536").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 1) = TextBox1

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 2) = TextBox2

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 3) = TextBox3

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 4) = TextBox4

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 5) = TextBox5

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 6) = TextBox6

ThisWorkbook.Worksheets("Plan1").Cells(intLinha, 7) = TextBox7

End Sub

beleza?! :ninja:

[Guest --Michelle --]

obrigado deu certo muito obrigado mesmo, você é muito inteligente e gentil obrigado mais uma vez