Formulário de envio com VBA

Home Fóruns Códigos VBA Formulário de envio com VBA

Este tópico contém resposta, possui 1 voz e foi atualizado pela última vez por Foto de perfil de Divulgando Divulgando 2 semanas, 3 dias atrás.

Visualizando 1 post (de 1 do total)
  • Autor
    Posts
  • #1357
    Foto de perfil de Divulgando
    Divulgando
    Mestre

     

    Olá, gostaria de receber sua ajuda.
    estou com um código aqui e não tenho muito conhecimento de macros, VBA e etc..
    mas, gostaria de resolver esta questão.

     

     

    Sub frmcadastrocc()
    Sheets(“CENTRO DE CUSTO”).Select
    UserForm1.Show
    End Sub

    Private Sub cmdenviar_Click()
    Dim linha As Integer
    linha = Sheets(“CENTRO DE CUSTO”).Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row – 3
    ‘BASE é o local onde os registros serão armazenados, este local pode ser trocadoc conforme a sua necessidade ou preferência.

    Sheets(“CENTRO DE CUSTO”).Select
    ‘posiciona o cursor na planilha cadastro

    Range(“a2:c2”).Select

    ActiveCell.Offset(1, 0).Range(“a1”).Select
    ‘cursor posicionado uma celula para baixo ( primeira em branco)

    ActiveCell.Value = Me.txtnome.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Value = Me.txtcodigo.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Value = Me.txtcategoria.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Offset(1, -3).Activate
    ‘posiciona o cursor uma linha abaixo e 3 colunas a esquerda.

    End Sub

    Private Sub cmdlimpacadastrarformcc_Click()

    ‘Limpar Formulário

    Me.txtnome = “”
    Me.txtcodigo = “”
    Me.txtcategoria = “”
    Me.txtnome = SetFocus

    End Sub

    Sendo que o form só envia na linha dois, depois envio novamente e ele apaga o anterior e o substitui.
    quero que ele vá preenchendo as linhas de acordo como for sendo inserido no form.
    Obrigado!

Visualizando 1 post (de 1 do total)

Você deve fazer login para responder a este tópico.