Este fórum está sendo desativado

[patrickgenitor]

Boa noite a todos, ainda estou a aprender muitas coisas sobre a programação do VBA, estou com um problema onde tenho 100 usuários com 100 lançamentos em tabelas diferentes, tudo trabalhando em variáveis e células que podem ser editadas conforme a necessidade , porém não consegui achar uma forma melhor no código para o lançamento sempre em ultima linha nas respectivas tabelas de cada usuário, caso alguém saiba e possa me mandar uma maneira melhor para reduzir o código e assim deixá-lo utilizável agradeço muito,, vou deixar em anexo a planilha com tudo liberado e visível em anexo, desde já muito obrigado a todos .

Obs.: já fiz vários testes, aparentemente já consegui deixar toda a planilha já completa funcionando o único problema que falta para finalizar seria o erro de compilação devido ao VBA estar muito grande.

[Reinaldo]

Uma possibilidade;
Teste sua rotina inserir alterada conforme abaixo:

Código: Selecionar todos

Private Sub inserir_Click()
Dim ultimalinha As Object

For x = 0 To 105
    If operador.ListIndex = x Then
        Set ultimalinha = Planilha2.Cells(350, 2 + x * 4).End(xlUp)
        ultimalinha.Offset(1, 0).Value = TextBox1.Text
        ultimalinha.Offset(1, 1).Value = ComboBox1.Text
        ultimalinha.Offset(1, 2).Value = TextBox4.Text
        ultimalinha.Offset(2, 0).Value = TextBox1.Text
        ultimalinha.Offset(2, 1).Value = ComboBox2.Text
        ultimalinha.Offset(2, 2).Value = TextBox5.Text
        ultimalinha.Offset(3, 0).Value = TextBox1.Text
        ultimalinha.Offset(3, 1).Value = ComboBox3.Text
        ultimalinha.Offset(3, 2).Value = TextBox6.Text
        ultimalinha.Offset(4, 0).Value = TextBox1.Text
        ultimalinha.Offset(4, 1).Value = TextBox2.Text
        ultimalinha.Offset(4, 2).Value = TextBox3.Text
    End If
Next


Sheets("Operadores Templarios").Range("C7").Select
Unload Me

End Sub

[patrickgenitor]

Opa, muito obrigado chegando em casa já faço a modificação e retorno , agradeço muito

[patrickgenitor]

Amigo, deu muito certo, obrigado mesmo, vou depois com calma olhar para ver como está cada procedimento para aprender, muito obrigado por tudo