MinaMaria

Bom dia Tenho uma tabela que vai buscar informação ao programa Primavera, entre outros campos temos a data, o nº do equipamento, os litros abastecidos e km do equipamento no momento. Precisava de ajuda para calcular média de consumo

tudo isso já eu sei. Só preciso de alguém que me ajude a passar esses cálculos para código VBA.

Bom dia estou a criar uma base de dados de abastecimento de gasóleo. Esta base é alimentada por um formulário criado em VBA. Até aqui tudo bem. Tenho dificuldades em criar uma textbox onde apareça o total de litros abastecidos e a média mensal. Alguma ajudad?

no access 2013

Bom dia Tenho um formulário, e os dados registos são apresentados no próprio form 'registos' através de uma Listbox (facilita a ordenação). Pretendo que ao clicar 2x num item da Listbox seja aberto o subform 'editareg' e edite o registo pretendido. Já vi várias respostas aqui, mas não consegui por nenhuma a funcionar, a ultima: doccmd.OpenForm "editareg", , , "[Forms]![registo]![ID] = [ID]" dá erro: run-time error '424'; object required Alguma dica

Bom dia, Tenho dois formulários: obras (nome das obras em funcionamento) e registos (registo de todas as despesas dessa obra). Através do formulário "registos" posso chamar o formulário "obras", quando não conste na base de dados. Isto foi criado através do assistente de controlo. Abrindo os formulário directamente consegui que o foco fosse localizado no campo pretendido (exemplo): Private Sub Form_Load() Me.Obra___Habitação.SetFocus End Sub Mas quando entro no form "obras" através do "registos" isto não acontece. Alguém sabe porquê?

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

Boa tarde Estou a calcular os totais consumidos num ano por mês. Na tabela de origem a data é do tipo: dd/mm/yyyy, e não está ordenada. Precisava fazer uma busca na data, selecionar as celulas correspondentes ao mês que quero e depois somar os valores dos litros, ou seja: somase mês de data = "valor" => a2 + a6 + a12 alguém ajuda?

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

Obrigada. Já está a funcionar Obrigada. Já está a funcionar

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