EvertonLuiz

Boa Tarde Pessoal! Estou com um projeto no excel, utilizando forms do vba (gravando em bd do access) e estou com uma dificuldade: Em um dos forms, são imputados valores, e gostaria que a soma deste valores fosse calculado e apresentando em outro campo. Porém, gostaria que isso fosse visualizável antes de se gravar os registros. No exemplo, seria +- assim: Campo 1: txtQTD_SERVICO - 100 Campo 2: txtQTD_MATERIAL - 50 campo 3: txtQTD_RECIBO - 10 Campo 4: mostrar resultado da soma dos campos 1, 2, 3 Criei uma função, executável através de um botão....Porém, os valores não somam. Eles concatenam no campo 4 todos os resultados, apresentando um valor assim: 1005010. alguém pode me ajudar? Obrigado Segue a função que estou usando Function somar() TextBox1 = Format(Val(txtQTD_SERVICO)) + Format(Val(txtQTD_MATERIAL)) + Format(Val(txtQTD_RECIBO)) End Function ***Comando que chama a função Private Sub CommandButton1_Click() Call somar End Sub Obrigado

Cara, estou usando o Editor VBA do Excel!! Utilizei o code com o If que sugeriu e funcionou perfeitamente! Muito obrigado pelas dicas!

Bom dia! Sou novo na arte de programar e estou me arriscando no VBA Estou tentando montar um formulário de consulta, com base em informações de um BD do Access (2010). Mas encontrei dificuldade para montar uma variável Dentro do meu form, tenho duas ComboBox. A combo 1(ComboBoxEntidade) seleciona a Região, e com base na escolha da combo 1, a combo 2 (ComboBoxMunicipio)mostra as cidades. Isso funcionou bem Porem, na hora de pesquisar e carregar as informações, com base na escolha, não consigo inserir variáveis. Estou tentando assim: 'Função Pesquisar Function Pesquisar() Dim SQL As String If ComboBoxEntidade.Text = "SUL" Then SQL = "SELECT * FROM LOGIN_SUL WHERE MUNICIPIO = '" & ComboBoxMunicipio.Text & "'" AbreConsulta SQL Else If ComboBoxEntidade.Text = "NORTE" Then SQL = "SELECT * FROM LOGIN_NORTE WHERE MUNICIPIO = '" & ComboBoxMunicipio.Text & "'" AbreConsulta SQL Else If ComboBoxEntidade.Text = "OESTE" Then SQL = "SELECT * FROM LOGIN_OESTE WHERE MUNICIPIO = '" & ComboBoxMunicipio.Text & "'" AbreConsulta SQL If vRec.RecordCount = 0 Then MsgBox "MUNICIPIO NÃO ENCONTRADO!" Else txtMunicipio.Text = Trim(vRec!MUNICIPIO) & "" txtVencimento.Text = Trim(vRec!VENCIMENTO) & "" TextContato.Text = Trim(vRec!CONTATO) & "" TextTelefone.Text = Trim(vRec!TELEFONE) & "" TextEmail.Text = Trim(vRec!Email) & "" TextEndereçoEletronico.Text = Trim(vRec!ENDEREÇO_ELETRONICO) & "" TextLogin.Text = Trim(vRec!LOGIN) & "" TextSenha.Text = Trim(vRec!SENHA) & "" TextDForma.Text = Trim(vRec!FORMA) & "" TextOutro.Text = Trim(vRec!OBSERVAÇÃO) & "" End If End If End Function ' Botão Pesquisar Private Sub cmdPesquisar_Click() Call Pesquisar End Sub Neste caso, ele só esta carregando as informações da variável “OESTE”. Será que alguém pode me ajudar?? Obrigado