none
Lançamento dos dados RRS feed

  • Pergunta

  • 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!

    sexta-feira, 30 de novembro de 2012 17:53

Respostas

  • 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

    segunda-feira, 3 de dezembro de 2012 23:17
    Moderador

Todas as Respostas

  • 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

    sábado, 1 de dezembro de 2012 00:51
    Moderador
  • 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...

    sábado, 1 de dezembro de 2012 14:34
  • "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

    sábado, 1 de dezembro de 2012 15:45
    Moderador
  • 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!

    domingo, 2 de dezembro de 2012 12:22
  • 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

    segunda-feira, 3 de dezembro de 2012 23:17
    Moderador
  • Boa Noite

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

    Abraço!

    terça-feira, 4 de dezembro de 2012 00:00