calcular soma em formulario

[MinaMaria]

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

[Basole]

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

[MinaMaria]

Obrigada.

Já está a funcionar

Obrigada.

Já está a funcionar

[MinaMaria]

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

[MinaMaria]

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