Problema ao inserir os dados na tabela vba

Question

Olá pessoal,

estou com um problema para inserir os dados na minha planilha.

Tenho um UserForm, que quando preenchido deve inserir na planilha uma sequência de linhas. Porém, só consegui fazer ele incrementar a primeira linha. Não consigo fazê-lo preencher as próximas linhas juntas. Como fazer com que ele preencha todas essas linhas e não somente a primeira.

 Esse é o código que estou usando:

Private Sub CommandButtonSalvarHH_Click()
    Dim intLinha As Integer
    intLinha = ThisWorkbook.Worksheets("HH").Range("A65536").End(xlUp).Offset(1, 0).Row

    ThisWorkbook.Worksheets("HH").Cells(intLinha, 1) = TextBoxInserirData
    ThisWorkbook.Worksheets("HH").Cells(intLinha, 2) = ComboBoxSelecionarLinha
    ThisWorkbook.Worksheets("HH").Cells(intLinha, 3) = TextBox1
    ThisWorkbook.Worksheets("HH").Cells(intLinha, 4) = TextBox2
    ThisWorkbook.Worksheets("HH").Cells(intLinha, 6) = TextBox3

End Sub

Não sei se fui clara. Alguém tem ideia de como se faz?

Obrigada!

Answer 1

Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

---

Vejo que em seu código ele preenche a primeira linha vazia com os dados do formulário.

VocÊ deseja que sejam preenchidas mais que uma linha? Se sim, quais e quantos dados em linhas a mais serão gravados?

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG