none
Ajuda com Useform. RRS feed

  • Pergunta

  • Olá Bom dia

    estou fazendo aplicação, no qual eu tenho um form(2 textbox e 1 botão) ao clicar botão, ele envia o conteúdo para uma planilha, e na próxima vez que eu clica e joga outro dado na linha de baixo e assim sucessivamente, sabendo que há uma célula que armazena a quantidade destes dados e atualiza automaticamente, espero que me ajudem.

    grato

    quarta-feira, 20 de novembro de 2013 11:56

Respostas

  • Considere que você tem um formulário com uma caixa ded texto (TextoBox1) e um botão de comando (CommandButton1). Cole o código abaixo na classe do seu formulário:

    Private Sub CommandButton1_Click()
      'Coluna em que os dados são registrados:
      Const cstrCol As String = "A"
      
      Dim wks As Excel.Worksheet
      Dim lngLast As Long
      
      'Nome da planilha em que estão os dados:
      Set wks = ThisWorkbook.Worksheets("Plan1")
      With wks
        lngLast = .Cells(.Rows.Count, cstrCol).End(xlUp).Row + 1
        .Cells(lngLast, cstrCol) = Me.TextBox1
      End With
      
      MsgBox "Dados gravados com sucesso!", vbInformation
    End Sub




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

    quarta-feira, 20 de novembro de 2013 17:10
    Moderador