Lançamento dos dados

Question

Boa Tarde

Tenho um controle em uma planilha em excel, onde tenho um formulário de nome "requisição" de colaboradores, nesse formulario é lançado as informações do colaborador que estaria deixando a empresa, nesta mesma pasta de trabalho tenho outra aba chamada "Cadastro", onde copio e colo os dados da requisição para ficar registrado todas as requisições realizadas, então gostaria de criar um botão para que as informações digitadas na plan requisição fosse copiadas para a plan cadastro. Fico no aguardo!

Abraço!

Answer 1

Supondo que seu formulário tenha duas caixas de texto (TextBox):

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lRow As Long
    
    Set ws = ThisWorkbook.Sheets("Requisição")
    With ws
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Cells(lRow, "A") = TextBox1
        .Cells(lRow, "B") = TextBox2
    End With
    
    MsgBox "Dados gravados com sucesso!", vbInformation
    
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Boa Tarde 

Funcionou perfeito, mas minha necessidade seria para copiar os dados da própria "range", tentei adaptar esse código mas não consegui, vc poderia me auxiliar? Os valores que tenho que copiar não está na ordem de coluna e linha, exemplo tem informações que estão na "B1" outro na "C3 outro na "B12" entre outras, até consegui fazer copiar mas não consegui fazer o lançamento que fique gravado à cada lançamento, tipo inserindo um apos o outro.

Desde já agradeço sua atenção! Abraço...

Answer 3

"Os valores que tenho que copiar não está na ordem de coluna e linha"

Se a estrutura de sua tabela não tiver um padrão, nem mesmo que seja lógico, não é possível você criar uma rotina que automatize alguma ação. Não entendi o exemplo que deu. Os dados estão todos espalhados, sem motivo aparente?

Quando diz que quer copiar os dados da própria range, o que significa?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Bom dia

Desculpas me expressei mal, tenho sim uma tabela, tentei lhe explicar que não estava utilizando texbox, e sim o valor da própria célula, as informações do meu formulário são digitados nas células e essas informações que gostaria de fazer o lançamento para minha plan de "Cadastro" onde será controlado todos as requisições realizadas. 

Agradeço sua atenção!

Answer 5

Estou supondo que as informações na planilha que contém o formulário estão nas células A5 e B5:

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lRow As Long
    
    Set ws = ThisWorkbook.Sheets("Requisição")
    With ws
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Cells(lRow, "A") = Range("A5")
        .Cells(lRow, "B") = Range("B5")
    End With
    
    MsgBox "Dados gravados com sucesso!", vbInformation
    
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 6

Boa Noite

Show de bola...Funcionou certinho..Muito obrigado!

Abraço!