Ir para conteúdo
Fórum Script Brasil
  • 0

calcular soma em formulario


MinaMaria

Pergunta

Boa tarde

Estou a criar uma base de dados que me permite controlar os litros de gasóleo consumidos. Tenho o formulário que funciona bem, grava tudo direitinho.

O que pretendo agora é: sempre que entrar no formulário o total do gasoleo gasto deve aparecer na textbox "Total". O calculo do total, na tabela, seria -> F2 =E2+C3.

alguém pode ajudar?

No formulário só pretendo mesmo ver o resultado da celula da tabela

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Olá Mina seja bem vinda abordo!

Pelo que estou vendo a celula "F2" já esta calculando o total, correto?

Caso seja isso, então insira no evento Initialize :

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Sheets("Nome_da_sua_Planilha(aba)").Range("F2").Value
End Sub
Link para o comentário
Compartilhar em outros sites

  • 0

outra duvida:

o registo dos dados será feito ao final da semana. Por isso o campo Data será variavel, não estou a conseguir formatar a textbox como data, neste momento estou a inserir assim: 21/02/2015. se me esquecer dos separadores não considera como data, mas como um nº inteiro

Link para o comentário
Compartilhar em outros sites

  • 0

Fiz alterações no programa e deixou de funcionar. envio-lhe o meu ficheiro, veja o que estou a fazer mal por favor.

Private Sub CommandButton1_Click()
     Dim iLin As Long
     Dim ws As Worksheet
     Set ws = Worksheets("registos")

'Determina a linha a ser escrita'
     lin = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'Verifica se o código da peça é numérico'
    ' If Not (IsNumeric(Me.txtPeca)) Then
         'MsgBox "Número de Peça incorrecto"'
       '  Me.txtPeca.SetFocus'               'Me refere-se ao formulário actual'
         'Exit Sub
    'End If '

'Verifica se a descrição foi digitada'
     If Trim(Me.ComboBox1) = "" Then
        MsgBox "Informe a Obra/Habitação"
        Me.ComboBox1.SetFocus
        Exit Sub
     End If

'Verifica se a quantidade é numerica'
     If Not (IsNumeric(Me.txtlitros)) Then
        MsgBox "Quantidade Incorrecta"
        Me.txtlitros.SetFocus
        Exit Sub
     End If

     If Not (IsNumeric(Me.ComboBox2)) Then
        MsgBox "Nº Cisterna incorrecto"
        Me.ComboBox2.SetFocus
        Exit Sub
     End If

 

'Escreve os dados na tabela'
     ws.Cells(lin, 1).Value = Me.txtData.Value
     ws.Cells(lin, 2).Value = Me.ComboBox1.Value
     ws.Cells(lin, 3).Value = Me.txtlitros.Value
     ws.Cells(lin, 4).Value = Me.ComboBox2.Value
     'ws.Cells(lin, 5).Value = Me.txtTotal.Value'
     ws.Columns("A:E").AutoFit
     
'Limpa as caixas de texto e direcciona o foco para txtData'
     Me.txtData.Value = ""
     Me.ComboBox1.Value = ""
     Me.ComboBox2.Value = ""
     Me.txtlitros.Value = ""
     Me.txtData.SetFocus

End Sub

Private Sub CommandButton2_Click()
Me.txtData = ""
Me.ComboBox1 = ""
Me.txtlitros = ""
Me.ComboBox2 = ""
Me.txtData.SetFocus

End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub txtData_Change()
'formata: dd/mm/yyyy
If Len(txtData) = 2 Or Len(txtData) = 5 Then
     txtData.Text = txtData.Text & "/"
End If

End Sub

Private Sub txtData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'limita a quantidade de caracteres
    txtData.MaxLength = 10
'permitir que apenas os nºs seja digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
    KeyAscii = 0
    End If

End Sub

Private Sub UserForm1_Initialize()
txttotal.Text = Sheets("registos").Range("F2").Value
End Sub

 

Private Sub txtmedia_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtmedia.Text = Sheets("consumosano").Range("b15").Value
End Sub

formulario object.png

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...